: sorması ayıpta, diyelimli Qbasic programı yazacağız, windowsun neresinden giriyorsunuz program yazmak için ve nasıl kaydedip çalıştır yapıyoruz? :S burda tüm basic derleyicileri var..

ComputerWolf hocam ben yeniyim programda yeni yeni ğreniyorum. algoritmanın mantığını kurarken zorlandım sayılır mod sistemini slemesen heralde bu programa baya bir zaman harcıyacaktım."Ilerledikce procedure -function ile 10 defa islem yaptirmamayi fonksiyon kavramini ogrenirsin" ewet daha if then elsedeyiz daha henüz başındayım herşeyin yavaş yavaş olacak inş. sizlerde ayrıca bana yardımcı olduğunuz için çok tşk ederim. algoritma şu şekilde yaptımbaşla->t : ç : ks ->eğer sayi 2 ye blündügünde kalan 0 evet ->sayi tektir->hayır >sayı çifttir->peqi burda 10 tane sayıdan fazla verecegimiz her sayı kısıtlaması yapamıyormuyz? bunu şu şkişde kodladım denemedm qb debu programı istedigimiz zaman sona erdirsek dallanma mı yapmamz lazım? t=0 : c=0 : ks=0if (sayi mod 2= 0 ) then print "girilen sayı çift=" , cift else print "girilen sayı tek=" , tekendbir deniyem tekrar hatamı slerim sana. belkide hatayı nerde yapacagımı tahmin ediyorsundur... :) hocam klawyeden istendigi için inputları unutmuşum devam ediyorum komut yazmaya uğraşyorum

mod islemi yapacan hoca sayinin 2ye bolumunden kalan 0 ise cift degil ise tekif (sayi mod 2=0) then WriteLine elseWriteLine ; programinin kilit noktasi burasi. Girilen on sayi dedigi icin ve sende baslangic seviye bir programcisin galiba ders falan vermis hocan.10 tane degisken tanimla sayi1 saiy2 sayi3 diye bunlarin mod 2 = 0 sonucuna gore tekmi ciftmi yazdir. Ilerledikce procedure -function ile 10 defa islem yaptirmamayi fonksiyon kavramini ogrenirsin. Sen once algoritmani cikar. Kilit nokta bir sayinin tekmi ciftmi olup olmadigini anlamak. mod foksiyonu bolumden kalani verir. mod 2 = 0 ilede bolumden kalan 0 ise cift sayidir. Cift degilse tek sayidir. Istisna yonetimi mevzusu girilen sayi 0 ise var onuda dallandiracaksin ayri bir ifadede. Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

Sayi girdikten hemen sonra isleme sokman gerekiyor. Yani ya tek tek satir satir tekrar ettire ettire yaptiracaksin. Yada donguye sokacaksin :) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

sorması ayıpta, diyelimli Qbasic programı yazacağız, windowsun neresinden giriyorsunuz program yazmak için ve nasıl kaydedip çalıştır yapıyoruz? :S Temel adalettir.

hocam bir sorun var makinamda "dns ayarı ile ilgili siteye giremiyorum bayadır " arkadaştan girebildim en son yaptğım kod şu oldutek =0 : cift=0input "sayı giriniz=", sayiif (sayi mod 2 = 0 ) then print "girilen sayı çift = ", cift else print "girilen sayı tek = ", tekif sayi<=10 then cift=cift+1 else tek = tek +1 hocam burdaki kod calısıyor lakin 10 sayı giremiyorum diğer denemeler olursa hocam tekrar paylaşırız şimdiden sağolun iyi günler.

tek = 0cift = 0her sayı girildiğinde : if (sayi mod 2=0) thencift = cift + 1writeln ;elsetek = tek + 1writeln ;end ifwriteln writeln 10. sayıda programı sonlandırmak içinyukardaki kodların sonundaif cift + tek = 10 thenendend if alp hocam şuan kodla ilgili bir hata veriyor cls tek = 0 : cift = 0 if (sayi mod 2 = 0 ) then > cift= cift +1 print "girilen sayı çift =", cift else tek = tek +1 print " girilen sayı tek = ", tekendprint " toplam çift sayı =", cift print "toplam tek sayı = ", tek wolf hocam ben sayi1 = 0 : sayi= 0 : sayi2= 0... : sayi10 = 0 bu şekilde bir değişken tanımlarımda siz pascal cinsinden mi yazıyorsunuz komutları? "readline ve writhline komutları içeriyorda " birazdan tekrar hata olan kod yerini komple size aktaracam...

Simdi basit yaklasmaya calisiyorum ilk temel birisi olsam ne yapardim?1-sayi1 sayi2 diye 10 a kadar degisken tanimlardim en sonunda okunan degisken sayi10 ise programi sonlandirirdim... qbasicte nedir bilmem ama sayi10 u okudugunda break; ile kirabilirsin veya baslangic seviyede oldugun icin goto kullanabilirsin. yani 10. sayiyida hafizaya aldin hemen alt satira goto:sonlandir; gibi bir etiket blogu yaparsin. sonlandir :Write Readln(sayi10);if sayi10 mod 2=0 then Writeline else " ;goto sonlandir; //program alta ziplar sonlandir; WriteLine("Toplamda 10 sayi girdiniz tesekkurler)"; bu sekilde yapabilirsin. Zaten ilerledikce cok basit yontemlerle cozeceksin. Sen simdi bol bol algoritma kurmaya calis. Bir problemin cozumunu kagit uzerine sozlu olarak dokebiliyorsun emin ol kodunu yazmak cok daha basittir. Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

en son şunu yaptımcls mod2 =0 : sayi=010 input "sayı giriniz=", sayiif sayi<=10 then goto 2020 if (sayi mod2 =0) then print " girilen sayı çift=", cift else print "girilen sayı tek= ", tek end grdüm şimdi sizin yazdıklarınızı ben eklemeleri tammlayım hocam.

klavyeden girilen 10 sayıdan kaç tanesi tek kaç tanesi çift sayıdır?(not:2 ye tam blünüyorsa.)bunu program haline getirmenin en azından kodu veya mantığını verebilirseniz sevinirim biraz uğraştım kendim "if... then. else " ve go to komutlarını mantıgını peq fazla anlayamadm...

hocam tek, cift diye iki değişken tanımlabaştatek = 0cift = 0her sayı girildiğinde : if (sayi mod 2=0) thencift = cift + 1writeln ;elsetek = tek + 1writeln ;end ifwriteln writeln

: hocam tek, cift diye iki değişken tanımlabaştatek = 0cift = 0her sayı girildiğinde : if (sayi mod 2=0) thencift = cift + 1writeln ;elsetek = tek + 1writeln ;end ifwriteln writeln 10. sayıda programı sonlandırmak içinyukardaki kodların sonundaif cift + tek = 10 thenendend ifyazmayı dene