Программа для проведения компьютерного тестирования на языке Паскаль.
Международные дистанционные “ШКОЛЬНЫЕ ИНФОКОНКУРСЫ” для дошкольников и учеников 1–11 классов Программа для компьютерного тестирования на языке Паскаль. Программа позволяет провести тестирование с использованием компьютера. Тест состоит из 10 вопросов. Вопросы предварительно распечатываются.
При желании преподавателя количество вопросов может быть увеличено, например до 20. При этом необходимо дополнить программу. Для каждого вопроса предлагаются пять вариантов ответа. Учащимся необходимо выбрать среди них правильный ответ и внести номер выбранного ответа в компьютер. После набора номеров выбранных ответов следует нажать на клавишу Enter >>.
При этом на экране в виде текста дается результат выполнения теста. В данном примере правильными ответами являются номера 5, 2, 1, 4, 5, 2, 2, 1, 1, 1. Изменив значения A 1, A 2, …, A 10 можно выбрать другие варианты правильных ответов. Критерии выставления оценок по результатам теста следующие:
Как пользоваться Free Pascal IDE?
9 или 10 правильных ответов — «отлично», 7 или 8 правильных ответов – «хорошо», 5 или 6 правильных ответов – «удовлетворительно». Если же количество правильных ответов меньше 5, то результат -«неудовлетворительно». Критерии к оценкам можно редактировать в тексте программы. Например: если тест предназначен для первых и вторых классов, то можно исключить оценку «неудовлетворительно». Для старших классов можно поднять критерии. То есть программу можно адаптировать для конкретного теста и класса. var A1, A2, A3, A4, A5,A6,A7,A8,A9,A10:integer; writeln (‘введите номер ответа на 1 вопрос’); writeln (‘введите номер ответа на 2 вопрос’); writeln (‘введите номер ответа на 3 вопрос’); writeln (‘введите номер ответа на 4 вопрос’); writeln (‘введите номер ответа на 5 вопрос’);
writeln (‘введите номер ответа на 6 вопрос’); writeln (‘введите номер ответа на 7 вопрос’); writeln (‘введите номер ответа на 8 вопрос’); writeln (‘введите номер ответа на 9 вопрос’); writeln (‘введите номер ответа на 10 вопрос’); if A10=1 then S10:=1 else S10:=0; writeln ( F ,’, Вы набрали’,’ ‘, S ,’ ‘, ‘баллов’);
Writeln ( ‘Поздравляю, вы получили оценку » отлично!»‘) writeln ( F ,’, Вы получили оценку «хорошо!»‘) if 5 S then writeln ( F ,’, Вы получили оценку «удовлетворительно»‘) else writeln ( F ,’, Вы получили оценку «неудовлетворительно»‘); Источник статьи: http://infourok.ru/programma-dlya-provedeniya-kompyuternogo-testirovaniya-na-yazike-paskal-704182.html
как делать тесты в паскале?? очень надо. а ваще кто может написать прогу??помогите. срочнооооооооооооооооооооо
Uses crt;
var a,aa,b,bb,summa,c:integer;
begin
repeat
writeln(‘Если вы хотите пройти тест нажмите 1’);
writeln;
writeln(‘Если вы хотите выйти нажмите 2’);
writeln;
writeln(‘Ваш выбор: ‘);
readln(c)
if c=1 then goto 1;
if c=2 then exit;
until a in [1,2];
1:clrscr;textcolor(yellow);
Операционные системы написанные на Pascal, Delphi, Lazarus IDE, FreePascal, Turbo Pascal, Modula-2
gotoxy(13,1);writeln(‘Как вы думаете сколько миллионов человек живет в России? ‘);
gotoxy(35,4);writeln(‘1) 200’);
gotoxy(35,6);writeln(‘2) 167’);
gotoxy(35,8);writeln(‘3) 144’);
gotoxy(35,10);writeln(‘4) 129’);
gotoxy(35,13);writeln(‘Ваш выбор: ‘);
readln(a);
gotoxy(35,18);if a=3 then writeln(‘Bерно. ‘) else writeln(‘Неверно. ‘);
delay(2000);
clrscr;textcolor(cyan);
gotoxy(13,1);writeln(‘Как вы думаете какова площадь России? (100 км в квадрате) ‘);
gotoxy(35,4);writeln(‘1) 17000’);
gotoxy(35,6);writeln(‘2) 14000’);
gotoxy(35,8);writeln(‘3) 19000’);
gotoxy(35,10);writeln(‘4) 15000’);
gotoxy(35,13);writeln(‘Ваш выбор: ‘);
readln(b);
gotoxy(35,18);if a=1 then writeln(‘Bерно. ‘) else writeln(‘Неверно. ‘);
delay(2000);
clrscr;textcolor(red);
gotoxy(20,12);writeln(‘Loading progressing 5 seconds’);delay(1000);
clrscr;
gotoxy(20,12);writeln(‘Loading progressing 4 seconds’);delay(1000);
clrscr;
gotoxy(20,12);writeln(‘Loading progressing 3 seconds’);delay(1000);
clrscr;
gotoxy(20,12);writeln(‘Loading progressing 2 seconds’);delay(1000);
clrscr;
gotoxy(20,12);writeln(‘Loading progressing 1 seconds’);delay(1000);
clrscr;
gotoxy(20,12);writeln(‘Loading progressing complete!’);delay(1000);
clrscr;
gotoxy(20,2);if a=1 then writeln(‘1) Неправильно (0 баллов) ‘);delay(200);
gotoxy(20,2);if a=2 then writeln(‘1) Неправильно (0 баллов) ‘);delay(200);
gotoxy(20,2);if a=3 then writeln(‘1) Правильно (2 балла) ‘);delay(200);
gotoxy(20,2);if a=4 then writeln(‘1) Неправильно (0 баллов) ‘);delay(200);
gotoxy(20,2);if b=1 then writeln(‘2) Правильно (2 балла) ‘);delay(200);
gotoxy(20,2);if b=2 then writeln(‘2) Неправильно (0 баллов) ‘);delay(200);
gotoxy(20,2);if b=3 then writeln(‘2) Неправильно (0 баллов) ‘);delay(200);
gotoxy(20,2);if b=4 then writeln(‘2) Неправильно (0 баллов) ‘);delay(200);
if a=3 then aa:=2;
if b=1 then bb:=2;
summa:=aa+bb;
gotoxy(1,22);writeln(‘Всего баллов: ‘, summa);
clrscr;textcolor(yellow);
repeat
writeln(‘Если вы хотите пройти тест еще раз нажмите 1’);
writeln;
writeln(‘Если вы хотите выйти нажмите 2’);
writeln;
writeln(‘Ваш выбор: ‘);
readln(c)
if c=1 then goto 1;
if c=2 then exit;
until a in [1,2];
end. 2 Сергей Козлуков
в универе оттрубил.. . работаю админом, программирование ненавижу, разве что кроме bin sh. а это просто пример, из школьной программы, потому и if
Источник статьи: http://otvet.mail.ru/question/39571469
Как написать тест в паскале
‘ width=’8′ height=’8’/> Правила форума
Все ссылки на сторонние ресурсы, за исключением офсайтов программ, должны оформляться с помошью тега скрытого текста — [hide=1]Ссылка[/hide]
Novice
Группа: Пользовaтели
Сообщений: 5
Регистрация: 8.02.2005 нужна прога-тест написанная в паскале состоящая из 10 вопросов и 4 вариантов ответа (шаблон, вопросы сам поставлю) Тока я не понял это нахаляву будет или нет. Выделила в отдельную тему.
К теме «Есть работа» это отношения не имеет.
Ann
Группа: Пользовaтели
Сообщений: 9
Регистрация: 17.02.2005
Novice
Группа: Пользовaтели
Сообщений: 5
Регистрация: 8.02.2005
Группа: Пользовaтели
Сообщений: 5
Регистрация: 8.02.2005 Вот у меня почти получилось: program test4;
uses crt;
const
QCNT = 10;
VCNT = 4; type
TTest = record
vopros: string;
ball: real;
otveti: array[1..VCNT] of string;
correct: integer;
end;
var
QA : array [1..QCNT] of TTest;
i,j,p: integer;
s: real; VCNT = 4;
VA : array [1..QCNT, 1..VCNT] of string = (
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’),
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’),
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’),
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’),
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’),
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’),
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’),
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’),
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’),
(‘da’, ‘net’,’neznau’,’net pravilnogo otveta’)); var
AA : array [1..QCNT] of Integer;
i, j : Integer; begin
textcolor (black);
textbackground (white);
clrscr;
for i := 1 to QCNT do begin
writeln(‘vopros nomer ‘ , i, ‘: ‘#10#13, QA[i]);
writeln(‘varianti otveta:’);
for j := 1 to VCNT do
writeln(‘ [‘, j, ‘] — ‘, VA[i, j]);
write(‘pishite pogalusto otvet’);
readln(AA[i]);
end; s := 0;
for i:=1 to QCNT do begin
writeln(qa[i].vopros);
for j:=1 to VCNT do writeln(qa[i].otveti[j]);
readln(p);
if p=qa[i].correct then s := s + qa[i].ball;
end;
writeln(s);
end. только почему то неработает
Группа: Пользовaтели
Сообщений: 5
Регистрация: 8.02.2005 Блин кто-нить может у меня ошибку найти. program Test;
uses crt;
const
QCNT = 10;
VCNT = 4; type
TTest = record
vopros: string;
ball: real;
otveti: array[1..VCNT] of string;
correct: integer;
end;
var
QA : array [1..QCNT] of TTest;
i,j,p: integer;
s: real; begin
qa[1].vopros := ‘vopros?’;
qa[2].vopros := ‘vopros?’;
qa[3].vopros := ‘vopros?’;
qa[4].vopros := ‘vopros?’;
qa[5].vopros := ‘vopros?’;
qa[6].vopros := ‘vopros?’;
qa[7].vopros := ‘vopros?’;
qa[8].vopros := ‘vopros?’;
qa[9].vopros := ‘vopros?’;
qa[10].vopros := ‘vopros?’; qa[1].ball := 0.5;
qa[2].ball := 0.5;
qa[3].ball := 0.5;
qa[4].ball := 0.5;
qa[5].ball := 0.5;
qa[6].ball := 0.5;
qa[7].ball := 0.5;
qa[8].ball := 0.5;
qa[9].ball := 0.5;
qa[10].ball := 0.5; qa[1].otveti[1] := otvet11;
qa[1].otveti[2] := otvet12;
qa[1].otveti[3] := otvet13;
qa[1].otveti[4] := otvet14; qa[2].otveti[1] := otvet21;
qa[2].otveti[2] := otvet22;
qa[2].otveti[3] := otvet23;
qa[2].otveti[4] := otvet24; qa[3].otveti[1] := otvet31;
qa[3].otveti[2] := otvet32;
qa[3].otveti[3] := otvet33;
qa[3].otveti[4] := otvet34; qa[4].otveti[1] := otvet41;
qa[4].otveti[2] := otvet42;
qa[4].otveti[3] := otvet43;
qa[4].otveti[4] := otvet44;
qa[5].otveti[1] := otvet51;
qa[5].otveti[2] := otvet52;
qa[5].otveti[3] := otvet53;
qa[5].otveti[4] := otvet54; qa[6].otveti[1] := otvet61;
qa[6].otveti[2] := otvet62;
qa[6].otveti[3] := otvet63;
qa[6].otveti[4] := otvet64; qa[7].otveti[1] := otvet71;
qa[7].otveti[2] := otvet72;
qa[7].otveti[3] := otvet73;
qa[7].otveti[4] := otvet74; qa[8].otveti[1] := otvet81;
qa[8].otveti[2] := otvet82;
qa[8].otveti[3] := otvet83;
qa[8].otveti[4] := otvet84; qa[9].otveti[1] := otvet91;
qa[9].otveti[2] := otvet92;
qa[9].otveti[3] := otvet93;
qa[9].otveti[4] := otvet94; qa[10].otveti[1] := otvet101;
qa[10].otveti[2] := otvet102;
qa[10].otveti[3] := otvet103;
qa[10].otveti[4] := otvet104;
qa[1].correct := 1;
qa[2].correct := 4;
qa[3].correct := 3;
qa[4].correct := 1;
qa[5].correct := 2;
qa[6].correct := 3;
qa[7].correct := 4;
qa[8].correct := 1;
qa[9].correct := 3;
qa[10].correct := 2; s := 0;
for i:=1 to QCNT do begin
writeln(‘VOPROS: ‘+qa[i].vopros);
for j:=1 to VCNT do writeln(qa[i].otveti[j]);
readln(p);
if p=qa[i].correct then s := s + qa[i].ball;
end;
writeln(s);
end.
Novice
Группа: Пользовaтели
Сообщений: 9
Регистрация: 17.02.2005 Вот сделал.
Позволяет вводить до 20-ти вопросов
До 5-ти вар ответов на каждый
На разные варианты — разное кол-во ответов
3 массива
a:массив вопросов (вопрос — 255 символа)
b:массив массивов ответов (20 символов на 1 ответ)
c:массив номеров правильных ответов rate-считает кол-во правильных ответов
k — ключ указывающий что вопросы кончились (если найдет пустую строчку в a) Впринципе все. Если что — пиши. Вот твоя прога. У меня заработало. program Test;
uses crt;
const
QCNT = 10;
VCNT = 4; type
TTest = record
vopros: string;
ball: real;
otveti: array[1..VCNT] of string;
correct: integer;
end; var
QA : array [1..QCNT] of TTest;
i,j,p: integer;
s: real;
begin
qa[1].vopros := ‘vopros?’;
qa[2].vopros := ‘vopros?’;
qa[3].vopros := ‘vopros?’;
qa[4].vopros := ‘vopros?’;
qa[5].vopros := ‘vopros?’;
qa[6].vopros := ‘vopros?’;
qa[7].vopros := ‘vopros?’;
qa[8].vopros := ‘vopros?’;
qa[9].vopros := ‘vopros?’;
qa[10].vopros := ‘vopros?’; qa[1].ball := 0.5;
qa[2].ball := 0.5;
qa[3].ball := 0.5;
qa[4].ball := 0.5;
qa[5].ball := 0.5;
qa[6].ball := 0.5;
qa[7].ball := 0.5;
qa[8].ball := 0.5;
qa[9].ball := 0.5;
qa[10].ball := 0.5; qa[1].otveti[1] := ‘otvet11’;
qa[1].otveti[2] := ‘otvet12’;
qa[1].otveti[3] := ‘otvet13’;
qa[1].otveti[4] := ‘otvet14’; qa[2].otveti[1] := ‘otvet21’;
qa[2].otveti[2] := ‘otvet22’;
qa[2].otveti[3] := ‘otvet23’;
qa[2].otveti[4] := ‘otvet24’; qa[3].otveti[1] := ‘otvet31’;
qa[3].otveti[2] := ‘otvet32’;
qa[3].otveti[3] := ‘otvet33’;
qa[3].otveti[4] := ‘otvet34’; qa[4].otveti[1] := ‘otvet41’;
qa[4].otveti[2] := ‘otvet42’;
qa[4].otveti[3] := ‘otvet43’;
qa[4].otveti[4] := ‘otvet44’; qa[5].otveti[1] := ‘otvet51’;
qa[5].otveti[2] := ‘otvet52’;
qa[5].otveti[3] := ‘otvet53’;
qa[5].otveti[4] := ‘otvet54’; qa[6].otveti[1] := ‘otvet61’;
qa[6].otveti[2] := ‘otvet62’;
qa[6].otveti[3] := ‘otvet63’;
qa[6].otveti[4] := ‘otvet64’;
Группа: Пользовaтели
Сообщений: 5
Регистрация: 8.02.2005
Novice
Источник: poisk2.ru
Как проверить программу написанную в паскале
Сообщений: 239
Проверка кода
Написал программы. не компилировал поскольку нету компилятора под рукой. Прошу проверить код на наличие ошибок.
var a,b,s: real; begin a := 3; b := 7; s := a * b; WriteLn(‘s= ‘, s); end.
var a, s: integer; begin s := 0; for a := 10 to 99 do if a mod 2 = 0 then s := s + a; WriteLn(‘s= ‘, s); end.
var x, f : integer; begin WriteLn(‘Введите значение Х’); ReadLn(x); if x < 0 then f := 1 else if (x >0) and (x < 1) then f := sqr(x) else f := sqr(x+x); WriteLn(‘F = ‘, f); end.
var i : integer; a : real; begin WriteLn(‘Введите число’); ReadLn(i); case i of 5..10 : a := i mod 2; 11..20 : a := i div 2; end; //else // a := 0; WriteLn(a); end.
var s : real; n, i : integer; begin WriteLn(‘Введите число’); ReadLn(n); S:=0; for i:= 1 to n do s := s + 1/i; WriteLn(‘s=’, s); end.
P.S. С меня +1 в репутацию
Подтвердите свой е-майл
: 239
uses crt; var y,x,a,b,c:real; i:integer; begin write(‘a=’);readln(a); write(‘b=’);readln(b); begin x:=a; y:=4*power(x,3)-3; writeln(‘y(a)=’,y); end; begin x:=b; y:=4*power(x,3)-3; writeln(‘y(b)=’,y); end; readln; end.
uses crt; function fuct(a:real):real; begin if a=1 then fuct:=1; if a>1 then fuct:=a*fuct(a-1); end; var n0,n,x,a,e,s:real; begin write(‘x=’);readln(x); write(‘n0=’);readln(n0); write(‘n=’);readln(n); n:=0; s:=0; repeat n:=n0+1; e:=power(x,2*n+1)/fuct(2*n-1); x:=x+1; until n0
uses crt; var x,x1,y:real; i:integer; begin write(‘x1=’);readln(x1); write(‘x=’);readln(x); writeln(‘ X | Y(X)’); writeln(‘———|——-‘); while (x>=x1) do begin y:=ln(x1)-(1/(x1+5)); x1:=x1+1; writeln(x1:8:3,’|’,y); end; readln; end.
Подтвердите свой е-майл
: 239
//12 var a : array[0..100] of integer; i : integer; n : integer; sum : integer; begin sum := 0; ReadLn(n); for i:= 1 to n do begin ReadLn(a[i]); end; for i := 1 to n do begin if i mod 2 <> 0 then Sum := sum + a[i]; end; WriteLn(sum); end.
//13 var a : array[0..100] of integer; i : integer; n : integer; begin ReadLn(n); for i:= 1 to n do begin ReadLn(a[i]); end; for i := 1 to n do begin if a[i] mod 2 = 0 then a[i] := 0; end; WriteLn(‘———————-‘); for i:= 1 to n do begin WriteLn(a[i]); end; end.
//14 var a : array[0..100] of integer; i : integer; n : integer; min : integer; minID : integer; sav : integer; begin ReadLn(n); for i:= 1 to n do begin ReadLn(a[i]); end; min := a[1]; minID := 1; for i := 1 to n do begin if a[i] < min then begin min := a[i]; minID := i; end; end; sav := a[1]; a[1] := a[minID]; a[minID] := sav; WriteLn(‘———————-‘); for i:= 1 to n do begin WriteLn(a[i]); end; end.
// 16 var a : array[1..10, 1..10] of integer; i : integer; j : integer; n : integer; begin WriteLn(‘———————‘); for i:= 1 to 10 do begin for j:= 1 to 10 do begin a[i,j] := random(10); Write(a[i,j], ‘ ‘); end; WriteLn(); end; WriteLn(‘———————‘); for i:= 1 to 10 do a[i,i] := 0; for i:= 1 to 10 do begin for j:= 1 to 10 do begin Write(a[i,j], ‘ ‘); end; WriteLn(); end; end.
// 17 var a : array[1..10, 1..10] of integer; i : integer; j : integer; n : integer; begin WriteLn(‘———————‘); for i:= 1 to 10 do begin for j:= 1 to 10 do begin a[i,j] := random(10); Write(a[i,j], ‘ ‘); end; WriteLn(); end; WriteLn(‘———————‘); for i:= 1 to 10 do begin for j:= 1 to 10 do begin if i mod 2 <> 0 then a[i,j] := 0; end; end; for i:= 1 to 10 do begin for j:= 1 to 10 do begin Write(a[i,j], ‘ ‘); end; WriteLn(); end; end.
var a : array [0..50] of char; i : integer; j : integer; n : integer; count : integer; begin count := 0; ReadLn(n); for i := 1 to n do ReadLn(a[i]); WriteLn(‘————‘); for i := 0 to 255 do begin count := 0; for j := 0 to n do begin if ord(a[j]) = i then inc(count); end; if count > 1 then WriteLn(char(i)); end; end.
Источник: www.programmersforum.ru
Как найти ошибку в коде? [закрыт]
Закрыт. Этот вопрос не по теме. Ответы на него в данный момент не принимаются.
Вопрос вызван проблемой, которая больше не воспроизводится, или опечаткой. Хотя похожие вопросы могут быть уместны на этом сайте, решение для этого вопроса вряд ли поможет будущим посетителям. Обычно можно избежать подобных вопросов написанием и исследованием минимальной программы для воспроизведения проблемы до публикации вопроса.
Закрыт 6 лет назад .
]1 с шестой строки выдает ошибку, хотя пишу с учебника, в чем проблема? Паскаль абсNET. Использование вещественных числе с целыми.
b:=n; writeln (‘b=’,b); n:=trunk(a);writeln (‘trunk'(3.6)=’,n);
Источник: ru.stackoverflow.com