Как сделать тест в паскале

Тест с данными из файла, а не из программы

В момент выхода из программы обеспечьте появление окна для сохранения файла с данными
В момент выхода из программы обеспечьте появление окна для сохранения файла с данными, если в него.

Тест программы
Хочу сделать небольшую программу. Проблема в следующем: на разных устройствах звук срабатывает по.

Вложения

bilet1.txt (350 байт, 5 просмотров)

Так и есть, лишние отступы. Проверьте работу без них (пример прикрепил).

Вложения

bilet1.txt (346 байт, 6 просмотров)

Небольшой тест по компиляции программы
1.Процесс компиляции программы A) переводит исходный текст в исполняемый файл B) проверяет.

Меню для программы-тест
Народ, помогите пожалуйста. У меня есть код проги-теста, нужно сделать для неё меню.

Тест программы на уязвимость и недоработки
Написал программу на c++ не могли бы вы ее сломать,попытаться ее зациклить или найти уязвимости.

Тест программы на разных дистрибутивах
Добрый вечер, уважаемые пользователи форума. Начал разрабатывать программу (сейчас есть пример.

Обмен данными программы с сайтом
Здравствуйте. Мне надо реализовать следующее: При запуске программа должна взять данные из.

Тест программы на Turbo Delphi Lite
Может кто протестировать? По возможности скидывайте условия при которых возникла ошибка (что.

Источник

как делать тесты в паскале?? очень надо. а ваще кто может написать прогу??помогите. срочнооооооооооооооооооооо

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);
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.

Источник

Написать универсальную программу тестирования

Написать программу тестирования
Помогите написать программу-тест на Паскале. Тест самый простой, надо чтоб вопросы брались с.

Написать программу тестирования
Подскажите, как сделать тест в паскале типа: вопрос, ответ( если правильно, то следующий вопрос.

написать программу, позволяющую автоматизировать процесс тестирования
На языке Паскаль написать программу, позволяющую автоматизировать процесс тестирования.

Кто нибудь сможет написать эту программу?

Добавлено через 19 часов 13 минут

Решение

Написать универсальную программу формирующую таблицу сложения из р-й системы в р-й систему
Помогите пожалуйста доделать задачу, %-) Условие:Написать универсальную программу формирующую.

Написать универсальную программу, которая строит галтель с любым количеством углов
Есть код в Паскале, не знаю как его перевести в с#. uses Graph; var

Написать программу тестирования
Ребят помогите плиз. нужна программа. так чтобы не первой странице было название школы.

Источник

Программа для проведения компьютерного тестирования на языке Паскаль.

«Управление общеобразовательной организацией:
новые тенденции и современные технологии»

Свидетельство и скидка на обучение каждому участнику

Программа для компьютерного тестирования на языке Паскаль.

Программа позволяет провести тестирование с использованием компьютера. Тест состоит из 10 вопросов. Вопросы предварительно распечатываются. При желании преподавателя количество вопросов может быть увеличено, например до 20. При этом необходимо дополнить программу. Для каждого вопроса предлагаются пять вариантов ответа. Учащимся необходимо выбрать среди них правильный ответ и внести номер выбранного ответа в компьютер. После набора номеров выбранных ответов следует нажать на клавишу Enter >>. При этом на экране в виде текста дается результат выполнения теста. В данном примере правильными ответами являются номера 5, 2, 1, 4, 5, 2, 2, 1, 1, 1. Изменив значения A 1, A 2, …, A 10 можно выбрать другие варианты правильных ответов.

Критерии выставления оценок по результатам теста следующие:

var A1, A2, A3, A4, A5,A6,A7,A8,A9,A10:integer;

writeln (‘Введите Ваше Имя’);

writeln (‘введите номер ответа на 1 вопрос’);

if A1=5 then S1:=1 else S1:=0;

writeln (‘введите номер ответа на 2 вопрос’);

if A2=2 then S2:=1 else S2:=0;

writeln (‘введите номер ответа на 3 вопрос’);

if A3=1 then S3:=1 else S2:=0;

writeln (‘введите номер ответа на 4 вопрос’);

if A4=4 then S4:=1 else S4:=0;

writeln (‘введите номер ответа на 5 вопрос’);

if A5=5 then S5:=1 else S5:=0;

writeln (‘введите номер ответа на 6 вопрос’);

if A6=2 then S6:=1 else S6:=0;

writeln (‘введите номер ответа на 7 вопрос’);

if A7=2 then S7:=1 else S7:=0;

writeln (‘введите номер ответа на 8 вопрос’);

if A8=1 then S8:=1 else S8:=0;

writeln (‘введите номер ответа на 9 вопрос’);

if A9=1 then S9:=1 else S9:=0;

writeln (‘введите номер ответа на 10 вопрос’);

if A10=1 then S10:=1 else S10:=0;

Writeln ( ‘Поздравляю, вы получили оценку » отлично!»‘)

Источник

помогите создать тест в паскале

1 А. Я люблю
командные виды спорта.

Б. Кроссворды
увлекают меня.

В. Я всегда
готов дать совет, если другим он нужен.

Г. Мне
нравится говорить по телефону.

Д. Я
машинально рисую картинки в записных книжках.

Е.
Я интересуюсь всем, что меня окружает.

2 А. Мне
нравится работать руками.

Б. Я всегда
составляю список дел, которые нужно выполнить.

В. Я бы
предпочел работать на себя, чем на кого-то другого.

Г. Мне
нравится помогать людям.

Д. Я люблю
использовать свое воображение.

Е.
Я неплохо разбираюсь в естественных науках.

3 А. Я умею
обращаться с инструментами.

Б. Моя комната
всегда находится в образцовом порядке.

В. Я
предпочитаю работать не в одиночку, а в коллективе.

Г. Я не
стесняюсь высказывать своего мнения.

Д. Я люблю
модно одеваться.

Е.
Я люблю читать энциклопедию подряд, страницу за страницей.

4 А. Я
предпочитаю находиться на открытом воздухе, нежели в помещении.

Б. Математика
– это то, что я знаю лучше всего.

В. Я
предпочитаю участвовать в представлении, а не наблюдать за ним.

Г. Я спрашиваю
совета при решении возникших проблем.

Д. Я всегда
принимаю решения самостоятельно.

Е.
Меня интересует природа.

5 А. Мне
нравятся домашние животные.

Б. Мой почерк
четкий и разборчивый.

В. Я хотел бы
сделать политическую карьеру.

Д. Я
предпочитаю работать самостоятельно.

Е.
Я разбираю вещи, чтобы понять, как они устроены.

Источник