Требуется перевести пятибалльную оценку в ее наименование

@Faketrantul · 15.03.2023, 22:19

Студворк — интернет-сервис помощи студентам

Требуется перевести пятибалльную оценку в ее наименование: 5 — «отлично», 4 — «хорошо», 3 — «удовлетворительно», 2 — «неудовлетворительно». На оценку 4 вам необходимо набрать и запустить одну из приведенных программ (любой вариант, результат будет одинаковый) на оценку «5» вам необходимо дополнить шкалу оценкой 6 - «отлично с коронкой»

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program Marks 1;
var N: Integer;
Begin
WriteLn('Введите оценку:');
ReadLn (N);
If N=5
Then WriteLn('Отлично')
Else If N=4
Then WriteLn('Хорошо')
Else If N=3
Then WriteLn('Удовлетворительно')
Else If N=2
Then WriteLn('Неудовлетворительно')
Else WriteLn('Неверная оценка')
 
End.

я создал код подправьте пожалуйста где нужно, я не понимаю просто

@Cyborg Drone · 16.03.2023, 01:09

Будем сейчас считать, что всё верно. Но это не точно.

Единственное, что было СОВСЕМ неверно, это то, что в некоторых местах кода вместо апострофа ' у Вас был разграничитель разрядов для больших чисел ‛. Я исправил. Несмотря на похожесть этих символов, для паскаля такая замена является ошибкой.

И что просто не очень - это то, что Вы разместили программу с "классическим" паскалевским синтаксисом в разделе Pascal ABC.NET, которого Вы, похоже, не знаете от слова "совсем".

Кстати, проще эту задачу сделать с помощью оператора выбора, или же с использованием константного массива.

И ещё. Вы при регистрации на форуме обещали соблюдать правила форума, пожалуйста, выполняйте Ваше обещание. Ссылка на правила есть на любой странице форума. Какого чёрта Вы поленились выделить код и нажать кнопку PASCAL в шапке редактора сообщения?

И ещё. Что значит сумбурный бред насчёт "набрать и запустить одну из приведенных программ"?

И ещё. Что значит "на оценку «5» вам необходимо дополнить шкалу оценкой 6 - «отлично с коронкой»"? Если уже стоит 5, то как можно поставить 6? По какому критерию? И, с другой стороны, если поставлено 6, при чём тут какое-то там 5?

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

Опции темы