ТЕМА: СОСТАВЛЕНИЕ ПРОГРАММ УСЛОЖНЕННОЙ РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ

ТЕМА: СОСТАВЛЕНИЕ ПРОГРАММ УСЛОЖНЕННОЙ РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ

Цель работы: научиться составлять программы с использованием вложенного условия

Оборудование: ПК, ИСР Pascal ABC

ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ

Любая ветвь может не быть линейным участком программы, а сама содержать ветвление. Такое ветвление называется вложенным (или множественным) ветвлением.

Чаще вторично разветвляется ветка «нет». В качестве примера разберѐм простую задачу:

В первом магазине хозяйка приобрела a кг. огурцов. Их оказалось b штук. Во втором магазине на c кг. получилось d штук. В каком магазине огурцы крупнее?

Находим массу одного огурца в каждом магазине и сравниваем их. Блок-схема данной задачи представлена ниже.

Рассмотрим пример 2

Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) — 100.

Рекомендуемый вид экрана во время работы программы приведен ниже:

Введите в одной строке через пробел

рост (см) и вес (кг) затем нажмите <Enter>

-> 170 68

Вам надо поправиться на 2.00 кг.

Листинг программы

Program Ves; var

w: real;            {вес}

h: real;             {рост}

opt: real;          {оптимальный вес}

d: real;             {отклонение от оптимального веса}

begin

writeln('Введите в одной строке через пробел'); writeln ('рост (см) и вес (кг), затем нажмите <Enter>'); write('->');

readln(h,w); opt:=h-100;

if w=opt then writeln('Ваш вес оптимален!') else

if w<opt then begin d:=opt-w; writeln('Вам надо поправиться на ',d:5:2,' кг.'); end else begin d:=w-opt; writeln('Вам надо похудеть на1, d:5:2,' кг'); end;

end.

ЗАДАНИЕ

1.   Одна коробка с яйцами содержит 10 ячеек по 30 яиц в каждой. Поместятся ли a яиц в b коробок (уже имеющих пустые ячейки)? Если не поместятся, сообщить, сколько ещѐ требуется ячеек и коробок. Если останутся лишние коробки, сообщить, сколько осталось.

2.     Определить, являются ли три введѐнных числа длинами сторон прямоугольного треугольника.

3.   В котѐл с 20 л воды всыпали m граммов соли. Норма для супа составляет от 10 до 12 г/литр. Определить, нормально ли посолена вода. Если недосолена, сообщить, сколько граммов соли нужно добавить до нормы. Если пересолена, — сколько литров воды нужно долить до нормальной концентрации.

4.    После промывки шерсть сушат. Нормальная плотность шерсти, соответствующей требуемой влажности, составляет около 280 кг/м³. На   текстильный   завод поступило m тонн шерсти, объѐм которой составляет V м³. Определить соответствие сырья требуемой влажности.

5.    Определить, лежит ли точка (x, y) внутри кольца с центром в начале координат, внутренним радиусом r₁ и внешним радиусом r₂

6.   Врач прописал больному первого лекарства всего a таблеток, по b таблеток в день и второго лекарства c таблеток по d таблеток в день. На следующий день после того, как все лекарства будет приняты, больной должен прийти на приѐм. Через сколько дней больной попадѐт на приѐм к врачу?