Примеры решения задач
Изучение языка программирования происходит в контексте решаемых задач, т.е. новые средства языка вводятся по мере необходимости для решения очередного типа задач. Рассмотрим решение некоторых задач с использованием языка Паскаль, предлагаемых в учебнике [6]. Эти примеры иллюстрируют использование метода аналогии между учебным алгоритмическим языком и Паскалем.
Пример 1. Составить алгоритм, по которому на компьютере будет происходить следующее: в переменную S вводится возраст Саши, в переменную М вводится возраст Маши. В качестве результата на экран выводится фраза «Саша старше Маши», или «Маша старше Саши», или «Саша и Маша ровесники». Написать программу на Паскале по этому алгоритму.
Решение. Алгоритм имеет структуру двух вложенных полных ветвлений. При переходе от алгоритмического языка к Паскалю следует обратить особое внимание на необходимость точного соблюдения правил синтаксиса языка: точки с запятой в конце операторов, параметров ввода и вывода в круглых скобках и пр.
алг САША-MАША Program Sasha&Masha;
вещ S, M var S, M: real;
нач вывод 'Возраст Саши:'. begin write ('Возраст
ввод S Саши:');
вывод 'Возраст readln(S);
Маши:' write('Возраст
ввод М Маши:' );
если S > M readln(М);
то вывод 'Саша if S > М
старше Маши' then write('Саша
иначе если S = М старше Маши')
то вывод 'Саша else if S = М
и Маша then write('Саша
ровесники' и Маша ровесники')
иначе вывод else write('Маша
'Маша старше старше Саши')
|
|
|
Саши1 end.
Кв
Кв
Кон
Пример 2. Составить алгоритм упорядочения значений трех переменных по возрастанию, т.е. при любых исходных значениях А, Б, С отсортировать их так, чтобы стало А < В < С. Написать программу на Паскале по этому алгоритму.
Решение. В подразделе 12.4учебника [6] рассмотрен алгоритм упорядочения значений двух переменных. Для решения данной задачи требуется трижды применить этот алгоритм: упорядочить А и В, упорядочить В и С (после этого максимальное значение попадет в С), еще раз упорядочить Aw. В. Таким образом, алгоритм будет иметь структуру трех последовательных неполных ветвлений.
Алг СОРТИРОВКА-3 Program SORT_3;
вещ А, В, С, X var A,B,C,X: real;
Нач begin
ввод А, В, С readln (А, В, С);
если А > В if A > В
То then begin
X:= А; X:= А;
А:= В; А:= В;
В:= XВ:= X
kb end;
Дата добавления: 2015-12-21; просмотров: 18; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!