Pomocy!Pascal

[Dj_Piot3r (Pioter 14)]

Uses crt; var ch : char; procedure Wait; begin ch:=ReadKey end; var i : integer; Liczba1, Liczba2, Wynik : real; Dzialanie : char; Blad : Boolean; nr:longint; begin DirectVideo:=false; for i:=1 to 1800 do write(’*’); TextAttr:=Blink + Black shl 4 + White; GotoXY(25,12); writeln(‘Kalkulator By Piter v 0.01a xD’); Wait;readkey;clrscr; begin writeln; textcolor(green);textbackground(blue); writeln(‘N - Nieskoäczonosc’) ; writeln; write('Podaj pierwsza liczbe: '); readln(Liczba1); write('Podaj druga liczbe: '); readln(Liczba2); write('Rodzaj dzialania (+ - * /): ‘); readln(Dzialanie); Blad:=false; case Dzialanie of ‘+’ : Wynik:=Liczba1+Liczba2; ‘-’ : Wynik:=Liczba1-Liczba2; ‘*’ : Wynik:=Liczba1*Liczba2; ‘/’ : if Liczba2 <> 0 then Wynik:=Liczba1/Liczba2 else Blad:=true; else Blad:=true end; if not Blad then writeln(Liczba1,’ ‘,Dzialanie,Liczba2,’ = ',Wynik) else writeln(‘Blad argumentu lub operatora.’); readln; clrscr; end; begin write(‘Jeszcze raz?(1 - dla TAK,2 - dla NIE)’); readln(nr); if(nr=1)then repeat if(nr=2)then write('W takim razie Dzi©kuje i do zobaczenia '); readln; end; end.

Co tu jest źle?

Za każdym razem wyskakuje mi error 113:error in statement czy jakos tak…

Proszę o pomoc…

Potrzebuje tego na pon.Będe wdzięczny za każdą pomoc…

[_alex]

Masz repeat bez niczego, 5 wiersz od końca zresztą kompilator ci o tym wyraźnie mówi.

[rozwalkompa]

Może być mniej więcej tak:

(…) writeln(‘Kalkulator By Piter v 0.01a xD’); Wait;readkey;clrscr; REPEAT writeln; textcolor(green);textbackground(blue); writeln(‘N - Nieskoäczonosc’) ; writeln; (…) begin write(‘Jeszcze raz?(1 - dla TAK,2 - dla NIE)’); readln(nr); if nr=1 then continue else if nr=2 then begin write('W takim razie Dzi©kuje i do zobaczenia '); break; end else writeln(‘Nieprawidłowy kod’); UNTIL false; //powtarza dopóki nie wykona ‘break’ readln; end; end.

[Dj_Piot3r (Pioter 14)]

rozwalkompa WIELKIE dzięki.Podziałało.Siedzialem nad tym kilka godzin i nic…

Naprawdę DZIĘKI!