-
Delphi
(
https://www.ircforumlari.net/delphi/)
Dilaold | 16 Nisan 2010 12:28 | Geometrik Hesaplamalar Geometrik şekillerin alan ve çevresini hesaplayan uygulama.. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] PHP- Kodu: unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) GroupBox1: TGroupBox; KLabel1: TLabel; kare1: TEdit; KLabel2: TLabel; KLabel3: TLabel; kare2: TEdit; kare3: TEdit; KButton1: TButton; GroupBox2: TGroupBox; DLabel1: TLabel; DLabel2: TLabel; dikgen1: TEdit; dikgen2: TEdit; DButton1: TButton; dikgen3: TEdit; dikgen4: TEdit; DLabel3: TLabel; DLabel4: TLabel; Derr1: TLabel; GroupBox3: TGroupBox; ULabel1: TLabel; ULabel2: TLabel; ucgen1: TEdit; ucgen2: TEdit; UButton1: TButton; ULabel3: TLabel; ucgen3: TEdit; GroupBox4: TGroupBox; CLabel1: TLabel; CLabel2: TLabel; CLabel3: TLabel; cember2: TEdit; cember3: TEdit; cember1: TEdit; Button1: TButton; GroupBox5: TGroupBox; SLabel1: TLabel; SLabel2: TLabel; SLabel3: TLabel; SLabel4: TLabel; sil1: TEdit; sil2: TEdit; sil4: TEdit; sil3: TEdit; SButton2: TButton; procedure KButton1Click(Sender: TObject); procedure DButton1Click(Sender: TObject); procedure UButton1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure SButton2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; 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(Sender: TObject);
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(Sender: TObject); 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>a) Then 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(Sender: TObject); 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(Sender: TObject); 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(Sender: TObject);
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(Sender: TObject); begin form1.Scaled:=false; end;
end.
|
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:40. | |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net