Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

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

Gönderen Konu: [YARDIM] Çeşitli orta düzey problemler  (Okunma sayısı 621 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı -Comandante

  • Delphi 1 Level 1
  • *
  • İleti: 9
  • Rep: +0/-0
[YARDIM] Çeşitli orta düzey problemler
« : 11 Ocak 2012 10:46:38 »
Delphiye yeni başlamış birisi olarak henüz istediğim şeyi yapabilme aşamasına gelemedim.
Bu yüzden sizden birkaç problem çözümü için yardım isteyeceğim :)

Soru ) 40 basamaklı iki sayıyı toplayan bir fonksiyon yazınız. Sayı klavyeden girilecek ve fonksiyon ismi topla() olmalıdır. 

Soru ) Girilen sayılar arasından en küçük 3 ve en büyük 3 sayıyı listeleyen program.
( Amaç burada sadece 6 sayı girmek değil örneğin 100 sayı girilse bile en küçük 3 ve en büyük 3 tanesini sıralayabilmek olmalıdır)

(Site içerisinde yaptığım araştırmada http://www.delphidunyasi.net/delphi-sorulari/girilecek-uc-adet-sayiyi-buyukten-kucuge-dogru-siralayan-program/  bu konuyu buldum fakat uğraşlarım sonucu istediğim şeyi yapamadım belki sizede bana yardım ederken yardımcı olabilir )

Soru ) Aracın otopark ücretinin hesaplanması .Araçların en fazla 24 saat kaldığını varsayarak gereken program.

0-2 saat 150 bin
2-8 saat 300 bin
8-24 saat 500 bin

Öncelikle yardımda bulunan bulunmayan herkese şimdiden teşekkürler. Yardım eden kişiler direk kod paylaşmak erine basit şekilde açıklamalarda yapabilirlerse beni çok sevindirirler .

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.228
  • Rep: +54/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #1 : 11 Ocak 2012 10:49:45 »
kaçıncı sınıfa gidiyorsun ?



Amatör Küme Programcı

Çevrimdışı -Comandante

  • Delphi 1 Level 1
  • *
  • İleti: 9
  • Rep: +0/-0
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #2 : 11 Ocak 2012 11:02:13 »
Meslek yüksek okulu 2. sınıf öğrencisiyim

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #3 : 11 Ocak 2012 11:05:30 »
adminim öğrenci bölümü açsak üst sınıfa geçmiş arkadaşlar alt sınıf ödevlerini şakkadanak verse :D
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.228
  • Rep: +54/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #4 : 11 Ocak 2012 11:09:26 »
adamlar da haklı abi sen hiç bir şey öğretme ondan sonra şunu yapın bunu yapın diye direk olarak algoritmik sorular sor!



Amatör Küme Programcı

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #5 : 11 Ocak 2012 11:11:25 »
tabiki haklısın, adamlar sormakta haksız değil, şu soruları soran dinozor kalıbımı basarım tek birini bile göstermedi yada ucundan kıyısından anca gösterdi bu çocuklara. Ama bende yardımı alıp teşekkür bile etmeyen tipleri forumda gördükçe de içimden ......... konusunda haklıyım galiba sanırım inşallah :)

Bu arkadaş 2. sınıfta, sorulara bakıyorum temel işlemler hepsi, ilk sene bu arkadaşlara ne öğretiyorlar bu çocukların koskoca 1 senesini neler ile hibe ediyor harcıyorlar gel de sinirden kudurma.Yada okul farkımdır bu nedir bizi üniversitede beynimizi patlatana kadar en ince ayrıntıya kadar eğitirlerdi.
« Son Düzenleme: 11 Ocak 2012 11:16:02 by sheshman »
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı -Comandante

  • Delphi 1 Level 1
  • *
  • İleti: 9
  • Rep: +0/-0
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #6 : 11 Ocak 2012 11:13:21 »
Aslında basit uygulamalar yapabilmekteyim fakat iş biraz matamatik problemlerine dönünce donup kalıyorum .

Örneğin C# da bu soruları yapabilecek konumdayım fakat delphide işler biraz farklı, internet üzerinde yapılan anlatımlar hep yeni başlayan kişiden çok bilen kişilere hitap etmekte.



Bu arkadaş 2. sınıfta, sorulara bakıyorum temel işlemler hepsi, ilk sene bu arkadaşlara ne öğretiyorlar bu çocukların koskoca 1 senesini neler ile hibe ediyor harcıyorlar gel de sinirden kudurma.

