Prosiłbym o poprawę kodu, to jest kalkulator w trybie graficznym, tzn był w tekstowy i działa, i zainicjowałem w trybie graficznym i pojawia się: " ERROR 2: Identifier expected ", proszę by działał w graficznym trybie w Turbo Pascalu.
Poniżej zamieszczam kod programu, to co udało mi się napisać:
Program kalkulator;
uses crt,graph;
var
liczba1,liczba2,wynik,i:real;znak:char;
label {menu,poczatek,dodawanie,odejmowanie,dzielenie,mnozenie)koniec;
procedure MENU; forward;
procedure DODAWANIE;
begin
driver:=detect;
initGraph(Driver,Mode,'c:\TP\bgi');
clrscr;
outtextxy('obliczenie wyrazenia');
write(' ');
read(liczba1);
write(' ');
read(liczba2);
wynik:=liczba1+liczba2;
outtextxy('wynik wynosi',' ',wynik:0:2);
write('Naci?nij dowolny klawisz');
readkey;
MENU;
end;
procedure ODEJMOWANIE;
begin
clrscr;
outtextxy('obliczenie wyrazenia ');
write(' ');
read(liczba1);
write(' ');
read(liczba2);
wynik:=liczba1-liczba2;
outtextxy('wynik wynosi',' ',wynik:0:2);
write('Naci?nij dowolny klawisz');
readkey;
MENU;
end;
procedure MNOZENIE;
begin
clrscr;
outtextxy('obliczenie wyrazenia ');
write(' ');
read(liczba1);
write(' ');
read(liczba2);
wynik:=liczba1*liczba2;
outtextxy('wynik wynosi',' ',wynik:0:2);
gotoxy(10,15);
write('press any key');
readkey;
MENU;
end;
procedure DZIELENIE;
begin
clrscr;
outtextxy('obliczenie wyraľenia a/b');
write(' ');
read(liczba1);
write(' ');
read(liczba2);
wynik:=liczba1/liczba2;
outtextxy('wynik wynosi',' ',wynik:0:2);
gotoxy(10,15);
write('press any key');
readkey;
MENU;
end;
procedure MENU;
begin
clrscr;
outtextxy('MENU');
outtextxy('1->dodawanie');
outtextxy('2->odejmowanie');
outtextxy('3->mnozenie');
outtextxy('4->dzielenie');
outtextxy('wyjscie z programu 5');
outtextxy('wybierz cyfre dzialania ktore chcesz wykonac ');
znak:=readkey;
if znak='1' then dodawanie;
if znak='2' then odejmowanie;
if znak='3' then mnozenie;
if znak='4' then dzielenie;
if znak='5' then halt;
end; {end menu}
begin
outtextxy('KALKULATOR');
menu;
end.