Программа тест в Паскале

[Lord124]

program Test;
uses crt;


type
TTest = record
vopros: string;
procent : real;
otveti: array[1..4] of string;
verno: integer;
end;

var
QA : array [1..10] of TTest;
i,j,p: integer;
s: real;

begin
writeln ('Âàì ïðåäëàãàåòñÿ òåñò ïî òåìå: "Êîìïüþòåð è Pascal "');
qa[1].vopros := 'Ìîíèòîð äëÿ ... èíôîðìàöèè.';
qa[2].vopros := 'Âèä ïàìÿòè â êîìïüþòåðå?';
qa[3].vopros := 'Ïðèíòåð - ýòî óñòðîéñòâî äëÿ ... èíôîðìàöèè.';
qa[4].vopros := 'Êàê íàçûâàåòñÿ CD-Disk,êîòîðûé ìîæíî íåîäíîêðàòíî ïåðåçàïèñûâàòü?';
qa[5].vopros := '×òî òàêîå "ôàéë"?';
qa[6].vopros := 'Íàçîâèòå ñòðóêòóðó òåêñòîâîãî ôàéëà.';
qa[7].vopros := 'Â Ïàñêàëå íå ñóùåñòâóåò ... òèïà ôàéëîâ';
qa[8].vopros := 'Ãäå íàõîäèòñÿ ôèçè÷åñêèé ôàéë?';
qa[9].vopros := '×åì çàêàí÷èâàþòñÿ ïðîãðàììà â Ïàñêàëå?';
qa[10].vopros := 'Êàêîé îïåðàòîð íå îòíîñèòñÿ ê ãðóïïå îïåðàòîðîâ ââîäà-âûâîäà ÿçûêà Ïàñêàëü?';


qa[1].procent := 10;
qa[2].procent := 10;
qa[3].procent := 10;
qa[4].procent := 10;
qa[5].procent := 10;
qa[6].procent := 10;
qa[7].procent := 10;
qa[8].procent := 10;
qa[9].procent := 10;
qa[10].procent := 10;

qa[1].otveti[1] := '1 ââîäà';
qa[1].otveti[2] := '2 âûâîäà';
qa[1].otveti[3] := '3 ïåðåâîäà';
qa[1].otveti[4] := '4 äîâîäà';

qa[2].otveti[1] := '1 ïëîõàÿ';
qa[2].otveti[2] := '2 îïåðàòèâíàÿ';
qa[2].otveti[3] := '3 íå÷åëîâå÷åñêàÿ';
qa[2].otveti[4] := '4 äåâè÷üÿ';

qa[3].otveti[1] := '1 ââîäà';
qa[3].otveti[2] := '2 âûâîäà';
qa[3].otveti[3] := '3 ïå÷àòè';
qa[3].otveti[4] := '4 ïîäâîäà';

qa[4].otveti[1] := '1 CD-R';
qa[4].otveti[2] := '2 CD-ROM';
qa[4].otveti[3] := '3 CD-RW';
qa[4].otveti[4] := '4 ÑD';

qa[5].otveti[1] := '1 Ïîñëåäîâàòåëüíîñòü îäíîòèïíûõ ýë-â íà âíåøíåì íîñèòåëå';
qa[5].otveti[2] := '2 Ñòàíäàðòíûé òèï ôàéëà,ó êîòîðîãî 2 êîìïîíåíòà';
qa[5].otveti[3] := '3 Íå çíàþ';
qa[5].otveti[4] := '4 Ìóçûêà, ôîòî è ò.ï.';

qa[6].otveti[1] := '1 Ñòîëáèêîâàÿ';
qa[6].otveti[2] := '2 Ñòðîêîâàÿ';
qa[6].otveti[3] := '3 Òåêñòîâàÿ';
qa[6].otveti[4] := '4 Ëèíåéíàÿ';

qa[7].otveti[1] := '1 Òåêñòîâîãî';
qa[7].otveti[2] := '2 Òèïèçèðîâàííîãî';
qa[7].otveti[3] := '3 Òèïîâîãî';
qa[7].otveti[4] := '4 Áåñòèïîâîãî';

qa[8].otveti[1] := '1 Íà âíåøíåì óñòðîéñòâå';
qa[8].otveti[2] := '2 Íà âíóòðåííåì óñòðîéñòâå';
qa[8].otveti[3] := '3 Íà ðàáî÷åì ñòîëå';
qa[8].otveti[4] := '4 Íà ôëåøêå';

qa[9].otveti[1] := '1 Ëåòàëüíûì èñõîäîì';
qa[9].otveti[2] := '2 "End."';
qa[9].otveti[3] := '3 Ïîëîìêîé êîìïüþòåðà';
qa[9].otveti[4] := '4 Ëó÷øå âîîáùå íå ïèñàòü ïðîãðàììû';

