Question

Napisz który wczytuje dwie dowolne liczny z klawiatury i bazując na menu daje możliwość wykonanania nastepujacych działań:

1.Suma +

2.Różnica -

3.Iloczyn *

4.Iloraz/

5.Dzielenie całkowite div

6.Reszta z dzielenie całkwitego mod

7.Info o autorze

Zkorzystaj z instrucji wyboru CASE.

Answer 1

program zad;
uses crt;
var
nr:integer;
a,b,c :real;

Begin
clrscr;

gotoXY (30,1);
writeln ('WYBIERZ JEDNA Z OPCJI');
gotoXY (35,3);
Writeln ('1. Suma');
gotoXY (35,4);
Writeln ('2. Roznica');
gotoXY (35,5);
Writeln ('3. Iloczyn');
gotoXY (35,6);
Writeln ('4. Iloraz');
gotoXY (35,7);
Writeln ('5. Dzielenie calkowite');
gotoXY (35,8);
Writeln ('6. Dzielenie z reszta');
gotoXY (35,9);
Writeln ('7. Autor');
gotoXY (35,10);
Writeln ('0. Wyjscie');
gotoXY (35,12);
Write ('Opcja nr: ');
Readln(nr);

Case nr OF
1: Begin
clrscr;
Write ('Podaj 1 liczbe: ');
readln (a);
Write ('Podaj 2 liczbe: ');
readln (b);
c:=a+b;
writeln ('Wynik: ', c:2:2)
End;
2: Begin
clrscr;
Write ('Podaj 1 liczbe: ');
readln (a);
Write ('Podaj 2 liczbe: ');
readln (b);
c:=a-b;
writeln ('Wynik: ', c:2:2)
End;
3: Begin
clrscr;
Write ('Podaj 1 liczbe: ');
readln (a);
Write ('Podaj 2 liczbe: ');
readln (b);
c:=a*b;
writeln ('Wynik: ', c:2:2)
End;
4: Begin
clrscr;
Write ('Podaj 1 liczbe: ');
readln (a);
Write ('Podaj 2 liczbe: ');
readln (b);
c:=a/b;
writeln ('Wynik: ', c:2:2)
End;
5: Begin
clrscr;
Write ('Podaj 1 liczbe: ');
readln (a);
Write ('Podaj 2 liczbe: ');
readln (b);
c:=a div b;
writeln ('Wynik: ', c:2:2)
End;
6: Begin
clrscr;
Write ('Podaj 1 liczbe: ');
readln (a);
Write ('Podaj 2 liczbe: ');
readln (b);
c:=a mod b;
writeln ('Wynik: ', c:2:2)
End;
7: Begin
clrscr;
Writeln ('Autor programu: ->imie i nazwisko<-');
End;
0: Begin
halt;
End;
End;

Repeat until keypressed;
End.