Mam pytanie, czy posiadacie program w turbo Pascalu w trybie graficznym, żeby liczył mnożenie, dzielenie, dodawanie i odejmowanie w zakresie do 25, najprostszy jaki może być.
Pozdrawiam
Pozdrawiam
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tamProgram kalkulator;
uses crt;
var
liczba1,liczba2,wynik,i:real;znak:char;
label {menu,poczatek,dodawanie,odejmowanie,dzielenie,mnozenie)koniec;
procedure MENU; forward;
procedure DODAWANIE;
begin
clrscr;
writeln('obliczenie wyrazenia');
write(' ');
read(liczba1);
write(' ');
read(liczba2);
wynik:=liczba1+liczba2;
writeln('wynik wynosi',' ',wynik:0:2);
write('Naci?nij dowolny klawisz');
readkey;
MENU;
end;
procedure ODEJMOWANIE;
begin
clrscr;
writeln('obliczenie wyrazenia ');
write(' ');
read(liczba1);
write(' ');
read(liczba2);
wynik:=liczba1-liczba2;
writeln('wynik wynosi',' ',wynik:0:2);
write('Naci?nij dowolny klawisz');
readkey;
MENU;
end;
procedure MNOZENIE;
begin
clrscr;
writeln('obliczenie wyrazenia ');
write(' ');
read(liczba1);
write(' ');
read(liczba2);
wynik:=liczba1*liczba2;
writeln('wynik wynosi',' ',wynik:0:2);
gotoxy(10,15);
write('press any key');
readkey;
MENU;
end;
procedure DZIELENIE;
begin
clrscr;
writeln('obliczenie wyraľenia a/b');
write(' ');
read(liczba1);
write(' ');
read(liczba2);
wynik:=liczba1/liczba2;
writeln('wynik wynosi',' ',wynik:0:2);
gotoxy(10,15);
write('press any key');
readkey;
MENU;
end;
procedure MENU;
begin
clrscr;
writeln('MENU');
writeln('1->dodawanie');
writeln('2->odejmowanie');
writeln('3->mnozenie');
writeln('4->dzielenie');
writeln('wyjscie z programu 8');
writeln('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='8' then halt;
end; {end menu}
begin
writeln('KALKULATOR');
menu;
end. 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. piotr5000 napisał:Czarek1992 W załączniku masz przykładowy plik.
Program powstał w 1992 r , i nie sprawdzałem go z obecnymi kartami graficznymi.
Po skompilowaniu i uruchomieniu na ekranie powinieneś mieć zegar.
Niestety nie kalkulator. Jeśli normalnie się uruchomi daj znać.
Znajdziesz tam jak zainicjować tryb graficzny i wyświetlić tekst na ekranie.
Nie mam teraz Pascala i nie mogę go sprawdzić.
Plik ma dzisiejszą datę , bo usunąłem z niego swoje nazwisko
( przez skromność , nie ze wstydu )