Hocam üniverstelerde genelde 1. sınıfta daha çok Atatürk ilke ve İnkilapları Edebiyat Matamatik tarzında lise ağırlıklı
bir öğretim uygulanmakta tüm programlama dilleri 2. sınıfta öğretilmekte yani şimdiye kadar sadece bazı yapıların nasıl kullanıldığını gördük fakat bilmeyen birisi için bu denli sorular inanın çok zor geliyor.
« Son Düzenleme: 11 Ocak 2012 11:16:35 by -Comandante »

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #7 : 11 Ocak 2012 11:44:27 »
yauw sakin olun her insan bir değil hemen hocalarıda ezdiniz :D bende myo mezunuyum bölümümden 240 kişi ile birlikte bu sene mezun oldum..%99.9 ihtimalle delphi ile program yazan bir ben varım :D nese
soru 1
Kod: [Seç]
functionn topla(sayi,sayi2:real)
var toplam:string;
begin
toplam:=floattostr(sayi+sayi2);
edit1.text:=toplam;
end;

soru2
Kod: [Seç]
//sayilar nere girilio bilmiorum ama listbox da bi ornek yapalım :D
var
i:integer;
enk1,enk2,enk3,enb1,enb2,enb3:integer;
sira:integer;
begin
enk1:=strtoint(listbox1.items[0])//enb enk kontrollerde herzaman ilk deger enb ve enk diye alınır
 // ben bi tanesine yaptım sen hepsine yap

for i:=0 to listbox1.items.count-1 do
begin
if enk1<strtoint(listbox1.items[i]) then
begin
enk1:=strtoint(listbox1.items[i]);
sira:=i;
end;
listbox1.items.delete(sira);/burda en kucugu sildirdim ki bidaha muhattab olmasın :D
end;

soru 3
Kod: [Seç]
suan biraz işlerim var :D boş zamanım olursa onuda ayarlarız
Seo yapılandırma servisi

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #8 : 11 Ocak 2012 11:49:10 »
kaçıncı sınıfa gidiyorsun ?

sayın admin bu soruyu sordugunda bir elinde whisky bir elinde puro ,üzerinde röttaşambır'la oturan biri geliyor gözümün önüne :D bundan sonra soruyu şöyle sor bence 'hahhaahha Kaçıncı sınıfa gidiyorsun kuzum?' :D
Seo yapılandırma servisi

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #9 : 11 Ocak 2012 12:27:55 »
Aslında basit uygulamalar yapabilmekteyim fakat iş biraz matamatik problemlerine dönünce donup kalıyorum .

Örneğin C# da bu soruları yapabilecek konumdayım fakat delphide işler biraz farklı, internet üzerinde yapılan anlatımlar hep yeni başlayan kişiden çok bilen kişilere hitap etmekte.



Bu arkadaş 2. sınıfta, sorulara bakıyorum temel işlemler hepsi, ilk sene bu arkadaşlara ne öğretiyorlar bu çocukların koskoca 1 senesini neler ile hibe ediyor harcıyorlar gel de sinirden kudurma.

Hocam üniverstelerde genelde 1. sınıfta daha çok Atatürk ilke ve İnkilapları Edebiyat Matamatik tarzında lise ağırlıklı
bir öğretim uygulanmakta tüm programlama dilleri 2. sınıfta öğretilmekte yani şimdiye kadar sadece bazı yapıların nasıl kullanıldığını gördük fakat bilmeyen birisi için bu denli sorular inanın çok zor geliyor.

ben 1999 da Yıldız'a girdim ilk sene dediğin gibi Atatürkçülük ve İnkilap derslerinin yanında programlamaya giriş dersi de vardı, ilk derste prof. ahanda bu C buda editörü diye bir başladı 1. senenin sonunda herkes C ile şu sorduğun soruları belkide daha fazlasını yapabiliyordu. Ben uzmanlık olarak Network seçtim programlamayı kendim öğrendim,halada öğreniyorum ama programlama okuyan birisine 1 sene boyunca OrtaOkul ve Lise de yıllarca dönüp dönüp okuduğu dersleri okutup, o arkadaşın 1 senesini heba etmek bildiğin cinayet sebebidir.

