Главная » Файлы » Для учня/студента » Інформатика [ Добавить материал ]
Program test; інформатичний
16.06.2010, 13:19
Program test;
uses crt;
type question=record
task:string;
v1,v2,v3,v4:string[50];
n:byte;
end;
const r=12;
var i,k,s:byte;
mass:array[1..30] of question;
Begin
{-------- ЏЁв ¬¬п 1 ---------------}
mass[1].task:='џЄ Є®¬Ўi¬ жiп Є« ўiи ўЁЄ®аЁбв®ўгувмбп ¤«п § ЇгбЄг Їа®Ја ¬Ё ¬ ўЁЄ®¬ ¬¬п?';
mass[1].v1:='Ctrl+F9';
mass[1].v2:='Ctrl+F5';
mass[1].v3:='Alt+F5';
mass[1].v4:='Alt+F9';
mass[1].n:=1;
{-------- ЏЁв ¬¬п 2 ---------------}
mass[2].task:='џЄ Є« ўiи ўЁЄ®аЁбв®ўгувмбп ¤«п §ЎҐаҐ¦Ґ¬¬п ⥪бвг Їа®Ја ¬Ё г д ©«?';
mass[2].v1:='F1';
mass[2].v2:='F7';
mass[2].v3:='F3';
mass[2].v4:='F2';
mass[2].n:=4;
{-------- ЏЁв ¬¬п 3 ---------------}
mass[3].task:='џЄ Є« ўiи ўЁЄ®аЁбв®ўгувмбп ¤«п § ў ¬в ¦Ґ¬¬п ⥪бвг Їа®Ја ¬Ё, пЄ §ЎҐаiЈ увмбп ¬ ¤ЁбЄг г ўЁЈ«п¤i д ©«г?';
mass[3].v1:='F2';
mass[3].v2:='F3';
mass[3].v3:='F4';
mass[3].v4:='F12';
mass[3].n:=2;
{-------- ЏЁв ¬¬п 4 ---------------}
mass[4].task:='џЄ Є®¬Ўi¬ жiп Є« ўiи ўЁЄ®аЁбв®ўгувмбп ¤«п ЇҐаҐЈ«п¤г १г«мв вiў а®Ў®вЁ Їа®Ја ¬Ё?';
mass[4].v1:='Alt+F3';
mass[4].v2:='Ctrl+F9';
mass[4].v3:='Alt+F5';
mass[4].v4:='Ctrl+S';
mass[4].n:=3;
{-------- ЏЁв ¬¬п 5 ---------------}
mass[5].task:='џЄ ўЄ §iўЄ ўЁЄ®аЁбв®ўгувмбп ¤«п ўЁўҐ¤Ґ¬¬п i¬д®а¬ жiх ¬ ҐЄа ¬?';
mass[5].v1:='Write';
mass[5].v2:='Read';
mass[5].v3:='Print';
mass[5].v4:='Input';
mass[5].n:=1;
{-------- ЏЁв ¬¬п 6 ---------------}
mass[6].task:='џЄ ўЄ §iўЄ ўЁЄ®аЁбв®ўгувмбп ¤«п ўўҐ¤Ґ¬¬п ¤ ¬Ёе § Є« ўi вгаЁ?';
mass[6].v1:='Write';
mass[6].v2:='Read';
mass[6].v3:='Input';
mass[6].v4:='Print';
mass[6].n:=2;
{-------- ЏЁв ¬¬п 7 ---------------}
mass[7].task:='‡ пЄ®Ј® б«г¦Ў®ў®Ј® б«®ў Ї®зЁ¬ увмбп ўЁЄ®¬гў ¬ з бвЁ¬ Їа®Ја ¬Ё?';
mass[7].v1:='Program';
mass[7].v2:='Var';
mass[7].v3:='Begin';
mass[7].v4:='Uses';
mass[7].n:=3;
{-------- ЏЁв ¬¬п 8 ---------------}
mass[8].task:='џЄЁ¬ б«г¦Ў®ўЁ¬ б«®ў®¬ Ї®§¬ з увмбп жi«Ё© вЁЇ ¤ ¬Ёе?';
mass[8].v1:='Integer';
mass[8].v2:='Real';
mass[8].v3:='String';
mass[8].v4:='Boolean';
mass[8].n:=1;
{-------- ЏЁв ¬¬п 9 ---------------}
mass[9].task:='џЄЁ¬ б«г¦Ў®ўЁ¬ б«®ў®¬ Ї®§¬ з увмбп ¤i©б¬Ё© вЁЇ ¤ ¬Ёе?';
mass[9].v1:='Integer';
mass[9].v2:='Real';
mass[9].v3:='String';
mass[9].v4:='Char';
mass[9].n:=2;
{-------- ЏЁв ¬¬п 10 ---------------}
mass[10].task:='‡ ¤®Ї®¬®Ј®о пЄ®х ўЄ §iўЄЁ i¬iжiоувмбп Ја дiз¬Ё© ०Ё¬?';
mass[10].v1:='InitGraf';
mass[10].v2:='InitGraph';
mass[10].v3:='GraphInit';
mass[10].v4:='GrafInit';
mass[10].n:=2;
{-------- ЏЁв ¬¬п 11 ---------------}
mass[11].task:='џЄЁ© вЁЇ ¤ ¬Ёе Ї®§¬ з увмбп б«г¦Ў®ўЁ¬ б«®ў®¬ string?';
mass[11].v1:='„i©б¬Ё©';
mass[11].v2:='ђп¤Є®ўЁ©';
mass[11].v3:='‘Ё¬ў®«м¬Ё©';
mass[11].v4:='‹®Јiз¬Ё©';
mass[11].n:=2;
{-------- ЏЁв ¬¬п 12 ---------------}
mass[12].task:=' џЄЁ© вЁЇ ¤ ¬Ёе Ї®§¬ з увмбп б«г¦Ў®ўЁ¬ б«®ў®¬ boolean?';
mass[12].v1:='–i«Ё©';
mass[12].v2:='„i©б¬Ё©';
mass[12].v3:='ђп¤Є®ўЁ©';
mass[12].v4:='‹®Јiз¬Ё©';
mass[12].n:=4;
{------------- ’Ґбвгў ¬¬п -----------}
k:=0;
for i:=1 to r do
begin
clrscr;
writeln('ЏЁв ¬¬п ',i);
with mass[i] do
begin
writeln(task);
writeln('1. ',v1);
writeln('2. ',v2);
writeln('3. ',v3);
writeln('4. ',v4);
write('‚ўҐ¤iвм ¬®¬Ґа Їа ўЁ«м¬®Ј® ў аi ¬вг: ');
readln(s);
if s=n
then k:=k+1;
end;
end;
{--------- ‚ЁўҐ¤Ґ¬¬п १г«мв вг ------------}
clrscr;
s:=round(k/r*100);
case s of
0..19: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 1.');
20..29: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 2.');
30..44: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 3.');
45..54: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 4.');
55..64: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 5.');
65..74: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 6.');
75..79: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 7.');
80..84: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 8.');
85..94: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 9.');
95..99: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 10.');
100: writeln('‚Ё ўiମ ўi¤Ї®ўi«Ё ¬ ',s,'% ЇЁв ¬м. ‚ и ®жi¬Є - 11.');
end;
readkey;
end.
Категория: Інформатика | Добавил: Zet
Просмотров: 217 | Загрузок: 0 | Рейтинг: 0.0/0