Programlama Rehberi


Arama

Askisaydam sordu
GÖRSEL PROĞRAMLAMA (DELPHİ) DERSİ SINAV SORULARI

Arkadaşlar Bana Görsel Proğramlamadan anlayan (Delphi) sorularını cevaplayacak bir arkadaş lazım.

Haftaya Sınavım var ve ben cevapları hala bulamıyorum.

Sorular:

1-Şekildeki formda butona tıklandığında edit1 ve edit2 de bulunan sayıların toplamını,çarpımını ve bölümünü showmessage fonksiyonu ile gösteren delphi prğ yazınız.

2-Button1 tıklandığında 150 ile 250 arasında üretilen rastgele 10 sayısı memo1 nesnesine ekleyen delphi prğ.yazınız.

3-Button1 tıklandığında edit1 içerisinde bulunan sayının basamakları toplamını showmessage fonksiyonu ile gösteren prğ.yazınız.

4-Şekildeki form ilk oluşturuldupunda memo1 içinde 0 ile 99 arası rastgele 10 sayı ekleyen ve button1 tıklandığında memo1 içinde bulunan 50 ve 50 den büyük olan sayıları memo2 ye taşıyacak olan delphi prğ.yazınız.

 

Arkadaşlar sorular bunlar.Çevremde delphiden anlayan kimse yok.Yardımcı olursanız sevinirim.1 soruyu dahi çözseniz  benim için yeterli.Şimdiden Teşekkür..

 
Yazılan cevap: 3
Eklenme tarihi: 2009-03-12
Okunma sayısı: 4152
Kategori: Pascal / Delphi

Cevaplar(3)

Procedure Tform1.Button1Click(Sender:TObject);

var

top,carp:integer;

bolum:real;

begin

top:=(strtoint(edit1.text)+(edit2.text));

carp:=(strtoint(edit1.text)+(edit2.text));

bolum:=(strtofloat(edit1.text)+(edit2.text));

showmessage(top,carp,bolum);

end;

 

 

böle bişeler olması lazım 1.sorunun cevabının,,rasgele sayı içinde random,randomize fln kullanoludu ama hatırlayamadım şimdi...


Yazan: berrinagirbas / Ort. puan: 0 /
Cevabı değerlendir:

diğerlerini cevabını bilen yok mu ya hiç sevmiyom b udelphi olsun paskal olsun göt göt programlar


Yazan: hsyn_70 / Ort. puan: 0 /
Cevabı değerlendir:
1 . SORUNUN CEVABI ...


  public
  topla,cikar,carp : integer ;
  bol : real;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button_ToplaClick(Sender: TObject);



begin
topla :=  StrToInt(Edit_Sayi1.Text)+StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ IntToStr(topla));
end;

procedure TForm2.Button_CikarClick(Sender: TObject);
begin
cikar :=  StrToInt(Edit_Sayi1.Text)-StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ IntToStr(cikar));
end;

procedure TForm2.Button_CarpClick(Sender: TObject);
begin
carp :=  StrToInt(Edit_Sayi1.Text)*StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ IntToStr(carp));
end;

procedure TForm2.Button_BolClick(Sender: TObject);
begin
bol :=  StrToInt(Edit_Sayi1.Text)/StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ FloatToStr(bol));
end;

end.


NOT :  HER İŞLEM İÇİN AYRI BİR BUTON KOYDUM.DEĞİŞKENLERİ DE PUBLİC İÇİNE TANIMLADIM TÜM BUTTON CLİCK LERDE DEĞİŞKENLERİ TANISIN DİYE..
Yazan: cnshn / Ort. puan: 0 /
Cevabı değerlendir:


ÖSS Puan Hesaplama | Bize Ulaşın | Tavsiye Edin | Sitenin Teknik Bilgileri | Kullanıcı Sözleşmesi | Bizi Destekleyin
2004-2009 © Programlama Rehberi, tüm hakları saklıdır.