Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

Gönderen Konu: 2 Tane Soru Çok Acil Asp.net  (Okunma sayısı 576 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı hrn_37

  • Delphi 1 Level 1
  • *
  • İleti: 4
  • Rep: +0/-0
2 Tane Soru Çok Acil Asp.net
« : 15 Nisan 2011 17:42:11 »
Arkadaşlar yardımcı olursanız çok sevinirim..

Soru1

   5 basamaklı sayıyı yazıcaz
   sayının tersini ve basamakların toplamını kendi labellere yazıcak
Soru2

1.sayı yazıcaz 2.sayıyı yazıcaz 
 iki sayı arasındaki sayıların toplamı ve kaç adet olduğunu gösteren program

Şimdiden teşekkür ederim..
« Son Düzenleme: 15 Nisan 2011 17:44:38 by hrn_37 »

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.228
  • Rep: +54/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: 2 Tane Soru Çok Acil Asp.net
« Yanıtla #1 : 15 Nisan 2011 17:52:01 »
madem acil hemen cevap yazayım!!

neden acil ?



Amatör Küme Programcı

Çevrimdışı hrn_37

  • Delphi 1 Level 1
  • *
  • İleti: 4
  • Rep: +0/-0
Ynt: 2 Tane Soru Çok Acil Asp.net
« Yanıtla #2 : 15 Nisan 2011 17:54:35 »
Ödevim varda Hemen bu akşama kadar cevap olarak mail atmam lazım yardımcı olunabilirmi ondan sordum  Cevaplanırsa çok sevinirim...
« Son Düzenleme: 15 Nisan 2011 18:07:31 by hrn_37 »

Çevrimdışı hrn_37

  • Delphi 1 Level 1
  • *
  • İleti: 4
  • Rep: +0/-0
Ynt: 2 Tane Soru Çok Acil Asp.net
« Yanıtla #3 : 15 Nisan 2011 21:54:42 »
Cevaplanırsa eğer gerçekten çok yardımcı olmuş olursunuz

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.228
  • Rep: +54/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: 2 Tane Soru Çok Acil Asp.net
« Yanıtla #4 : 16 Nisan 2011 09:35:03 »
asp.net bilmem ama delphi olarak sana hazırladım sen oradan asp.net e uyarlayabilirsin..


Kod: [Seç]
var
  a, b, c, j   : integer;  // tam sayı tipinde değişkenler
begin

  a := StrToInt(Label1.Caption); // label1 in caption ına 12345 yaz..

  for j := Length(Label1.Caption) downto 0 do  // döngüyü tersten çalıştırıyoruz..
 // label1 in uzunluğundan 0 kadar döndürcek..
  begin
    Label2.Caption := Label2.Caption + Label1.Caption[j]; // label2 nin caption ına 54321 olarak yazdı
  end;

  b := StrToInt(Label2.Caption); // b değişkenine labelın caption özelliğini integera çevirerek atama yaptık.
  c := a + b; // a ve b yi topladık
  Label3.Caption := IntToStr(c); // label3 ün caption özelliğine C nin değerini atadık.


2. sorunu anlayamadım :S



Amatör Küme Programcı