Soru 1:
1-100 arası sayıları satır satır yazdırırken
3'e bölünenlere Fizz
5'e bölünenlere Buzz
15'e bölünenlere FizzBuzz eklesin.
Kodlar QuickBasic v4.5 uyumlu olacak.
3'e bölünenlere Fizz
5'e bölünenlere Buzz
15'e bölünenlere FizzBuzz eklesin.
Kodlar QuickBasic v4.5 uyumlu olacak.
Çıktı
1
2
3 Fizz
4
5 Buzz
6 Fizz
7
8
9 Fizz
10 Buzz
.
.
14
15 FizzBuzz
16
.
.
99 Fizz
100 Buzz
Hedefler:
- En kısa kodlama,
- En az değişken ve fonksiyon kullanma
- En hızlı çalışan kodu yazma. Program Çalışma Süresini Hesaplama
Maalesef yarışmanın bir ödülü yok.
Kodlarınızı veya kodlarınızın olduğu sayfa linkini yorum kısmına ekleyiniz.
Kodlarınızı veya kodlarınızın olduğu sayfa linkini yorum kısmına ekleyiniz.
Hedefe ulaşan en iyi kod ve kod yazarı bu sayfada yayınlanacak.
Online Qbasic IDE
- Repl.It Qbasic IDE https://repl.it/languages/qbasic
- JDoodle Online FREE BASIC Compiler IDE
- CodingGround https://www.tutorialspoint.com/execute_basic_online.php
- http://www.quitebasic.com
Merhaba. Sitenizi, dün harddiskteki yedekleri karıştırırken annemin eski klasörünün içindeki 2000 küsürden kalma, senelere göre değişen takvim excel tablosundaki isminizi Google'da aratınca buldum. Aktif bir şekilde hala içerik üretiyor olduğunuzu görmek hoşuma gitti. Bu postunuzu da görünce katılmak istedim, sizin QuickBasic rehberlerinizi kullandım. Çok teşekkürler, ellerinize sağlık.
YanıtlaSilFOR A = 1 TO 100
B$ = STR$(A) + " "
IF A MOD 3 = 0 THEN
B$ = B$ + "Fizz"
END IF
IF A MOD 5 = 0 THEN
B$ = B$ + "Buzz"
END IF
PRINT B$
NEXT A
İlginiz ve soruya verdiğiniz cevap için teşekkürler. Hedeflere ulaşmak için kodlar biraz daha geliştirilebilir
Sil