Mały problem z Pascalem Opcje

[kajzur]

Witam, piszę, z nadzieją, że ktoś zna Pascala (IMG:style_emoticons/default/biggrin.gif)

Co tu jest źle? O.o

[PASCAL] pobierz, plaintext 
  program kalkulator;
  uses crt;
  var  wybor, wynik, liczba1, liczba2:integer;
 
  begin
  writeln('Wybierz mozliwe dzialanie:');
  writeln('1 - Dodawanie.');
  writeln('2 - Odejmowanie. ');
  writeln('3 - Mnozenie. ');
  writeln('4 - Dzielenie. ');
 
 readln(wybor);
  clrscr;
 
 writeln('Wpisz 1 liczbe: ');
 readln(liczba1);
 writeln('Wpisz 2 liczbe: ');
 readln(liczba2);
 
		if (integer(wybor) = 1)  then
		wynik:= liczba1 + liczba2;
 
		 if (integer(wybor) = 2)  then
		wynik:= liczba1 - liczba2;
 
 
		 if (integer(wybor) = 3)  then
		wynik:= liczba1 * liczba2;
 
 
		 if (integer(wybor) = 4)  then
		wynik:= liczba1 / liczba2;
 
 repeat until keypressed;
 write(wynik);
 
  end.
[PASCAL] pobierz, plaintext 

Nie idzie go skompilować.. Krzyczy że błąd w linii gdzie jest if co do wartosci wybor = 4 O.o

kalkulator.pas(40,25) Error: Incompatible types: got "Extended" expected "SmallInt"
kalkulator.pas(53,6) Fatal: There were 1 errors compiling module, stopping
kalkulator.pas(0) Fatal: Compilation aborted

Powód edycji: [kwiateusz]: uzywaj poprawnego bbcode

[Fafu]

Hmm może o to chodzi że jak dzielisz to może być reszta a ty dałeś integer (liczba całkowita). Więc albo zaokrąglić albo zmienić typ zmiennej "wynik".
Nie mam pojęcia czy o to chodzi bo pascala słabo znam (IMG:style_emoticons/default/tongue.gif)

[Spawnm]

wywal integer i brak ci end; ów po ifach ale chyba nie są obowiązkowe, ale za to widzę że robisz if() then , zobacz bez tego nawiasu .
http://www.pascal.eu.org/lekcja2.htm#if_then

[magnus]

Skoro zmienna wybór jest zadeklarowana jako integer to nie ma sensu jej jeszcze raz na integer zamieniać, zresztą to chyba nie tak w pascalu się robi.
Zamiast if-ów zastosuj case ... of.
W pascalu nie trzeba nawiasu po if, ale szkodzić nie będzie. Natomiast jeśli masz dzielenie, to zmienna przechowująca wynik dzielenia musi być zmiennoprzecinkowa (czyli zm. "wynik" musi być typu double czy podobnego). Potem ew. można przy wyświetlaniu sformatować (write(wynik:5:2) - 2 miejsca po przecinku).

[kajzur]

Dzięki, paca (IMG:style_emoticons/default/smile.gif)