![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
mifrill |
![]()
Сообщение
#1
|
Гость ![]() |
Народ я не очень силен в языке ПАскаль но мне срочно нужно написать программу ну хотябы кто нибудь пусть даст намек или найдет что то похожее в архиве. А короче дело обстоит так, Надо написать ТЕСТ по информатике На Паскале. Где в Тесте 20 вопросов и четыре ответа. последовательность вопросов меняеться.А таже если возможно что бы при каждом запуске вопросы не повтрялись. С уважением Ваш МИФРИЛ
если что пишите Firechip@msn.com |
![]() ![]() |
Clane |
![]()
Сообщение
#2
|
Гость ![]() |
Код clrscr; gotoxy(25,10); write ('Вопрос номер 9: '); gotoxy (25,12); write('Назовите столицу Щвеции ? '); gotoxy(20,14); write('1) Стокгольм; '); gotoxy(20,16); write('2) Гетеборг; '); gotoxy(20,18); write('3) Мальме; '); gotoxy(25,24); write('Ваш ответ : '); nrep[9]:=GetRep; if nrep[9] = nok[9] then nprav:=nprav+1; clrscr; gotoxy(25,10); write ('Вопрос номер 10: '); gotoxy (25,12); write('Назовите столицу Финляндии ? '); gotoxy(20,14); write('1) Коккола; '); gotoxy(20,16); write('2) Хельсинки; '); gotoxy(20,18); write('3) Сало; '); gotoxy(25,24); write('Ваш ответ : '); nrep[10]:=GetRep; if nrep[10] = nok[10] then nprav:=nprav+1; clrscr; gotoxy(25,10); write ('Вопрос номер 11: '); gotoxy (25,12); write('Назовите столицу Болгарии ? '); gotoxy(20,14); write('1) Девин; '); gotoxy(20,16); write('2) Айтос; '); gotoxy(20,18); write('3) София; '); gotoxy(25,24); write('Ваш ответ : '); nrep[11]:=GetRep; if nrep[11] = nok[11] then nprav:=nprav+1; clrscr; gotoxy(2,1); textcolor(30); Writeln('Вопрос: │ Ответ: │ Верно'); textcolor(15); for i:=1 to nq do begin write(i:5, ' │', nrep[i]:6, ' │ '); if nok[i] = nrep[i] then write('Да') else write('Нет'); if i<>nq then writeln; end; gotoxy(40,2); write('╔════════════════════════════════════╗'); gotoxy(40,3); write('║ ║'); gotoxy(40,4); write('╠════════════════════════════════════╣'); gotoxy(40,5); write('║ ║'); gotoxy(40,6); write('╚════════════════════════════════════╝'); gotoxy(41,3); write(' Количество вопросов: ', nq); gotoxy(41,5); write(' Количество правильных ответов: ', nprav); { textcolor(12); clrscr; gotoxy(19,7); writeln('Кoличество вопросов: ', nq ); gotoxy(19,9); writeln('Кoличество правильных ответов: ', nprav ); writeln(' Вопрос: Ответ: Верно?'); for i:=1 to nq do begin write(i:5, ' ', nrep[i], ' '); if nok[i] = nrep[i] then writeln('Да') else writeln('Нет'); end; } gotoxy(43,15); write('Ваша оценка '); if nprav=11 then begin write('"5"!'); write(' Ну ты отличник!') end; if (nprav=10) or (nprav=9) then begin write('"5-"!'); textcolor(15); end; if (nprav=8) or (nprav=7) then write('"4"'); if (nprav=6) or (nprav=5) then write('"4-"'); if (nprav=4) or (nprav=3) then write('"3"'); if nprav=2 then write('"3-"'); if nprav=1 then write('"2"'); if nprav=0 then write('"1"'); gotoxy(43,20); textcolor(15); write('Хотите повторить тесты (y/n)? '); repeat ch:=UpCase(ReadKey); write(ch); until ch in ['Y', 'N']; { ch in ['0'..'9'] } until ch <> 'Y'; end. |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 10:06 |