Güzel İnsanlar Topluluğu  

Anasayfa Kimler Online Bugünki Mesajlar Forumları Okundu Kabul Et
Go Back   Güzel İnsanlar Topluluğu > Bilgisayar Dünyası > Webmaster Kaynağı > Java
Sayfaya güncelle Delphi - Üs Hesaplama Programı

Kayıt ol Video Portalı Yardım Ajanda Forumları Okundu Kabul Et

Yeni Konu aç Cevapla
 
Seçenekler
Alt 10-31-2009, 06:16 AM   #1
Kullanıcı Profili
M£LT£M
Banned
AvaTaR
 
M£LT£M - ait Kullanıcı Resmi (Avatar)
Bilgiler
M£LT£M M£LT£M isimli Üye şimdilik offline konumundadır
Üye No: 337
Üyelik tarihi: Oct 2009
Bulunduğu yer: 35,BuÇuK
Konular:
Mesajlar: 3,177

Tesekkür: 788
562 Mesajina 876 Tesekkür Aldi
Karizma
Tecrübe Puanı: 0
Karizma Puanı : 15
Karizma Seviyesi: M£LT£M is on a distinguished road
Çekicilik

Level: 43 [♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥]
Paylaşım: 1610 / 1610
Güç: 1029 / 1029
Tecrübe: 94%

İletişim
Standart Delphi - Üs Hesaplama Programı

 
Virgullu rakamlarda dahil, rakamların üslerini hesaplayan program.. Ornek= 2³ -> 8
unit
Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end; var
Form1: TForm1;
implementation {$R *.dfm} procedure
TForm1.Button1Click(Sender: TObject);
var a,b,c:real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); C:=Exp(B*Ln(A)); Edit3.Text:=FloatToStr(c); end; procedure TForm1.Button2Click(Sender: TObject);
begin edit1.text:="; edit2.text:="; edit3.text:=";
end;
end.


M£LT£M isimli Üye şimdilik offline konumundadır   Tesekkür Alıntı ile Cevapla
M£LT£M
Açık Profil bilgileri
M£LT£M - Daha fazla Mesajını bul
Cevapla

Etiketler
delphi, hesaplama, programı

« önceki Konu | sonraki Konu »
Seçenekler
Yazdırılabilir şekli göster Yazdırılabilir şekli göster
Sayfayı E-Mail olarak gönder Sayfayı E-Mail olarak gönder

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ı

Forum Rules
Hizli Erisim


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:22 PM.

Bize Yazin - Güzel İnsanlar Topluluğu - Arşiv - Yukarı git

Powered by vBulletin® Version 3.8.4 .
Copyright ©2000 - 2010, Jelsoft Enterprises Ltd.
Destek Verenler
||2009Arşivi ||Trsitesi|| Sanasevdam||Güzel Blog|| Amcamız|| Limon Forum|| En Tatlı|| Barış Manço|| Resimler mirc indir
Site İçi Bilgileri
Ödül Listesi Son Konular Arşivi Etiket Bulutu
Önemli Uyarı
www.emekforum.net Yüzlerce kişinin paylaşım ve yorum yaptığı bir forum sitesidir. Kullanıcıların paylaşımları ve yorumları onaydan geçmeden hemen yayınlanmaktadır. Paylaşım ve yorumlardan doğabilecek bütün sorumluluk kullanıcıya aittir. Emekforum Yöneticileri yapılan paylaşımları ve yorumları kontrol etmekde, fakat gözden kaçanlar olabilmektedir. Eğer Türkiye Cumhuriyeti yasalarına uymayan ve telif hakkı içeren bir paylaşımın forumumuzda yapıldığına rastladıysanız lütfen bizi bu konuda bilgilendiriniz, bildirgeniz incelendikden hemen sonra gereken yapılacaktır.Bize Yazın BURADAN