Задания I уровня

на Интале:

на Паскале

Программа оценка

Описание х: Целый

а: Строковый

Конец _Описания

Ввод (х, 'x=')

Выбрать_По х

1: а:='понедельник';

2: а:='вторник';

3: а:='среда';

4: а:='четверг';

5: а:='пятница';

6: а:='суббота';

7: а:='воскресенье';

Иначе а:='такого дня недели нет';

Конец_Выбора

Вывод(а)

Конец

Var x: integer;

A: string;

Begin

Write (‘введите номер дня’);

Readln(х);

Case х of

1: a:=‘понедельник’;

2: a:=‘вторник’;

3: a:=‘среда’;

4: a:=‘четверг’;

5: a:=‘пятница’;

6: a:=‘суббота‘;

7: a:=‘воскресенье’;

else а:='такого дня недели нет';

end;

writeln(a)

end.

2. Составить программу, позволяющую получить словесное наименование оценок 110 по следующему алгоритму (на Интале):

Напишите программу на Паскале. Введите программу в память ЭВМ, исполните ее несколько раз (когда Вы нажмете клавиши ‘ctrl+f9’ (исполнение программы), компьютер переключится на черный экран (экран пользователя)). Вы вводите значение x, например, 5, и нажимаете клавишу ввода).

Просмотр ответов – комбинация ‘Alt-F5’.

Программа оценка

Описание х:Целый

а: Строковый

Конец_Описания

Ввод (х, 'x=')

Выбрать_По х

10: а:='превосходно'

9: а:='отлично'

8: а:='очень хорошо'

6 .. 7: а:='хорошо'

4 .. 5: а:='удовлетворительно'

3: а:='неудовлетворительно'

2: а:='плохо'

1: а:='очень плохо'

Иначе а:='такой отметки нет'

Конец_Выбора

Вывод(а)

Конец_Программы

3. В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки, свиньи. Напишите программу, которая позволяет ввести номер года нашей эры и печатает его название по старояпонскому календарю. (1996 г. – начало очередного цикла).

Идея: поскольку цикл является двенадцатилетним, поставим название года в соответствие остатку от деления номера этого года на 12.

Составьте алгоритм на Интале.

Var g: integer;

Begin

Write (‘введите год’);

Readln(g);

Case g mod 12 of

0: Writeln (‘год обезьяны’);

1: Writeln (‘год петуха’);

2: Writeln (‘год собаки’);

3: Writeln (‘год свиньи’);

4: Writeln (‘год крысы ’);

5: Writeln (‘год коровы ’);

6: Writeln (‘год тигра ‘);

7: Writeln (‘год зайца ’);

8: Writeln (‘год дракона ’);

9: Writeln (‘год змеи’);

10: Writeln (‘год лошади’);

11: Writeln (‘год овцы’);

end;

end.