Proszę o zrobienie prostego kalkulatora w Delphi 7 z funkcjami dodawania, odejmowania, mnozenia, dzielenia i i usuwania. DUZO PUNKTOW! PILNEEEE! DAJE NAJ!
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
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.