Masz tutaj przyklad kalkulatora przeanalizuj go i nie bedziesz mial problemu
program kalkulator;
var
L1, L2, wynik: integer;
dzialanie: char;
Blad: boolean;
begin
writeln('Podaj pierwsza liczbe');
readln(L1);
writeln('Podaj druga liczbe');
readln(L2);
writeln('Podaj rodzaj dzialania [+,-,*,/]');
readln(dzialanie);
blad:false;
case Dzialanie of
'+' : wynik := L1+L2;
'-' : wynik := L1-L2;
'*' : wynik := L1*L2;
'/' : if L2 <> 0 then
wynik:= L1/L2
else
Blad:= true;
else
Blad:= true
end;
if not Blad then
writeln(L1,' ',Dzialanie,L2,' = ',Wynik)
readln;
end.
Zaczerpniete z jakiegos faq nie pamietam z jakiego. Nie za bardzo rozumiem o co ci chodzi z tym kalkulatorem, napisz dokladnie gdzie tkwi problem.
Modul graph raz jest z Pascalem raz nie ma
[
www.binboy.org pollokaj tam].
Nie za bardzo tez rozumiem o co ci chodzi z tym L1:=2 ty chcesz, aby L1 byla rowna 2 chyba. Jezeli tak to przypisz jej ta wartosc po prostu.
Opisz dokladnie problem dlaczego chcesz aby L1 rownalo sie 2. Moze da sie to zrobic w inny prostszy sposob.
Podany przyklad kalkulatora wyzej jest troche rozbudowany o zabezpieczenie dzielenia przez zero, dlatego mozesz sie go przestraszyc jezeli dopiero zaczynasz programowac. Ale pamietaj ze mozna zrobic z niego okrojona wersje.