Pascal czegos tu brakuje

[janus]

Mam pytanko niezbyt sie znam na pascalu, wydaje mi sie że ten programik powinien chodzic a jakos nie chce wiecie moze czemu

 

 

rogram kalkulator;

var

liczba1, liczba2, wynik : integer;

wola : char

begin

writeln ('Podaj pierwsza liczbe');

readln (liczba1);

writeln ('podaj druga liczbe');

readln (liczba2);

writeln ('Wybierz znak działania * / - +');

case wola of

'*' : wynik := liczba1 * liczba2;

'/' : wynik := liczba1 / liczba2;

'-' : wynik := liczba1 - liczba2;

'+' : wynik := liczba1 + liczba2;

writeln('wynik to: ',wynik);

readln;

end.

 

 

Za pomoc dziekuję

[NetWalker]

A gdzie odczytujesz z wejścia znak działania ?

Dodaj linie read(wola); czy coś :P

[BuBu]

+

1)

brakuje enda po case'ie

case wola of'*' : wynik := liczba1 * liczba2;'/' : wynik := liczba1 / liczba2;'-' : wynik := liczba1 - liczba2;'+' : wynik := liczba1 + liczba2;end;writeln('wynik to: ',wynik);

2)

wynik dzielenia ( / ) musi być typu rzeczywistego (real) lub jak chcesz moze sz dzielić ale tylko całkowicie poleceniem div

wynik :real; (powinno działac tylko wynik będzie miał brzytką postać

jak jeszcze bedziesz miał jakies pytania to wal śmiało na GG 1635922 (jestem ukryty czesto)

[SGJ]

[php:1:f270265804]Program kalkulator;

var

liczba1,liczba2,wynik:real;

wola:char;

begin

writeln('Podaj 1 liczbe');

readln(liczba1);

writeln('Podaj 2 liczbe');

readln(liczba2);

writeln('Wybierz znak dzialania * / - +');

readln(wola);

case wola of

'*':wynik:=liczba1 * liczba2;

'/':wynik:=liczba1 / liczba2;

'-':wynik:=liczba1 - liczba2;

'+':wynik:=liczba1 + liczba2;

end;

writeln('Wynik to: ', wynik:10:2);

readln;

end.[/php:1:f270265804]

[paprotek]

nie mozna dzielic przez 0 ;/ to musisz tez uwzglednic! jesli nadal (po 2tyg.) Ci to potrzebne to zapraszam na www.paprotek.ynet.pl/kalkulator