Alan tabanı bulmak için harika bir program deneyin... ben gültepe endüstri meslek lisesi bilgisayar bölümü ögrencisi murat karadeniz capalarım sonucu ortaya bu program çıktı ama cok güzel oldu cok yararlı saygılarımla
(yapamazsın dediler ama yaptım)
{ *********************************************
DIKDORTGEN-UCGEN-DAIRE ALAN HESABI
(TurboPascal)
*********************************************}
PROGRAM ALAN_HESABI;
Uses crt; {EKRAN,SES VE TUS KOMUTLARINI KULLAN}
Var {DEGiSKENLERiN (VarIABLES) TANITIMI}
ADK,AUC,ADA,GENIS,UZUNL,TABAN,YUKS,YCAP : real; {REAL SAYI OLSUN}
A: char; {charACTER DEGiSKENi OLSUN (EVET/HAYIR ICIN)}
SEC: integer; {integer TAM SAYI}
BEGIN {iSLEMLERE BASLANGIC YAPILIYOR}
REPEAT
clrscr; {SONUC YAZMA ONCESI EKRANI TEMIZLER}
writeln('ALAN HESABI YAPILACAK GEOMETRiYi SECiNiZ');
writeln( '1 - DIKDORTGEN 2 - UCGEN 3 - DAIRE');
writeln; {1 BOS SATIR BIRAK}
writeln('RAKAM OLARAK SECIMINIZ: ');
readln(SEC);
writeln;
{ * DIKDORTGEN ICIN * }
IF SEC = 1 THEN
Begin
writeln('DIKDORTGENIN GENISLIGI: ');
readln(GENIS);
writeln('DIKDORTGENIN BOYU : ');
readln(UZUNL);
ADK := GENIS*UZUNL;
writeLN('DIKDORTGENIN ALANI :',ADK:4:3,' M^2');
End;
{ * UCGEN ICIN * }
IF SEC=2 THEN
Begin
writeln('UCGENIN YUKSEKLIGI : ');
readln(YUKS);
writeln('UCGENIN TABANI : ');
readln(TABAN);
AUC := TABAN * YUKS / 2;
writeln( 'UCGENIN ALANI : ',AUC:4:3,' M^2');
End;
{ * DAIRE ICIN *}
IF SEC = 3 THEN
Begin
WRITELN('DAIRENIN YARICAPINI GIRINIZ: ');
readln(YCAP);
ADA := Pi * sqr(YCAP); {Pi SAYISI SABIT OLARAK PASCAL'DA MEVCUT}
writeln( 'DAIRENIN ALANI :',ADA:4:3,' M^2');
End;
writeln;
Write('TEKRAR HESAP YAPMAK ISTIYOR MUSUNUZ ? ');
Write('< E=EVET H=HAYIR > ');
READLN(A);
UNTIL A='H';
END.
(yapamazsın dediler ama yaptım)
{ *********************************************
DIKDORTGEN-UCGEN-DAIRE ALAN HESABI
(TurboPascal)
*********************************************}
PROGRAM ALAN_HESABI;
Uses crt; {EKRAN,SES VE TUS KOMUTLARINI KULLAN}
Var {DEGiSKENLERiN (VarIABLES) TANITIMI}
ADK,AUC,ADA,GENIS,UZUNL,TABAN,YUKS,YCAP : real; {REAL SAYI OLSUN}
A: char; {charACTER DEGiSKENi OLSUN (EVET/HAYIR ICIN)}
SEC: integer; {integer TAM SAYI}
BEGIN {iSLEMLERE BASLANGIC YAPILIYOR}
REPEAT
clrscr; {SONUC YAZMA ONCESI EKRANI TEMIZLER}
writeln('ALAN HESABI YAPILACAK GEOMETRiYi SECiNiZ');
writeln( '1 - DIKDORTGEN 2 - UCGEN 3 - DAIRE');
writeln; {1 BOS SATIR BIRAK}
writeln('RAKAM OLARAK SECIMINIZ: ');
readln(SEC);
writeln;
{ * DIKDORTGEN ICIN * }
IF SEC = 1 THEN
Begin
writeln('DIKDORTGENIN GENISLIGI: ');
readln(GENIS);
writeln('DIKDORTGENIN BOYU : ');
readln(UZUNL);
ADK := GENIS*UZUNL;
writeLN('DIKDORTGENIN ALANI :',ADK:4:3,' M^2');
End;
{ * UCGEN ICIN * }
IF SEC=2 THEN
Begin
writeln('UCGENIN YUKSEKLIGI : ');
readln(YUKS);
writeln('UCGENIN TABANI : ');
readln(TABAN);
AUC := TABAN * YUKS / 2;
writeln( 'UCGENIN ALANI : ',AUC:4:3,' M^2');
End;
{ * DAIRE ICIN *}
IF SEC = 3 THEN
Begin
WRITELN('DAIRENIN YARICAPINI GIRINIZ: ');
readln(YCAP);
ADA := Pi * sqr(YCAP); {Pi SAYISI SABIT OLARAK PASCAL'DA MEVCUT}
writeln( 'DAIRENIN ALANI :',ADA:4:3,' M^2');
End;
writeln;
Write('TEKRAR HESAP YAPMAK ISTIYOR MUSUNUZ ? ');
Write('< E=EVET H=HAYIR > ');
READLN(A);
UNTIL A='H';
END.
