Kalkulator [Free Pascal]

Dla specjalistów Programowanie
#1

Witam, mógłby ktoś spojrzeć na ten klakulator, ponieważ dla x liczb potrafie zrobic ale tylko jedno działanie, chcialem więc zrobic wszystko w jednym, ale cos mi nie idzie. Jeśli ktos sie na tym zna, prosze o pomoc.

program kalkulator;

uses crt;

  var

a , b :integer;



begin

clrscr;

writeln('----------');

writeln('KALKULATOR');

writeln('----------');

writeln('Wybierz jakie dzialanie program ma wykonac');

writeln('Nacisnij '1' wykonasz mnozenie');

writeln('Nacisnij '2' wykonasz dzielenie');

writeln('Nacisnij '3' wykonasz dodawanie');

writeln('Nacisnij '4' wykonasz odejmowanie');


if 1 then writeln('Wynik mnozenie = ',a*b);

if 2 then writeln('Wynik dzielenie = ',a/b);

if 3 then writeln('Wynik dodawanie = ',a+b);

if 4 then writeln('Wynik odejmowanie = ',a-b);

writeln('Program konczy swoje dzialanie, nacisnij ENTER');

readln;

end.

Wyskakuje 1 błąd, mianowicie przy tym wierszu

writeln('Nacisnij '1' wykonasz mnozenie');
#2

Aktualnie masz dwa napisy, a między nimi cyfrę. Aby umieścić apostrof wewnątrz ciągu znaków musisz go powtórzyć ileś razy (2-3? nie pamiętam już).

#3

Próbowałem i nic. Wziąłem jednak na koniec te liczby, myślałem, że może to coś zmieni.

program kalkulator;

uses crt;

  var

a , b :integer;



begin

clrscr;

writeln('----------');

writeln('KALKULATOR');

writeln('----------');

writeln('Wybierz jakie dzialanie program ma wykonac');

writeln('Chcesz wykonac mnozenie? Nacisnij ', ''1'');

writeln('Chcesz wykonac dzielenie? Nacisnij ',''2'');

writeln('Chcesz wykonac dodawanie? Nacisnij ', ''3'');

writeln('Chcesz wykonac odejmowanie? Nacisnij ', ''4'');



if ''1'' then writeln('Wynik mnozenie = ',a*b);

if ''2'' then writeln('Wynik dzielenie = ',a/b);

if ''3'' then writeln('Wynik dodawanie = ',a+b);

if ''4'' then writeln('Wynik odejmowanie = ',a-b);

writeln('Program konczy swoje dzialanie, nacisnij ENTER');

readln;

end.

To jest ten błąd

asdqw.jpg

Uploaded with ImageShack.us

#4

Musisz przypisać zmienną do wyboru działania. I później musisz sprawdzić czy ta zmienna jest właśnie tą wybraną przez użytkownika:

var

a,b,c :integer;



begin

writeln('----------');

writeln('KALKULATOR');

writeln('----------');

writeln('Wybierz jakie dzialanie program ma wykonac');

writeln('Chcesz wykonac mnozenie? Nacisnij ', '1');

writeln('Chcesz wykonac dzielenie? Nacisnij ','2');

writeln('Chcesz wykonac dodawanie? Nacisnij ', '3');

writeln('Chcesz wykonac odejmowanie? Nacisnij ', '4');

readln(c);


writeln('Podaj a');

readln(a);

writeln('Podaj b');

readln(b);



if c=1 then writeln('Wynik mnozenie = ',a*b);

if c=2 then writeln('Wynik dzielenie = ',a/b);

if c=3 then writeln('Wynik dodawanie = ',a+b);

if c= 4 then writeln('Wynik odejmowanie = ',a-b);

writeln('Program konczy swoje dzialanie, nacisnij ENTER');

readln;

end.
#5

szymon189 , ŚMIGA :))