Jednoduchá kalkulačka

{ 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.