qa[10].otveti[1] := '1 Read(A1,A2,...AK)';
qa[10].otveti[2] := '2 WriteLn(A1,A2,...AK)';
qa[10].otveti[3] := '3 PrintLn';
qa[10].otveti[4] := '4 ReadLn';

qa[1].verno := 2;
qa[2].verno := 2;
qa[3].verno := 1;
qa[4].verno := 3;
qa[5].verno := 1;
qa[6].verno := 4;
qa[7].verno := 3;
qa[8].verno := 1;
qa[9].verno := 2;
qa[10].verno := 3;

[Хыиуду]

Когда копируете, включайте русский язык, иначе такие крокозяблы переносятся.

[Lord124]

program test;
uses crt ;
var s,x,x1,x2,x3,x4,x5,x6,x7,x8,o:integer;
begin
clrscr;
s:=0;
o:=0;
writeln('Вам предлагается тест по теме: "Компьютер и Pascal "');
writeln('1)Монитор для ? информации ');
writeln ('1-Bвода');
writeln ('2-Bывода ');
writeln ('3-Перевода');
writeln ('4-Довода');
readln(x);
if x=2 then s:=s+1 else S:=s+0 ;
writeln('Вид памяти в компьютере?');
writeln('1-Плохая');
writeln('2-Оперативная');
writeln('3-Нечеловеческая');
writeln('4-Девичья');
readln(x1);
if x1=2 then s:=s+1 else S:=s+0 ;
writeln('Принтер - это устройство для ... информации');
writeln ('1-Bвода');
writeln ('2-Bывода ');
writeln ('3-Печати');
writeln ('4-Подвода');
readln(x2);
if x2=1 then s:=s+1 else S:=S+0;
writeln('Как называется CD-Disk,который можно неоднократно перезаписывать?');
writeln('1- CD-R');
writeln('2- CD-ROM');
writeln('3- CD-RW');
writeln('4- СD');
readln(x3);
if x3=3 then s:=s+1 else S:=S+0;
writeln('Что такое "файл"?');
writeln('1-Последовательность однотипных эл-в на внешнем носителе');
writeln('2-Стандартный тип файла,у которого 2 компонента');
writeln('3-Не знаю');
writeln('4-Музыка, фото и т.п.');
readln(x4);
if x4=1 then s:=s+1 else S:=s+0 ;
writeln('Назовите структуру текстового файла');
writeln('1-Столбиковая');
writeln('2-Строковая');
writeln('3-Текстовая');
writeln('4-Линейная');
readln(x5);
if x5=4 then s:=s+1 else S:=s+0 ;
writeln('В Паскале не существует ... типа файлов');
writeln('1-Текстового');
writeln('2-Типизированного');
writeln('3-Типового');
writeln('4-Бестипового');
readln(x8);
if x6=3 then s:=s+1 else S:=s+0 ;
writeln('Где находится физический файл?');
writeln('1-На внешнем устройстве');
writeln('2-На внутреннем устройстве');
writeln('3-На рабочем столе');
writeln('4-На флешке');
readln(x7);
if x7=1 then s:=s+1 else S:=S+0;
writeln('Чем заканчиваются все программы?');
writeln('1-Летальным исходом');
writeln('2-"End."');
writeln('3-Поломкой компьютера');
writeln('4-Лучше вообще не писать программы');
readln(x8);
if x8=2 then s:=s+1 else S:=s+0 ;
O:=S;
if o>=9 then o:=5 else if ( o>7) and (o<9 ) then o:=4 else if (o>5) and (o<7) then o:=3 else if o<5 then o:=2;
writeln('Ваши баллы: ',S,' Оценка:', o);
readln;
end.


Извиняюсь. Исправил.

[Хыиуду]

Бог ты мой... а если там 300 вопросов будет, вы так и будете все в программу вписывать? И 300 переменных заводить? Там и одной хватит.
В коде меняем 20 на число вопросов

Код: Выделить всё

var questions: array[1..20] of string;
var answers: array[1..20, 1..4] of string
var correct_answers: array[1..20] of byte;
i,j,x,s: byte;

questions[1]:='Назовите столицу Франции';
answers[1,1]:='Рим'; answers[1,2]:='Париж'; answers[1,3]:='Лондон'; answers[1,4]:='Брюссель'';
correct_answers[1]:=2;
{Дальше так же заполняется}

s:=0;
for i:=1 to 20 do
begin
   writeln(questions[i]);
   for j:=1 to 4 do write(j,'. ',answers[i,j],'. ');
   writeln;
   readln(x); 
   if x=correct_answers[i] then inc(s);
end;
writeln('Процент ваших правильных ответов - ', round(s/20*100));

Вот и все! А иначе зачем, по-вашему, массивы нужны?