Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
2 / 2 / 4
Регистрация: 14.01.2016
Сообщений: 58
1

Проверка знаний арифметики

11.02.2016, 21:31. Показов 726. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста найти ошибку в программе:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var a,b,c,q,e:integer;
       s:string;
begin
Randomize;
e:=0;
For q:=1 to 15 do
   begin
   a:=1+random(10);
   b:=1+random(10);
   writeln('Сколько будет ',a, 'x ', b, '?');
   readln(c);
   if a*b<>c then e:=e+1;
   end;
 case e of
       0:    s:='Отлично';
       1,2:  s:='Хорошо';
       3..5: s:='Удовлетворительно';
       esle  s:='Не удовлетворительно';
 end;
 writeln(S);
 end.
Добавлено через 5 минут
запятые забыл.............

Добавлено через 13 секунд
понятно....
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.02.2016, 21:31
Ответы с готовыми решениями:

Проверка знаний таблицы умножения
Написать программу, проверяющую знание таблицы умножения. Учащемуся даётся 5 попыток для решения...

Проверка знаний таблицы умножения.
1)Проверка знаний таблицы умножения. Ввести два числа, с шагом n. Через repeat until 2) Ввести на...

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

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

1
Эксперт С++
1597 / 929 / 777
Регистрация: 06.02.2016
Сообщений: 2,414
Записей в блоге: 29
11.02.2016, 21:32 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
program pr;
var a,b,c,q,e:integer;
s:string;
begin
Randomize;
e:=0;
For q:=1 to 15 do
begin
a:=1+random(10);
b:=1+random(10);
writeln('Сколько будет ',a,' x ' ,b,'?');
readln(c);
if a*b<>c then e:=e+1;
end;
case e of
0: s:='Отлично';
1: s:='Хорошо';
2: s:='Хорошо';
3..5: s:='Удовлетворительно';
else
s:='Не удовлетворительно';
end;
writeln(s);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.02.2016, 21:32

Проверка знаний по C++
Оцените правильность моих ответов пожалуйста. Всего было 100 вопросов. Я оставил только те, в...

Теоретия. Проверка знаний
Все привет. Поможете ответить на несколько теоретических вопросов??)) Буду очень благодарен:) 1...

Программа - проверка знаний
Изучаю Qt Creator и нужно написать программу тестирование, которая будет состоять из нескольких тем...

Таблица умножения проверка знаний
Народ помогите сделать аналог http://www.mobintech.ru/multiplication/ в delphi

Проверка знаний таблицы умножения
Задание таково что нужно написать код который проверяет знание таблицы умножения. Веб-страница...

Проверка знаний: Таблица питания
Здравствуйте! Мне нужна ваша помощь в создании формы, которая будет одновременно --брать...


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

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

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