Programalama > PASCAL

Etiketler: hesap, makinasi

Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.