Ayrıca yerim C'yi her zaman Delphi ölümüne Delphi, tek harf programcıyı bozar :D
« Son Düzenleme: 11 Ocak 2012 12:29:20 by sheshman »
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #10 : 11 Ocak 2012 12:45:24 »
yildiz teknik nereeeeeeeeeeeee bnm mezun oldugum çankırı karatekin üniversitesi meslek yüksek okulu nere :D vay leeeeleee vay leleee :D
Seo yapılandırma servisi

Çevrimdışı -Comandante

  • Delphi 1 Level 1
  • *
  • İleti: 9
  • Rep: +0/-0
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #11 : 12 Ocak 2012 03:15:39 »
yauw sakin olun her insan bir değil hemen hocalarıda ezdiniz :D bende myo mezunuyum bölümümden 240 kişi ile birlikte bu sene mezun oldum..%99.9 ihtimalle delphi ile program yazan bir ben varım :D nese
soru 1
Kod: [Seç]
functionn topla(sayi,sayi2:real)
var toplam:string;
begin
toplam:=floattostr(sayi+sayi2);
edit1.text:=toplam;
end;

soru2
Kod: [Seç]
//sayilar nere girilio bilmiorum ama listbox da bi ornek yapalım :D
var
i:integer;
enk1,enk2,enk3,enb1,enb2,enb3:integer;
sira:integer;
begin
enk1:=strtoint(listbox1.items[0])//enb enk kontrollerde herzaman ilk deger enb ve enk diye alınır
 // ben bi tanesine yaptım sen hepsine yap

for i:=0 to listbox1.items.count-1 do
begin
if enk1<strtoint(listbox1.items[i]) then
begin
enk1:=strtoint(listbox1.items[i]);
sira:=i;
end;
listbox1.items.delete(sira);/burda en kucugu sildirdim ki bidaha muhattab olmasın :D
end;

soru 3
Kod: [Seç]
suan biraz işlerim var :D boş zamanım olursa onuda ayarlarız

Eline sağlık hocam biraz kurcaladım tam olarak programa dökemedim fakat uyku sersemi olmadığım bi zaman tekrar deneyeceğim :)

Çevrimdışı tawer1

  • Delphi 7 Level 4
  • ****
  • İleti: 333
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #12 : 12 Ocak 2012 09:44:02 »
ne demek 3. soru ya bakamadım kusura bakma yapmıs olan arkadaşlar cevaplarsa iyi olur
Seo yapılandırma servisi

Çevrimdışı sabanakman

  • Global Moderatör
  • *****
  • İleti: 796
  • Rep: +13/-0
  • Cinsiyet: Bay
  • Delphi Sürümü: e) Hepsi
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #13 : 12 Ocak 2012 10:24:52 »
Soru ) Aracın otopark ücretinin hesaplanması .Araçların en fazla 24 saat kaldığını varsayarak gereken program.

0-2 saat 150 bin
2-8 saat 300 bin
8-24 saat 500 bin

Öncelikle yardımda bulunan bulunmayan herkese şimdiden teşekkürler. Yardım eden kişiler direk kod paylaşmak erine basit şekilde açıklamalarda yapabilirlerse beni çok sevindirirler .
Bence hiç hesap kitap yapmasın arabayı bıraksın gitsin. Tabi sorun 10 yıllık bir sorun değilse, bari sıfırlar atılsaydı :)) .
Kod:  (Unknown Language)
  1. var Saat, Tutar:Integer;
  2. begin
  3.   Saat:=StrToInt(Edit1.Text);
  4.   case Saat of
  5.     0..2:Tutar:=150000;
  6.     3..8:Tutar:=300000;
  7.     9..24:Tutar:=500000;
  8.   else
  9.     Tutar:=-1;
  10.     ShowMessage('Girilen saat değeri hesaplanabilir aralık dışında');
  11.   end;
  12.   if Tutar>0 then
  13.     ShowMessage(Format('Otorpark ücreti %d TL dir.',[Tutar]));
  14. end;
Şaban Şahin AKMAN

Derin olan kuyu değil kısa olan iptir

Çevrimdışı -Comandante

  • Delphi 1 Level 1
  • *
  • İleti: 9
  • Rep: +0/-0
Ynt: [YARDIM] Çeşitli orta düzey problemler
« Yanıtla #14 : 13 Ocak 2012 06:51:42 »
@sabanakman  hocam ne desem az harika bir iş çıkarmışşınız :)