Programalama > PASCAL

Etiketler: prosedür, ile, menülü, islem

Ort. 0
Puan ver:
uses crt;
var
sec:integer;
procedure dikdortgenin_alani;
var
uzun,kisa:integer;
dik_alan:real;
begin
clrscr;
writeln('Uzun Kenari Giriniz');
readln(uzun);
writeln('Kisa Kenar Giriniz');
readln(kisa);
dik_alan:=(uzun*kisa);
Writeln('Dikd”rtgenin alan=',dik_alan:2:0);
end;
procedure daire_alan;
var
pi,r,daire_alan:integer;
begin
clrscr;
writeln('Pi Sayisini Giriniz');
readln(pi);
writeln('diger Sayiyi Girniniz');
readln(r);
daire_alan:=(pi*r*r);
writeln('Dairenin Alani=',daire_alan);
end;
procedure uc_alani;
var
taban,yukseklik,uc_alan:integer;
begin
clrscr;
writeln('Taban Uzunlugunu Giriniz');
readln(taban);
writeln('Yksekligi Giriniz');
readln(yukseklik);
uc_alan:=(taban*yukseklik);
writeln('šcgenin Alan=',uc_alan);
end;
begin
clrscr;
writeln('MENU');
writeln('=========================');
writeln('1.Dikd”tgenin Alani');
writeln('2.Dairenin Alani');
writeln('3.U‡genin Alan');
writeln('4.€ikis');
writeln('Se‡iminiz=');readln(sec);

if sec=1 then dikdortgenin_alani;
if sec=2 then daire_alan;
if sec=3 then uc_alani;
if sec=4 then exit;
readln;
end.


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 - 2020 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.