Localize file
www.TrSek.com/cover/neznamy/kal.pas
{ KAL.PAS Copyright (c) ... }
{ }
{ Tento program je jednoducha kalkulacka. }
{ Operacie: - sèitanie }
{ - odèitanie }
{ - delenie }
{ - nasobenie }
{ - faktorial }
{ }
{ Author: Neznamy }
{ Date : 16.03.2009 http://www.trsek.com }
program kalkulacka;
uses crt,dos;
var a,b,c,d,e,f,g,h,r,j,k,l,m:real;
var i,y,n,x:integer;
var p:char;
begin
repeat
clrscr;
textcolor(3);
gotoxy(28,2);writeln('KALKULACKA');
gotoxy(40,2);writeln('VERZIA 1.1');
gotoxy(8,4);writeln('nasobenie = 1');
gotoxy(8,6);writeln('delenie = 2');
gotoxy(8,8);writeln('scitavanie = 3');
gotoxy(8,10);writeln('odcitanie = 4');
gotoxy(8,12);writeln('faktorial = 5');
readln(a);
if a=1 then begin
clrscr;
gotoxy(28,2);writeln('KALKULACKA');
gotoxy(2,4);writeln('Zadaj cisla ktore chces nasobit');
readln(b,c);
d:=b*c;
clrscr;
gotoxy(2,4);writeln(b:6:3,' * ',c:6:3,' = ',d:6:3);
readln;
end;
if a=2 then begin
clrscr;
gotoxy(28,2);writeln('KALKULACKA');
gotoxy(2,4);writeln('Zadaj cisla ktore chces delit');
readln(e,f);
g:=e/f;
clrscr;
gotoxy(2,4);writeln(e:6:3,' / ',f:6:3,' = ',g:6:3);
readln;
end;
if a=3 then begin
clrscr;
gotoxy(28,2);writeln('KALKULACKA');
gotoxy(2,4);writeln('Zadaj cisla ktore chces spocitat');
readln(h,r);
j:=h+r;
clrscr;
gotoxy(2,4);writeln(h:6:3,' + ',r:6:3,' = ',j:6:3);
readln;
end;
if a=4 then begin
clrscr;
gotoxy(28,2);writeln('KALKULACKA');
gotoxy(2,4);writeln('Zadaj cisla ktore chces odcitat');
readln(k,l);
m:=k-l;
clrscr;
gotoxy(2,4);writeln(k:6:3,' - ',l:6:3,' = ',m:6:3);
readln;
end;
if a=5 then begin
clrscr;
gotoxy(28,2);writeln('KALKULACKA');
gotoxy(2,4);writeln('Zadaj cislo z ktoreho chces faktorial');
readln(x);
n:=1;
y:=1;
for i:=1 to x do begin y:=y*n;
n:=n+1;
end;
clrscr;
gotoxy(2,4);writeln('Faktorial cisla ',x,' :(',x,'!) =',y);
readln;
end;
gotoxy(2,8);writeln('Opakovat pocitanie? y/n');
readln(p);
until p='n';
end.
Copyrigth by Zdeno Sekerak 2007,
http://www.trsek.com