uses crt;
var
h,sayit,us,sonuct,iki,bir,s,sonucs,p,k,sonuc,l,kac,i,a:longint;
o,sonucb:real;
begin
clrscr;
textcolor(white);
writeln('NAZIM DEMIR (SDU/Senirkent MYO ögrencisi)');
writeln;
writeln;
writeln(' GELISMIS BIR HESAP MAKINASI PROGRAMI');
textcolor(1);
writeln;
textcolor(white);
writeln(' !! islemleri yapmak icin yanlarindaki sayilari yazip entere basin !!');
writeln;
writeln(' **********************');
writeln(' * 1=TOPLAMA *');
textcolor(2);
writeln(' * 2=CIKARMA *');
textcolor(red);
writeln(' * 3=CARPMA *');
textcolor(5);
writeln(' * 4=BOLME *');
textcolor(6);
writeln(' * 5=US ALMA *');
textcolor(11);
writeln(' * 6=KAREKOK ALMA *');
writeln(' **********************');
textcolor(white);
readln(a);
case a of
1:
begin
write('kac sayi toplanacak=');
readln(kac);
for i:=1 to kac do
begin
write(i,'. sayiyi girin=');
readln(l);
sonuc:=sonuc+l;
end;
writeln('sonuc=',sonuc);
end;
2:
begin
write('1. sayiyi girin=');
readln(k);
write('2. sayiyi girin');
readln(p);
sonuc:=k-p;
writeln('sonuc=',sonuc);
end;
3:
begin
write('kac sayi carpilacak=');
readln(kac);
sonucs:=1;
for i:=1 to kac do
begin
write(i,'. sayiyi girin');
readln(s);
sonucs:=sonucs*s;
end;
writeln('sonuc=',sonucs);
end;
4:
begin
write('1. sayiyi girin=');
readln(bir);
write('2. sayiyi girin=');
readln(iki);
sonucb:=bir/iki;
writeln('sonuc=',sonucb:0:2);
end;
5:
begin
write('sayi girin=');
readln(sayit);
write('kacinci kuvveti alinacak=');
readln(us);
sonuct:=1;
for i:=1 to us do
begin
sonuct:=sonuct*sayit;
end;
writeln('sonuc=',sonuct);
end;
6:
begin
write('sayi girin=');
readln(h);
o:=sqrt(h);
writeln('sonuc=',o:0:7);
end;
else
writeln('yanlis rakam girdiniz !!!');
end;
readln;
end.
nazim demir
demirnazim@hotmail.com