Question

Napisz program dla dwóch podanych liczb całkowitych oraz wprowadzonego z klawiatury znaku działania wypisze na ekranie wynik tego działania.

Działania to dodawanie,odejmowanie, mnożenie, dzielenie, potęgowanie.

W Turbo Pascalu. Daje naj ;D

Answer 1

program kalkulator;
 uses crt;
 var
 a,b,i,wynik : integer;
 x :char;
 begin
 ClrScr;
 writeln('Program bedzie obliczal');
 writeln('Wybierz numer porzadkowy');
 writeln('1-dodawanie');
 writeln('2-odejmowanie');
 writeln('3-mnozenie');
 writeln('4-dzielenie');
 writeln('5-potegowanie');
 x :=readkey;
 case x of
 '1': begin
 writeln('podaj a');
 readln(a);
 writeln('podaj b');
 readln(b);
 writeln('wynik to=',a+b);
 readln;
 end;
 '2' : begin
 writeln('podaj a');
 readln(a);
 writeln('podaj b');
 readln(b);
 writeln('wynik to=',a-b);
 readln;
 end;
  '3' : begin
 writeln('podaj a');
 readln(a);
 writeln('podaj b');
 readln(b);
 writeln('wynik to=',a*b);
 readln;
 end;
  '4' : begin
 writeln('podaj a');
 readln(a);
 writeln('podaj b');
 readln(b);
 writeln('wynik to=',a/b);
 readln;
 end;
  '5' : begin
 writeln('podaj a');
 readln(a);
 writeln('podaj b');
 readln(b);
 wynik :=1;
 for i:=1 to b do wynik:=wynik*a;
 writeln('wynik to=',a,'^',b,'=',wynik);
 readln;
 end;
 end;
 end.

 

Liczę na Naj :)