Yarınki Sınavda Banko Çıkabilecek Soru Ve Cevaplar ....

[yunuse...@gmail.com]

Download : http://uploaded.to/?id=58dnqc
Office 2007 de yazdım .....

TAVSİYEM İNDİRİN .....
__________________________________________İNDİREMİYENLER İÇİN
_____________

<B> ALGORİTMA SORU VE CEVAPLARI </B>

1-) KLAVYEDEN GİRİLEN SAYININ TEK Mİ ÇİFT Mİ OLDUĞUNU BULAN

Cls
Input sayi
If mod sayi 2 = 0 then print "çift " else print "tek"
If sayi <> 0 then goto 10

2-) 1-10 ARASI SAYILARI 1 VE 10 DAHİL YAN YANA YAZAN PROGRAM
CLS
FOR A=A TO 10
PRINT A;
NEXT A

3-) RASGELE 6 SAYI OLUŞTURAN PROGRAM --- MİSAL SAYISAL LOTO
CLS
FOR I=1 TO 6
PRINT INT(RND*49)+1
NEXT I
END
4-) 0 İLE 30 ARASINDAKİ SAYILARIN TOPLAMI
CLS
FOR s = 0 TO 30 STEP 3
k = 1 * s
NEXT s
PRINT "0 iLe 30 ARASINDAKİ SAYILARIN TOPLAMI"; k
5-) GİRİLEN YAZIYI EKRANA TERSTEN YAZAN UYGULAMA

CLS
INPUT a$
uzunluk = LEN(a$)
DIM dizi(uzunluk) AS STRING
x$ = " "
FOR n = uzunluk TO 1 STEP -1
dizi(n) = MID$(a$, n, 1)
x$ = x$ + dizi(n)
NEXT
PRINT x$
SLEEP
END




6-) KLAVYEDEN GİRİLEN BİR KELİMENİN İÇİNDE ARAMASINI BELİRLEDİĞİMİZ
BİR HARFDEN KAÇ TANE OLDUĞUNU BULAN PROGRAM…
CLS
INPUT “ Metni Giriniz = “;a$
INPUT “Aramak İstediğiniz Kelime Nedir ? =”;harf$
Uz=Len(A$)
For I=1 to uz
İf mid$ (A$, I, 1) = Harf$ the Sayac = Sayac+1
Next I
Print Sayac

7-) KLAVYEDEN GİRİLEN BİR KELİMENİN İÇİNDE ARAMASINI BELİRLEDİĞİMİZ
BİR HARFİ İSTEDİĞİMİZ BİR HARF İLE DEĞİŞTİREN PROGRAM …
CLS
INPUT “ metni Giriniz =”; Ad$
INPUT “Aradığınız Harf=”;Harf$
INPUT “Değiştirmek İstediğiniz Harf =” ; Harf1$
Uz=Len (A$)
For i=1 to Uz
İf mid$ ( Ad$ , I , 1 ) = Harf$ then
Mid$ ( A$ , I , 1 ) = Harf1$
End IF
Next i
Print A$

8-) UZUN BİR CÜMLENİN İSTEDİĞİNİZ BİR KISMINI EKRANA YAZDIRAN PROGRAM…
A$ = “ ERZİNCAN MYO “
PRINT MID$ ( A$, 5 , 3 ) EKRANA  NCA  YAZAR
9-) EKRANA YANDAKİ ŞEKİL GİBİ , ALT ALTA YAZDIRAN PROGRAMI YAZINIZ
…. ERZİNCAN
ERZİNCA
ERZİNC
ERZİN
ERZİ
ERZ
ER
E

CLS
A$ = “ERZİNCAN”
FOR B=1 TO 8
PRINT MID$ ( A$ , B , 8 )
NEXT
10-) Emre Ceyhan
Emre Ceyhan
Emre Ceyhan
Emre Ceyhan
Emre Ceyhan
Emre Ceyhan
Emrceyh YANDAKİ ŞEKİLDEKİ GİBİ EKRANA
YAZDIRIN...

CLS
FOR i=1 to 20
Locate i , i + 5 : Print “Emre”
Next
For a = 1 To 20
Locate a,47-a : Print “Ceyhan”
Next







11-) KLAVYEDEN GİRİLEN 10 SAYIYI KÜÇÜKTEN BÜYÜĞE SIRALAYINIZ …
CLS
Dim Sayi (10)
For i=1 To 10
İnput Sayi(i)
Next
For i = 1 To 9
For j = i + 1 to 10
İf sayi ( i ) > sayi ( j ) then
X = Sayi ( i )
Sayi ( i ) = sayi ( j )
Sayi ( j ) = x
End if
Next j
Next i
For i = 1 to 10
Print Sayi ( i )
Next