Главная | Обратная связь | Поможем написать вашу работу!

Задания для самостоятельного решения

Лабораторная работа № 3. Условные алгоритмы

1. Альтернатива. Данный вид условного оператора может быть представлен в двух формах: полной и сокращённой (неполной). Инструкция записи оператора «ветвление» на языке Pascal имеет вид:

Полная форма	Сокращённая форма
if (условие) then оператор 1 else оператор 2; Перед словом else точка с запятой не ставится	if (условие) then оператор 1;

Блок-схема оператора выглядит следующим образом:

Работает оператор «ветвления» следующим образом: сначала проверяется, соблюдается ли условие. Если да, то выполняется оператор 1, и на этом работа условного оператора заканчивается. Если же условие не соблюдается, то выполняется оператор 2, после чего работа условного оператора также завершается. Если после слов then или else находится группа операторов, то они заключаются в операторные скобки «begin-end».

Полная форма	Сокращённая форма
if (условие) then begin оператор 1; оператор 2; end else begin оператор 3; оператор 4; end;	if (условие) then begin оператор 1; оператор 2; end;

Операторы в группе реализуются по порядку (друг за другом) по своим правилам.

Пример 1. Даны три числа. Написать программу нахождения меньшего из них.

Program minimum;

Uses crt;

Var a,b,c,min:integer;

Begin

Clrscr;

Writeln('Ведите первое число');

Readln(a);

Writeln('Ведите второе число'); //Ввод данных

Readln(b);

Writeln('Ведите третье число');

Readln(c);

if a<b then //Определяем меньшее из двух

min:=a

Else

min:=b;

if c<min then //Определяем меньшее из третьего числа и минимального из двух первых min:=c; // чисел

Writeln('Меньшее из трёх чисел - ',min);

End.

Задание. Набрать пример программы. Нарисовать к задаче блок-схему.

2. Многозначное ветвление (выбор). Часто приходится выбирать из нескольких возможностей. Такую ситуацию (многозначное ветвление) можно описать вложенными друг в друга операторами ветвления или – оператором выбора. Инструкция записи данного оператора на языке Pascal имеет вид:

Case n of

значение 1:оператор 1;

значение 2:оператор 2;

…………….

значение n:оператор n;

else оператор 0;

end;

Аналогично с оператором «ветвления» ветвь else может отсутствовать:

Case n of

значение 1:оператор 1;

значение 2:оператор 2;

…………….

значение n:оператор n;

end;

Блок-схема оператора выбора выглядит следующим образом:

Если при равенстве определённому значению нужно выполнить несколько действий, то после двоеточия их необходимо заключить в операторные скобки «begin-end»

Вместо одиночного значения могут проверяться списки значений или диапазоны значений:

Списки значений	Диапазоны значений
Case n of значение 1, значение 2, значение 3: begin оператор 1; оператор 2; end; значение 4, значение 5, значение 6: begin оператор 3; оператор 4; end; ……………. значение n,:оператор n; else оператор 0; end;	Case n of значение 1..значение 2: begin оператор 1; оператор 2; end; значение 3..значение 4:оператор 3; ……………. значение n,:оператор n; else оператор 0; end;

Также списки значений могут комбинироваться с диапазонами значений внутри одного рассматриваемого случая (значение1, значение2, значение3 .. значение4, значение 5).

Пример 2. Составить программу, которая по номеру дня недели выводит его название.

Program dni;

Uses crt;

Var n:integer;

Begin

Clrscr;

Writeln('Введите номер дня недели');

Readln(n);

case n of //Определяем название дня по его номеру

1:Writeln('Понедельник');

2:Writeln('Вторник');

3:Writeln('Среда');

4:Writeln('Четверг');

5:Writeln('Пятница');

6:Writeln('Суббота');

7:Writeln('Воскресенье')

еlse //Если введён несуществующий номер дня недели, то выдаётся сообщение об ошибке

Writeln('В неделе 7 дней');

end;

End.

Задание. Набрать пример программы. Нарисовать к задаче блок-схему.

Задания для самостоятельного решения

1) Даны три числа. Написать программу нахождения большего из них.

2) Написать программу, которая по номеру месяца в году выводит количество дней в нём.

3) Известно, что при совершении покупки на сумму больше 1000, предоставляется скидка 3%; больше 2000 – 5%. Составить программу вычисления стоимости покупки с учётом скидки.

Домашнее задание

1) Составить программу, которая по введённому номеру пальца на руке выводит его название.

2) Известно количество страниц в статье. Составить программу нахождения стоимости издательских услуг, если среднее количество символов на странице 6020; а цена 1 страницы варьируется от их общего числа: от 1 до 3 – 100 рублей; от 4 до 6 – 90 рублей; больше 6 – 80 рублей.

3) Известно стоимость минуты разговора, количество проговорённых минут, номер дня недели и скидка по выходным. Написать программу нахождения стоимости разговора в зависимости от дня недели.