Kalkulator w Delphi !

Programowanie Odsłon: 783
Witam. Przedstawiam Wam prosty kalkulator zrobiony w Delphi 7 ;)
A o to kod : (Otwórz Delphi--->File--->Close" , następnie Project--->View Source)

program Kalkulator By Delphiarz1231;

{$apptype console}
var
liczba1,liczba2,key:longint;

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(key);

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


Jest to prosty kalkulator na dodawanie/ odejmowanie/ mnożenie/ dzielenie. Przy dzieleniu jest napisany komentarz , a mianowicie ,,Całkowita część z dzielenia , bez reszty." Jeśli chciałby ktoś z resztą kod można zmienić z :
writeln('Wynik to : ',liczba1 div liczba2);
Na :
writeln('Wynik to : ',liczba/liczba2);

Myślę że jak na pierwszy kalkulator nie jest źle (bo dopiero zaczynam przygodę z programowaniem) ;)

Dziękuję za uwagę i pozdrawiam ! ;)

Related Articles