IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Nisan 2010, 12:28   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Geometrik Hesaplamalar




Geometrik şekillerin alan ve çevresini hesaplayan uygulama..


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
unit Unit1;

interface

uses
Windows
MessagesSysUtilsVariantsClassesGraphicsControls,  Forms,
DialogsStdCtrls;

type
TForm1 
= class(TForm)
GroupBox1TGroupBox;
KLabel1TLabel;
kare1TEdit;
KLabel2TLabel;
KLabel3TLabel;
kare2TEdit;
kare3TEdit;
KButton1TButton;
GroupBox2TGroupBox;
DLabel1TLabel;
DLabel2TLabel;
dikgen1TEdit;
dikgen2TEdit;
DButton1TButton;
dikgen3TEdit;
dikgen4TEdit;
DLabel3TLabel;
DLabel4TLabel;
Derr1TLabel;
GroupBox3TGroupBox;
ULabel1TLabel;
ULabel2TLabel;
ucgen1TEdit;
ucgen2TEdit;
UButton1TButton;
ULabel3TLabel;
ucgen3TEdit;
GroupBox4TGroupBox;
CLabel1TLabel;
CLabel2TLabel;
CLabel3TLabel;
cember2TEdit;
cember3TEdit;
cember1TEdit;
Button1TButton;
GroupBox5TGroupBox;
SLabel1TLabel;
SLabel2TLabel;
SLabel3TLabel;
SLabel4TLabel;
sil1TEdit;
sil2TEdit;
sil4TEdit;
sil3TEdit;
SButton2TButton;
procedure KButton1Click(SenderTObject);
procedure DButton1Click(SenderTObject);
procedure UButton1Click(SenderTObject);
procedure Button1Click(SenderTObject);
procedure SButton2Click(SenderTObject);
procedure FormCreate(SenderTObject);
private
{ Private 
declarations }
public
{ Public 
declarations }
end;

var
Form1TForm1;
a,b,cevre,alan:integer;
ralan,rcevre:real;                     { Değişkenler tanımlanıyor.}
const
pi:real=3.14;
implementation

{$R *.dfm}

procedure TForm1.KButton1Click(SenderTObject);

begin

//?Kare? 
a:=strtoint(kare1.text);  //Karenin bir kenar uzunluğu alınıyor.
cevre:=a*4;        //Çevresi hesaplanıyor.
alan:=sqr(a);         //?sqr()? fonksiyonu ile karenin bir kenarının  karesiyle karenin alanı hesaplanıyor.
kare2.text:=inttostr(alan);          // kare2 adlı edit?e karenin alanı  yazdırılıyor.
kare3.text:=inttostr(cevre);           //kare3 adlı edit?e karenin  çevresi yazdırılıyor.
end;

procedure TForm1.DButton1Click(SenderTObject);
begin

//?Dikdörtgen?
derr1.caption:=?;
a:=strtoint(dikgen1.text);    //Uzun kenar uzunluğu alınıyor.
b:=strtoint(dikgen2.text);    //Kısa kenar uzunluğu alınıyor.
If (b>aThen begin                 //Bir dikdörtgende kısa kenar  uzun kenardan uzun olamayacağı için bunu engellemek amacıyla kontrol  ediliyor.
derr1.Font.Color:=clred;     //Uyarımızın rengini kırmızı olarak  ayarladık.
derr1.caption:=?*Kısa kenar uzun kenardan büyük olmamalı!..?;    //Uyarı..
end
else begin
alan
:=a*b;           //Kısa kenar uzun kenardan uzun değilse alanı  hesaplanıyor.
cevre:=(a+b)*2;      //Çevresi hesaplanıyor.
dikgen3.text:=inttostr(alan); // dikgen3 adlı edit?e dikdörtgenin alanı  yazdırılıyor.
dikgen4.text:=inttostr(cevre); // dikgen4 adlı edit?e dikdörtgenin  çevresi yazdırılıyor.
end;end;

procedure TForm1.UButton1Click(SenderTObject);
begin

//?Üçgen?
a:=strtoint(ucgen1.text);   //Dikkenar uzunluğu alınıyor.
b:=strtoint(ucgen2.text);    //Taban uzunluğu alınıyor.
ralan:=(a*b)/2;        //Üçgenin alanı hesaplanıyor.
ucgen3.text:=floattostr(ralan);    //Üçgenin alanı ucgen3 adlı edite  yazdırılıyor.
end;

procedure TForm1.Button1Click(SenderTObject);
begin

//?Çember?
a:=strtoint(cember1.text);   //Yarıçap alınıyor.
ralan:=2*pi*sqr(a);    //Alan hesaplanıyor.
rcevre:=2*pi*a;           // Çevresi hesaplanıyor.
cember2.text:=floattostr(ralan);    // cember2 adlı edit?e çemberin  alanı yazdırılıyor.
cember3.text:=floattostr(rcevre); // cember3 adlı edit?e çemberin  çevresi yazdırılıyor.
end;

procedure TForm1.SButton2Click(SenderTObject);

begin

//?Silindir?
a:=strtoint(sil1.text);    //Yarıçap alınıyor.
b:=strtoint(sil2.text);    //Yükseklik alınıyor.
ralan:=pi*sqr(a)*b;       //Alan hesaplanıyor.
rcevre:=2*pi*a*b;     //Çevre hesaplanıyor.
sil3.text:=floattostr(ralan); // sil3 adlı edit?e silindirin alanı  yazdırılıyor.
sil4.text:=floattostr(rcevre); // sil4 adlı edit?e silindirin çevresi  yazdırılıyor.
end;

procedure TForm1.FormCreate(SenderTObject);
begin
form1
.Scaled:=false;
end;

end


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
geometrik, hesaplamalar


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Kimyasal Hesaplamalar PySSyCaT Kimya 0 15 Ekim 2014 23:10