Ilk örnegimiz 10 Soruluk bir test - Programlama- Zamansız Tartışma Platform

Yσкє∂!¢! · 30-12-07, 19:34 Çevrimiçi

uses crt;

type

sorucevap=record

sorutring;
cevaptring;
soruldumu:boolean;

end;

var

sorular:array[1..10] of sorucevap;
m:integer;
rastgele:integer;
cevaptring;
dogrusayisi:integer;

function bittimi:boolean;var
k:integer;

begin

bittimi:=true;

for k:=1 to 10 do
begin

if sorular[k].soruldumu=false then
begin
bittimi:=false;
exit;
end;

end;
end;

begin
clrscr;
dogrusayisi:=0;
randomize;

sorular[1].soru:='Türkiyenin baskenti neresidir?';
sorular[1].cevap:='Ankara';
sorular[2].soru:='Ülkemiz kaç bölgeden olusmaktadir?';
sorular[2].cevap:='7';
sorular[3].soru:='Türkiyenin en büyük sehri hangisidir?';
sorular[3].cevap:='Istanbul';
sorular[4].soru:='(8*7+4)/10 kaç eder?';
sorular[4].cevap:='6';
sorular[5].soru:='Dünyanin kendine has Sekline ne ad verilir?';
sorular[5].cevap:='geoid';
sorular[6].soru:='Kanuni Sultan Süleyman kaç sene tahtta kalmistir?';
sorular[6].cevap:='47';
sorular[7].soru:='Bir üçgenin iç açilari toplami kaçtir?';
sorular[7].cevap:='180';
sorular[8].soru:='Türkiyenin Cumhurbaskani kimdir?';
sorular[8].cevap:='Ahmet Nejdet Sezer';
sorular[9].soru:='Kahramanmaras ilimiz Türkiye^nin hangi bölgesine düsmektedir?';
sorular[9].cevap:='Akdeniz';
sorular[10].soru:='333';
sorular[10].cevap:='333';

for m:=1 to 10 do
begin
sorular[m].soruldumu:=false;
end;

repeat

repeat
rastgele:=random(11);
if sorular[rastgele].soruldumu=false then
begin
sorular[rastgele].soruldumu:=true;
break;
end;
if bittimi then break;
until 1=2;
readln;
clrscr;
writeln(sorular[rastgele].soru);
write('Cevabinizi yaziniz:');
readln(cevap);
if cevap=sorular[rastgele].cevap then
begin
writeln('Tebrikler!DOGRU');
dogrusayisi:=dogrusayisi+1;;
end
else
writeln('Maalesef!YANLIS');

until bittimi;
writeln;

writeln('Toplam 10 sorudan dogru sayisi:',dogrusayisi);
writeln('Yanlis sayisi:',10-dogrusayisi);
writeln('Basariniz: %',dogrusayisi*10);
readln;

end.
{
Soru sayisini artirabilirsin.
Biraz karisik olabilir, idare et.
Daha kisa ve pratik yollardan da yapilabilir.
}

bize bunu okulda da ögrettilerde ben bi türlü yapamadıydım

30-12-07, 19:34 Çevrimiçi	#1
Dekan Yσкє∂!¢! Huzur Pınarı Genel Mesajlar: 5.499 Teşekkür etti: 1.452 Teşekkür edildi: 2.034 RepForum Gücü: 65 Forum Puanı:22818 Ruhsal Durumum:	Ilk örnegimiz 10 Soruluk bir test uses crt; type sorucevap=record sorutring; cevaptring; soruldumu:boolean; end; var sorular:array[1..10] of sorucevap; m:integer; rastgele:integer; cevaptring; dogrusayisi:integer; function bittimi:boolean;var k:integer; begin bittimi:=true; for k:=1 to 10 do begin if sorular[k].soruldumu=false then begin bittimi:=false; exit; end; end; end; begin clrscr; dogrusayisi:=0; randomize; sorular[1].soru:='Türkiyenin baskenti neresidir?'; sorular[1].cevap:='Ankara'; sorular[2].soru:='Ülkemiz kaç bölgeden olusmaktadir?'; sorular[2].cevap:='7'; sorular[3].soru:='Türkiyenin en büyük sehri hangisidir?'; sorular[3].cevap:='Istanbul'; sorular[4].soru:='(87+4)/10 kaç eder?'; sorular[4].cevap:='6'; sorular[5].soru:='Dünyanin kendine has Sekline ne ad verilir?'; sorular[5].cevap:='geoid'; sorular[6].soru:='Kanuni Sultan Süleyman kaç sene tahtta kalmistir?'; sorular[6].cevap:='47'; sorular[7].soru:='Bir üçgenin iç açilari toplami kaçtir?'; sorular[7].cevap:='180'; sorular[8].soru:='Türkiyenin Cumhurbaskani kimdir?'; sorular[8].cevap:='Ahmet Nejdet Sezer'; sorular[9].soru:='Kahramanmaras ilimiz Türkiye^nin hangi bölgesine düsmektedir?'; sorular[9].cevap:='Akdeniz'; sorular[10].soru:='333'; sorular[10].cevap:='333'; for m:=1 to 10 do begin sorular[m].soruldumu:=false; end; repeat repeat rastgele:=random(11); if sorular[rastgele].soruldumu=false then begin sorular[rastgele].soruldumu:=true; break; end; if bittimi then break; until 1=2; readln; clrscr; writeln(sorular[rastgele].soru); write('Cevabinizi yaziniz:'); readln(cevap); if cevap=sorular[rastgele].cevap then begin writeln('Tebrikler!DOGRU'); dogrusayisi:=dogrusayisi+1;; end else writeln('Maalesef!YANLIS'); until bittimi; writeln; writeln('Toplam 10 sorudan dogru sayisi:',dogrusayisi); writeln('Yanlis sayisi:',10-dogrusayisi); writeln('Basariniz: %',dogrusayisi10); readln; end. { Soru sayisini artirabilirsin. Biraz karisik olabilir, idare et. Daha kisa ve pratik yollardan da yapilabilir. } bize bunu okulda da ögrettilerde ben bi türlü yapamadıydım Şahit olsun Kainat, Alemler şahit olsun . Titreyen sesin ile Yüregin şahit olsun. Çok Yakın Güzel Günler,Bir Kez Daha Ufka Bak, Hep Semaya Açtıgın,Ellerin Şahit Olsun. Ö(lürsem)S(ebebi)S(ensin) Deli Var YakalaYın

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder