ElitMedya adlı üyeden alıntı: mesajı görüntüle
Arkadaşlar Merhaba, ALGORİTMA VE PROGRAMLAMA Sınavım var internet üzerinden, hem sorular üzerinden azda olsa eğitim verebilecek hem de sınavımda yardımcı olabilecek birisi olursa sevinirim, Karşılığında alan adı host yada SEO konularında yardımcı olurum.
Algoritma sınavında genelde şu tarz sorular çıkar,

Alıntı
A1. Başla,
A2. A sayısını gir,
A3. B=A , EB=0, EK=9 , K=0 ,M=0 al,
A4. Eğer A=0 ise A10’a git,
A5. C=A-TAM(A/10)*10 al,
A6. Eğer EB<C ise EB=C al,
A7. Eğer EK>C ise EK=C al,
A8. A=TAM(A/10) al,
A9. A4’e git,
A10. F=EB-EK al,
A11. Eğer B=0 ise A16’ya git,
A12. C=B-TAM(B/10)*10 al,
A13. Eğer F=C ise “F den 10^K lar hanesinde var” yaz, M=1 al,
A14. B=TAM(B/10) , K=K+1 al,
A15. A11’e git,
A16. Eğer M=0 ise “F den girilen sayıda yok” yaz,
A17. Dur.
Burada bir kaç adımı eksip verip tamamlatabilir veya 12.adımın ne anlama geldiğini sorabilir tabikide hocadan hocaya değişiyor.

Programlama olarakta bu örnek üzerinden gider isek bu algoritmanın sorusunu verir.Mesela ;

Girilen bir tamsayının hanelerindeki en büyük ve en küçük hane değerlerinin farkından, girilen sayının hanelerinde var mıdır? Varsa hangi hanelerdir?


Artık programlama giriş dersinizde hocanız hangi dil ile anlatıyorsa ona göre kodlarsınız.Bize Pascal ile anlatmıştı.

Cevap olarak :

Alıntı
program sayilar;
var
a,b,c,eb,ek,k,f,m:integer;
label 10,20,30,40;
begin
write('sayiyi gir..');readln(a);
b:=a;eb:=0;ek:=9;m:=0;k:=0;
10: if(a=0) then goto 20;
c:=a-trunc(a/10)*10;
if(eb<c) then eb:=c;
if(ek>c) then ek:=c;
a:=trunc(a/10);
goto 10;
20: f:=eb-ek;
30: if(b=0) then goto 40;
c:=b-trunc(b/10)*10;
if(f=c) then begin
writeln(f,' den ',10**k,' lar hanesinde var');
m:=1;
end;
b:=trunc(b/10); k:=k+1;
goto 30;
40: if(m=0) then writeln(f,' den girilen sayida yok');
readln;
end.
Genel olarak çevrede gördüklerim ve kendi dersime giren hocalar bu şekilde sorular sormakta.

Başarılar