tak tady je muj vysledek snazeni... ma to jeste nejake mouchy,je to mozna neprehledne ale neni to snad nejhorsi...
(*zaverecny program*)
program slovicka;
uses crt;
var f,fi:text;
jaz,s,x,spravna,soubor,jaz_s,ukoncit:string;
i,kolikata,body,pocet_radku,konec,pocatek,jak,lekce:integer;
odpoved: char;
otazka:array[1..5] of string;
pocet_otazek: real;
begin
writeln('Vtejte v programu zkouseni slovicek');
writeln('------------------------------------');
writeln(' CHCETE VYZKOUSET Z ');
writeln(' 1) cestiny do anglictiny ');
writeln(' nebo ');
writeln(' 2) anglictiny do cestiny ');
writeln('------------------------------------');
writeln('I Zvolte prosm svou volbu cislem I');
writeln('------------------------------------');
writeln('Vytvoril : Petr Turzik');
writeln('');
write('->>');
read(jak);
case jak of
1: begin jaz:='CA'; jaz_s:='anglicky'; end;
2: begin jaz:='AC'; jaz_s:='cesky'; end;
else begin write('Opakujte prosim zadani, volba neexistuje:'); read(jak); end
end;
clrscr;
write('Zvolte lekci(1-5):');
read(lekce);
clrscr;
case lekce of
1: soubor:='C:\pascal\pt\lekce\lek'+jaz+'_1.txt';
2: soubor:='C:\pascal\pt\lekce\lek'+jaz+'_2.txt';
3: soubor:='C:\pascal\pt\lekce\lek'+jaz+'_3.txt';
4: soubor:='C:\pascal\pt\lekce\lek'+jaz+'_4.txt';
5: soubor:='C:\pascal\pt\lekce\lek'+jaz+'_5.txt';
else
begin write('Opakujte prosim zadani, lekce neexistuje:'); read(lekce); end
end;
(*nabourame soubor*)
assign(f,soubor);
assign(fi,soubor);
reset(f);
reset(fi);
(*zjistime pocet otazek*)
repeat
readln(fi,x);
pocet_radku:=pocet_radku+1;
until eof(fi);
pocet_otazek:=pocet_radku/5;
kolikata:=1;
pocatek:=1;
konec:=5;
repeat
begin
if(kolikata>1) then
begin
pocatek:=pocatek+5;
konec:=konec+5;
end;
writeln('Otazka cislo:',kolikata,'/',pocet_otazek:0:0,' Zatim bodu:',body,'z',pocet_otazek:0:0);
for i:=1 to 5 do
begin
readln(f,s);
otazka
:=s;
end;
writeln('');
writeln('Jak se ',jaz_s,' rekne ',otazka[1],'?');
writeln('--------------');
writeln('a)',otazka[2]);
writeln('b)',otazka[3]);
writeln('c)',otazka[4]);
odpoved:=readkey;
spravna:=otazka[5];
case odpoved of
'a': odpoved:='a';
'b': odpoved:='b';
'c': odpoved:='c';
else
begin
write('Opakujte prosim zadani, tato moznost neexistuje:');
odpoved:=readkey;
end
end;
if odpoved=spravna then
begin
writeln('dobre');
body:=body+1;
kolikata:=kolikata+1;
clrscr;
end
else
begin
writeln('spatne');
kolikata:=kolikata+1;
clrscr;
end;
end;
until kolikata=(pocet_otazek)+1;
if kolikata<=(pocet_otazek)+1 then
begin
clrscr;
writeln('-----------------------');
writeln('I Ziskali jste ',body,' bodu I');
writeln('-----------------------');
readln;
end;
close(f);
close(fi);
readln;
clrscr;
end.
toje zadani z prdele, takhle jsi to urcite nedostal