Question

Proszę o zrobienie prostego kalkulatora w Delphi 7 z funkcjami dodawania, odejmowania, mnozenia, dzielenia i i usuwania. DUZO PUNKTOW! PILNEEEE! DAJE NAJ!

Answer 1

program Kalkulator;

{$apptype console}
var
liczba1,liczba2,opcja:longint; // zamiennie można dać zmiennoprzecinkowe :>

begin
repeat
writeln('Podaj pierwszą liczbę');
readln(liczba1);
writeln('Podaj drugą liczbę');
readln(liczba2);
writeln('1-Dodawanie , 2-Odejmowanie , 3-Mnożenie , 4-Dzielenie! 5-Koniec programu');
readln(opcja);

if opcja=1 then
writeln('Wynik to : ',liczba1+liczba2);
if opcja=2 then
writeln('Wynik to : ',liczba1-liczba2);
if opcja=3 then
writeln('Wynik to : ',liczba1*liczba2);
if opcja=4 then
writeln('Wynik to : ',liczba1 div liczba2); //Całkowita część z dzielenia , bez reszty.
until opcja=9;
end.