Quick Basic(QBasic yada QB) DOS tabanlı, BASIC dili ile programlar yazabilemizi sağlayan, Microsoft tarafından geliştirilmiş bir tümleşik geliştirme ortamıdır(IDE).

Yazarken çok nostaljik anlar yaşadım keyif alarak yazdığımı söyleyebilirim. 🙂

Aşağıdaki program ile girilen sayıya kadarki sayıların her biri için birden kendisine kadarki sayıların toplama işlemi yapılır ve örnekteki formatla çıktı verilir.

Örneğin 5 değeri girdi olarak verildiyse çıktımız: “1, 1+2=3, 1+2+3=6, 1+2+3+4=10, 1+2+3+4+5=15” olmalıdır.

DIM Sayi AS INTEGER
DIM i AS INTEGER
DIM j AS INTEGER
DIM Toplam AS INTEGER

INPUT "Sayiyi girin: ", Sayi
PRINT

FOR i = 1 TO Sayi
    IF i = 1 THEN
        PRINT i; ", ";
    ELSE
        Toplam = 0
        FOR j = 1 TO i
            Toplam = Toplam + j

            IF j = i THEN
                PRINT j; "="; Toplam;
            ELSE
                PRINT j; "+";
            END IF
        NEXT j
        IF i <> Sayi THEN
            PRINT ", ";
        END IF
    END IF
NEXT i

 

 

 

basic programlama dili  qb  qbasic ide  qbasic ile programlama  quick basic ide