Matris İşlemleri Örnek 3

FOR u = 1 TO n

FOR x = 1 TO n

PRINT "A("; u; ","; x; ")=";

INPUT a(u, x)

NEXT x

NEXT u

PRINT

PRINT

FOR u = 1 TO n

FOR x = 1 TO n

PRINT a(u, x);

NEXT x

PRINT

NEXT u

FOR l = 1 TO n - 1

FOR s = l + 1 TO n

IF a(l, l) = 0 THEN

FOR m = l + 1 TO n

IF a(m, l) <> 0 THEN

FOR x = 1 TO n

a(l, x) = a(l, x) + a(m, x)

NEXT x

END IF

NEXT m

END IF

c = a(s, l) / a(l, l)

FOR x = 1 TO n

a(s, x) = a(s, x) - c * a(l, x)

NEXT x

NEXT s

NEXT l

PRINT

PRINT

PRINT "ust ucgensel hali"

FOR u = 1 TO n

FOR x = 1 TO n

PRINT USING "###.#"; a(u, x);

NEXT x

PRINT

NEXT u

Matris İşlemleri Örnek 2

CLS

Print "Verilen matrisi alt ucgensel yapan program"

INPUT "karesel matrisin boyutunu giriniz="; n

DIM a(n, n)

FOR u = 1 TO n

FOR x = 1 TO n

PRINT u; ".satir"; x; ".sutun elemanini girin"

INPUT a(i, j)

NEXT x

NEXT u

CLS

PRINT "Olusturulan Matris"

FOR u = 1 TO n

FOR x = 1 TO n

COLOR , 1

PRINT USING "#####"; a(i, j);

NEXT x

PRINT

NEXT u

FOR l = n TO 2 STEP -1

FOR s = l - 1 TO 1 STEP -1

IF a(l, l) = 0 THEN

FOR m = l - 1 TO 1 STEP -1

IF a(m, l) <> 0 THEN

FOR x = 1 TO n

a(l, x) = a(l, x) + a(m, j)

NEXT x

END IF

NEXT m

END IF

c = a(s, l) / a(l, l)

FOR x = 1 TO n

a(s, x) = a(s, x) - c * a(l, x)

NEXT x

NEXT s

NEXT l

PRINT

COLOR , 0

PRINT "Matrisin alt ucgensel hali"

FOR i = 1 TO n

FOR j = 1 TO n

COLOR , 1

PRINT USING "#####.#"; a(u, x);

NEXT x

PRINT

NEXT u

COLOR , 0

Klavyeden Girilen Bir Cümlede Belirtilen Karakteri Yeni Degeriyle Degistirip Yeniden Yazdiran Program

REM DEĞİŞTİRME
CLS : DIM K$ (255)
INPUT "CÜMLEYİ GİRİNİZ: ", C$: PRINT
INPUT "DEĞİŞTİRELECEK HARFİ GİRİNİZ: " , H$
INPUT "HARFİN YENİ DEĞERİNİ GİRİN : " , Y$
PRINT : FOR I = 1 TO LEN(C$)
K$(I) = MID$(C$,I,1)
IF K$(I) = H$ THEN K$(I) = Y$
NEXT I
PRINT "Yeni cümle : " ;
FOR I = 1 TO LEN(C$)
PRINT K$(I);
NEXT I
END