Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Poma999
0 / 0 / 0
Регистрация: 27.11.2010
Сообщений: 4
1

Кто сможет найти ошибку??

28.11.2010, 15:22. Просмотров 288. Ответов 3
Метки нет (Все метки)

текст програмы:

PROGRAM Primer_7;
var BALL: Integer;
BEGIN
Write ('Введите величину отметки: '); Read (BALL); WriteLn;
Case BALL of { Перевод отметки в оценку }
1: WriteLn ('Очень плохо...');
2: WriteLn ('Плохо...');
3: WriteLn ('Удовлетворительно...');
4: WriteLn ('Хорошо!');
5: WriteLn ('Отлично!')
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2010, 15:22
Ответы с готовыми решениями:

Кто сможет, пришлите решение 3 номеров=)
к сожалению, я не разбераюсь в паскале. буду признательна, если получу ...

массив матрица кто сможет на паскале?
дана матрица B (m,n) (m=3, n=4).найти её минимальный элемент и указать номер...

кто сможет поможет 30.01.13 часа в 4 с паскалем?
Кто сможет помочь 30.01.13 с паскалем? Нужна помощь в решении задачи. Пишите в...

не могу написать 4 программы одного типа. кто сможет?
1) Измените значение переменной A$ так, чтобы определялось слово "вертикаль" и...

Кто сможет помогите пожалуйста с задачей заранее спасибо
Создать файл структуры наименование жевательной...

3
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
28.11.2010, 15:25 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
PROGRAM Primer_7;
var BALL: Integer;
BEGIN
Write ('Введите величину отметки: '); Read (BALL); WriteLn;
Case BALL of { Перевод отметки в оценку }
1: WriteLn ('Очень плохо...'); 
2: WriteLn ('Плохо...'); 
3: WriteLn ('Удовлетворительно...'); 
4: WriteLn ('Хорошо!'); 
5: WriteLn ('Отлично!');
[B]end;[/B]
END.
Вот так
1
patricksmirnov
76 / 76 / 51
Регистрация: 28.02.2010
Сообщений: 159
28.11.2010, 15:25 3
PROGRAM Primer_7;
var BALL: Integer;
BEGIN
Write ('Введите величину отметки: '); Read (BALL); WriteLn;
Case BALL of { Перевод отметки в оценку }
1: WriteLn ('Очень плохо...');
2: WriteLn ('Плохо...');
3: WriteLn ('Удовлетворительно...');
4: WriteLn ('Хорошо!');
5: WriteLn ('Отлично!')
end;//вот здесь закрыть оператор выбора забыл
END.
0
Poma999
0 / 0 / 0
Регистрация: 27.11.2010
Сообщений: 4
28.11.2010, 15:36  [ТС] 4
Спасибо!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2010, 15:36

Задача - Кольца. Кто сможет, объясните мне , как это понимать?
Дано M колец с равными радиусами, расположенными таким образом, что они...

Буду очень благодарен тем кто сможет написать нужный код)
ksr *psr, если mi>0 yi = (kmin+pi), если mi<0 |pi*kmin|, если mi=0...

Двумерный массив. Поиск нулей.Не могу найти ошибку ошибку в коде
Вот,например массив 5 5 0 1 0 1 0 1 1 1 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0 0...


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

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

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