FOR NEXT Döngülerine Giriş

  Goto ile Yapılmış Döngü Örneği

basla:
A = A + 1
IF A>20 THEN END
PRINT A
GOTO basla

FOR NEXT Döngülerine Giriş

Yukardaki Döngü FOR NEXT ile aşağıdaki gibi yapılabilir.

FOR N = 1 TO 20
    PRINT N
NEXT N

 

Çeşitli Renklerle Ekrana Yazı Yazan Uygulama

CLS

INPUT "Adiniz Nedir "; Ad$
INPUT "Kac Kez Donsun "; Kez

FOR Sayac = 1 TO Kez

    Renk = Sayac MOD 12
    COLOR , Renk
    PRINT Ad$

NEXT
 

FOR NEXT Döngülerine Giriş

Renklerin Karşılığını Veren Döngü

CLS


FOR Sayac = 1 TO 15        'Sayac 1 den 15 e kadar birer birer artar

    COLOR , Sayac          'Sayactaki degeri Renk olarak tut
    PRINT "Renk "; Sayac   'Sayac degiskeni degerini Renk metni ile ekrana yaz


NEXT                       'Dongu bitene kadar FOR satirina donuyor
 

FOR NEXT Döngülerine Giriş

ASCII Kodlarını Ekrana Yazan Uygulama

 

CLS

FOR Sonsuz = 1 TO 1000

    INPUT "ACII Karakter Araligi Giriniz (x,y) "; Baslangic, Bitis

    IF Baslangic > Bitis THEN Atlama = -1 ELSE Atlama = 1

    FOR Dongu = Baslangic TO Bitis STEP Atlama
       
        PRINT Dongu; CHR$(Dongu)
   
    NEXT

    INPUT "Tekrar icin T ye bas"; Tekrar$
   
    IF Tekrar$ <> "T" THEN END
                              
NEXT
 

 

FOR NEXT Döngülerine Giriş

Faktöriyel Uygulaması

CLS

INPUT "Faktoriyeli Alinacak Sayi"; Sayi#

Tutacak# = 1

FOR Tekrarlayici# = Sayi# TO 1 STEP -1

        Tutacak# = Tutacak# * Tekrarlayici#

NEXT


PRINT Sayi#; " Sayisinin Faktoriyeli "; Tutacak#
 

 

FOR NEXT Döngülerine Giriş

23,159 Okunma Henüz yorum yapılmamış 12/10/2009 20:52:44

Yorumunuzu Ekleyin
Görsel Liste


QBasic ile Yapılmış Sayı Tahmin Oyunu

24,564 okuma,

QBasic ile Yapılmış Sayı Tahmin Oyunu
Qbasic ve Çok Boyutlu Diziler

Çok Boyutlu Dizilerle İlgili Uygulamalar

19,335 okuma,

Qbasic ve Çok Boyutlu Diziler
Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

18,733 okuma,

Basic ve Diziler
DO LOOP Döngüsü

18,487 okuma,

DO LOOP Döngüsü
FUNCTION Kullanımı

18,457 okuma,

FUNCTION Kullanımı
SELECT CASE Uygulaması

18,249 okuma,

SELECT CASE Uygulaması
IF Blok Yapıları

END IF nerelerde kullanılır?

17,882 okuma,

IF Blok Yapıları
DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

17,632 okuma,

DO - LOOP Uygulamaları
DO WHILE - LOOP WHILE

17,556 okuma,

DO WHILE - LOOP WHILE
INPUT Komutu

17,247 okuma,

INPUT Komutu
SUB Subroutine Kullanımı

Alt Program Kullanımı

17,241 okuma,

SUB Subroutine Kullanımı
Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

17,227 okuma,

Basic ve Diziler
SELECT CASE Uygulaması

Direnç Renk Kodları

16,936 okuma,

SELECT CASE Uygulaması
ELSEIF Kullanımı

16,815 okuma,

ELSEIF Kullanımı
GOSUB Kullanımı

16,665 okuma,

GOSUB Kullanımı
Çaprım Tablosu Uygulaması

16,599 okuma,

Çaprım Tablosu Uygulaması
Şifreli Giriş Uygulaması

Yönetici için XYZGünAySaat şeklinde özel şifresi olan

16,315 okuma,

Şifreli Giriş Uygulaması
IF BLOK YAPILARI

15,880 okuma,

IF BLOK YAPILARI
Yükleniyor...
    Yükleniyor...