10 sayısı ile 1234546789 sayısı arasınd asadece 3 ve 8 sayılarına tam olarak bölünen sayılar dışındaki bütün rakamların 4 ile bölündüğünde kalanını hesaplayan bir program yazınız. program çıktısı rakam ve 4 ile bölümden kalan olacaktır. LÜTFEN ACİL ÇÖZÜM YAZARMISINIZ Q BASİC 7,1 İLE ÇÖZÜMÜNÜ LTFNNN ÇOK ÖNMLİİİ!!! FİNal SORUMM

bi ödev varda yardımcı olurmusn boş bir ekranda araba olcak ok tusları ile ileri geri gitcek? yardımcı olaabılcek yapıp yollaya bılecek arkdas ardanıo

q basic ile visual basic yada vb. net aynı sormak istediğini buradan sorabilirsin. By-

Kod: DIM konumx AS INTEGER DIM konumy AS INTEGER DIM tus AS STRING konumx = 1 konumy = 1 WHILE tus$ <> "q" tus$ = INKEY$ SHELL "cls" LOCATE konumx, konumy PRINT "wardom mbk" IF tus$ = "s" THEN konumx = konumx + 1 ELSEIF tus$ = "w" THEN konumx = konumx - 1 ELSEIF tus$ = "d" THEN konumy = konumy + 1 ELSEIF tus$ = "a" THEN konumy = konumy - 1 END IF WEND burada yazıyı w, a, s, d ile hareket ettiriyorsun q ile çıkış yapıyorsun yazı yerine araba şekli çizdirirsen çizgiler ile istediğin olur. By-

Arkdaslar Q basicden anlayan varmı?

çok teşekkürler programı çalıştıramadım ama end ıf komutunda hata verdi?

şimdi tekrar denedim bir problem yok. belki yazarken bir hatalı harf yazmış olabilirsin. tekrar dene istersen.

Kod: DIM i AS LONG FOR i = 10 TO 123456789 IF i MOD 3 <> 0 AND i MOD 8 <> 0 THEN PRINT i; "sayisinin 4 ile bolumunden kalan "; i MOD 4 END IF NEXT i final sorum dedin kesin cevap bu demiyorum bence istenen cevap bu veri tipinin long olması gerekiyor integer olduğunda -32768 ile 32767 arasında değer saklayabilir bu işimizi görmez long integer ise -2147483648 ile 2147483647 arasında değer saklar qbasic de üst kısımda tanımlamak yerine değişkenlerin yanına sembol koyarlar long integer için & işareti kullanılır. Kod: FOR i = 10 TO 123456789 istenen sayılar arasında döngü kuruyoruz 3 ve 8 sayılarına tam olarak bölünen sayılar dışındaki sayılar dediği için Kod: IF i MOD 3 <> 0 AND i MOD 8 <> 0 THEN 3 ve aynı zamanda 8 ile modunu alıyoruz ikisi de 0 değilse bu sayılara tam bölünemez. Kod: PRINT i; "sayisinin 4 ile bolumunden kalan "; i MOD 4 sayıyı ve 4 ile bölümünden kalanı yazdırıyoruz. Kod: END IF koşul bitti Kod: NEXT i döngü