Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
DjKOTYAR
0 / 0 / 0
Регистрация: 14.02.2012
Сообщений: 2
1

Написать тест на 5 вопросов с выдачей оценки

17.02.2012, 22:17. Просмотров 662. Ответов 2
Метки нет (Все метки)

Написать тест на Turbo Pasakal на 5 вопросов, и что б в конце выдало оценку! Помогите кто чем может)Заранее благодарен)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.02.2012, 22:17
Ответы с готовыми решениями:

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

Написать программу-опрос с варьирующимся количеством вопросов и ответов
нужно написать программу-опрос с варьирующимся количеством вопросов и ответов,...

Определить количество дней, в которых оценки меньше средней оценки по классу
в массиве записаны оценки по информатике 22 учеников класса. Определить...

Имеется массив из N итоговых оценок студента.Если студент является неуспевающим(имеются оценки ниже 4),то замените все его неудовлетворительные оценки
Имеется массив из N итоговых оценок студента.Если студент является...

Придумайте шуточный текст с выдачей шуточных результатов
Плис , помогите ! Никак не получается написать , на языке паскаль. ...

2
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
18.02.2012, 00:28 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
uses crt;
const line='--------------------------------------';
      sline='---------------';
      zag1='       Тестирование по теме';
      zag2='           ТИПЫ ДАННЫХ';
var kb: integer;
    c: char;
begin
clrscr;
writeln(zag1);
writeln(zag2);
writeln(line);
writeln('Вопрос 1');
writeln(sline);
writeln('Определите тип данных: "all of us"');
writeln('i - integer; r - real; c -char; s - string');
readln(c);
if c='s' then inc(kb);
clrscr;
writeln(zag1);
writeln(zag2);
writeln(line);
writeln('Вопрос 2');
writeln(sline);
writeln('Определите тип данных: 123');
writeln('i - integer; r - real; c -char; s - string');
readln(c);
if c='i' then inc(kb);
clrscr;
writeln(zag1);
writeln(zag2);
writeln(line);
writeln('Вопрос 3');
writeln(sline);
writeln('Определите тип данных: "s"');
writeln('i - integer; r - real; c -char; s - string');
readln(c);
if c='c' then inc(kb);
clrscr;
writeln(zag1);
writeln(zag2);
writeln(line);
writeln('Вопрос 4');
writeln(sline);
writeln('Определите тип данных: 12,54');
writeln('i - integer; r - real; c -char; s - string');
readln(c);
if c='r' then inc(kb);
clrscr;
writeln(zag1);
writeln(zag2);
writeln(line);
writeln('Вопрос 5');
writeln(sline);
writeln('Определите тип данных: -5432');
writeln('i - integer; r - real; c -char; s - string');
readln(c);
if c='i' then inc(kb);
writeln(line);
writeln('Ваша отметка: ',kb);
readln;
end.
1
DjKOTYAR
0 / 0 / 0
Регистрация: 14.02.2012
Сообщений: 2
18.02.2012, 22:12 3
Спасибо большое)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2012, 22:12

Написать тест по алгебре, состоящий из 20 вопросов
Смысл в том что нужно. Ребят, в общем мне нужна помощь по созданию теста (в...

Написать тест, состоящий из вопросов и 5 вариантов ответов
Мне нужно написать тест, состоящий из вопросов и 5 вариантов ответов. В...

Программа тестирования со случайной выдачей вопросов
Пишу программу по тестированию. Всего 52 вопроса надо генерировать 10 вопросов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru