• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Mój program cały czas pokazuje error.Pascal

VPS Starter Arubacloud
0 głosów
237 wizyt
pytanie zadane 11 kwietnia 2022 w Inne języki przez julka1605 Nowicjusz (120 p.)
program granica
var 
x1,xn,dx,x,x_01,x_02,y_01,y_02: real;
i,n: integer;
begin 
    writeln('Podaj początkowy zakres dziedziny: ');
    readln(x1);
    writeln('Podaj końcowy zakres dziedziny: ');
    readln(xn);
    n := 1000                    //writeln('Podaj liczbę punktów: ');
    x1 := x1*100;
    x1 := round(x1);
    x1 := x1/100;
    
//y = 2x+3/2x-4
    if 2*x1-4 = 0 then exclude(x1);

    y1 := (2*x1+3)/(2*x1-4;
    dx := (xn-x1)/(n-1);
    x := x1 + dx;
    x := x*100;
    x := round(x);
    x := x/100;           // PYTHON -> x := round(x,2);
    writeln('1' + '	' + string(x1) + '		' + string(y1));

    for i := (n-1) do 
            if 2*x-4 = 0 then
                exclude(x);
                writeln(i+2,  'nie w dziedzinie');
            else
                y = (2*x+3)/(2*x-4);
                writeln('{}	{:.2f}		{:.2f}'.format(i+2,x, y));
            x = x + dx;
            x = round(x,2);
            
    writeln(wyk);
    x_01 = wyk[0]+0.001;
    x_02 = wyk[0]-0.001;

    y_01 = (2*x_01+3)/(2*x_01-4);
    y_02 = (2*x_02+3)/(2*x_02-4);

    writeln(x_01, y_01);
    writeln(x_02, y_02);
    
    writeln('Czy chcesz liczyc dalej? T lub N');
    readln(odp);
    until odp='N';
end.

Prawdopodobnie chodzi o zaokrąglanie jednak jak to zmieniałam to też ni chciało działać

komentarz 11 kwietnia 2022 przez Wiciorny Ekspert (269,120 p.)

10 linia brak średnika

    n := 1000;

ale tak chaotycznie napisany jest kod, ze nie jest to proste w odnalezieniu problemu. 

komentarz 11 kwietnia 2022 przez julka1605 Nowicjusz (120 p.)
Czyli tylko to jest źle?
1
komentarz 11 kwietnia 2022 przez Wiciorny Ekspert (269,120 p.)
a to mój kod, czy twoj, a moze skopiowany od kogos? Nie wydaje mi sie ze jestes jego autorka zadajac takie pytanie
komentarz 12 kwietnia 2022 przez VBService Ekspert (251,210 p.)
edycja 12 kwietnia 2022 przez VBService

@julka1605, BTW, Ja tez nie piszę w Pascal-u, ale wydaje Mi się, że

Linia 1 brak średnika na końcu; program granica;

Linia 16 brakuje drugiego parametru dla exclude(x1, ?)

Linia 18 użycie niezadeklarowanej zmiennej y1

Linia 18 brakuje nawiasu )  y1 := (2*x1+3)/(2*x1-4);

Linia 24 a to co?  writeln('1' + ' ' + string(x1) ..., przecież writeln('1 ' + string(x1) ...  wink

Linia 26 brakuje zakresu for i := (n-1) to ? do

Linia 28 to samo co linia 16   exclude(x, ?);

Linia 36 użycie niezadeklarowanej zmiennej wyk

Linia 47 użycie niezadeklarowanej zmiennej odp

Linia 48 odwołanie do until ...; bez wcześniejszego użycia repeat

 

BTW, może ten zapis

writeln('1' + ' ' + string(x1) + '      ' + string(y1));

na taki zapis

writeln('1 ', x1:1:2, '      ', y1:1:2);

 

Zaloguj lub zarejestruj się, aby odpowiedzieć na to pytanie.

Podobne pytania

+1 głos
0 odpowiedzi 378 wizyt
0 głosów
0 odpowiedzi 203 wizyt
pytanie zadane 9 czerwca 2017 w Inne języki przez kamilaa Nowicjusz (120 p.)
0 głosów
1 odpowiedź 273 wizyt
pytanie zadane 27 stycznia 2016 w Inne języki przez Headhunter Gaduła (4,450 p.)

92,452 zapytań

141,262 odpowiedzi

319,085 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...