Question

Napisz program w Turbo Pascal'u!:)
A właściwie:
Mini kalkulatorek, w którym będą wykonywane działania takie jak:
+
-
*
/
Ma być to stworzone przy użyciu instrukcji CASE
Najlepiej zmienne a i b :P

Proszę o pomoc:)Daje naj:)))

Answer 1

Sa te dzialania z instrukcja case (jestem ze szkoły informatycznej)

Answer 2

Moja wersja jest bardziej zoptymalizowana, kod jest bardziej przejrzysty.

Program zadanie;

Uses
Crt;

var
a,b: integer;
wybor: char;

Begin
ClrScr;
Writeln ('Mini-kalkulator');
Writeln ('---------------');
Writeln ('Jakie dzialanie chcesz wykonac?');
Writeln ('1. Dodawanie');
Writeln ('2. Odejmowanie');
Writeln ('3. Mnozenie');
Writeln ('4. Dzielenie');
Repeat
wybor:=ReadKey;
Until wybor in ['1','2','3','4'];
Writeln;
Write ('a=');
Readln (a);
Write ('b=');
Readln (b);
Writeln;
Write ('Wynik dzialania ');
Case wybor of
'1': Write (a,'+',b,'=',a+b);
'2': Write (a,'-',b,'=',a-b);
'3': Write (a,'*',b,'=',a*b);
'4': Write (a,'/',b,'=',a/b:0:2);
End;
Readln;
End.