Образец решения задач.

Задача № 1. Напишите программу, анализирующую данные сейсмографа, который выводит сообщение «Опасность землетрясения большой разрушительной силы», если данные превысили 5 баллов по шкале Рихтера.

Анализ постановки задачи.

Для решения данной задачи применим алгоритмическую структуру ветвления, можно использовать как полную форму, так и сокращенную форму. Необходимо учитывать, что при написании сокращенной форме ветвления в данной задаче, в случае, если будет <= 5 баллам по шкале Рихтера, то никакого ответа выдаваться не будет. Поэтому лучше использовать полную структуру ветвления.

Входные данные.

Количество баллов по шкале Рихтера – ball (тип - вещественный).

Выходные данные.

Результатом будет сообщение, требуемое условием задачи.

Алгоритм.

· Ввести входные данные.

· Проанализировать входные данные.

· Вывести соответствующее сообщение.

Текст программы

Var

ball : real;

Begin

writeln(‘Введите количество баллов по шкале Рихтера’);

readln(ball);

if ball>5 then writeln(‘Опасность землетрясения большой разрушительной силы’)

else writeln(‘Количество баллов не превышает пяти’)

end.

Задача № 2. Вычислить Х для целочисленных данных aиb.

Анализ постановки задачи.

Решение данной задачи предполагает использование алгоритмической структуры ветвления. Для нахождения значения X необходимо проанализировать значения переменных a и b с помощью команды ветвления. В зависимости от того, как эти данные соотносятся – X подсчитывается по той или иной формуле.

Входные данные.

Неизвестные переменные в выражении – a, b (тип - целый).

Выходные данные.

Результат вычисления значения выражения – X (тип - вещественный).

Алгоритм.

· Ввести входные данные.

· Проанализировать входные данные:

· если a>b, то x= sqr(a)*b+1;

· если a<b, то x=(a-5)/12;

· если a=b, то x= a/8;

· Вывести результат на печать.

Текст программы

Var

a, b : integer;

x : real;

Begin

writeln(‘Введите’);

readln(a, b);

if a>b then x:=sqr(a)*b+1

else if a<b then x:=(a-5)/12

else x:=a/8;

writeln(‘x= ’, x)

end.

Задача № 3. В компьютер вводится информация: количество знаков в рекламе; на какой странице в газете будет печататься (если 1 или 4, то предоставляется скидка 50 %, если 2 или 3, то скидок нет); количество публикаций (если 2 публикации, то скидка 5 %, если 3 публикации, то скидка 10 %, если 4 публикации, то скидка 20 %, если > 5 публикации, то скидка 25 %). Необходимо определить стоимость рекламы с учетом всех скидок.

Анализ постановки задачи

Для подсчета стоимости рекламы необходимо умножить количество знаков на стоимость одного знака, и этого было бы достаточно, если бы условие задачи не предусматривало различные скидки. В этой связи воспользуемся алгоритмической структурой ветвления для учета всех скидок.

Входные данные.

Количество знаков в рекламе – kol_zn (тип – целый);

Номер страницы, на которой будет печататься реклама – num_str (тип – целый);

Количество публикаций – kol_pbl (тип – целый);

Стоимость одного знака – stoim_zn (тип – вещественный).

Выходные данные.

Cтоимость рекламы – stoim_rk (тип – вещественный).

Алгоритм.

· Ввести входные данные.

· Подсчитать стоимость рекламы по следующей формуле: stoim_rk= stoim_zn*kol_zn.

· Подсчитать стоимость рекламы с учетом всех скидок:

· если num_str=1 или num_str=4, то предоставляется скидка 50 %, т.е. stoim_rk= stoim_rk/2;

· если kol_pbl=2, то stoim_rk=stoim_rk-stoim_rk*0.05, иначе если kol_pbl=3, то stoim_rk=stoim_rk-stoim_rk*0.1, иначе если kol_pbl=4, то stoim_rk=stoim_rk-stoim_rk*0.2, иначе если kol_pbl>5, то stoim_rk=stoim_rk-stoim_rk*0.25.

· Вывести результат на печать.

Текст программы

var kol_zn, num_str, kol_pbl : integer;

stoim_zn, stoim_rk : real;

Begin

Writeln(‘Введите количество знаков вашей рекламы’);

Readln(kol_zn);

stoim_zn:=20.50; {стоимость одного знака}

stoim_rk= stoim_zn*kol_zn; {стоимость рекламы}

Writeln(‘Введите номер страницы 1-4 на которой будет размещаться ваша реклама’);

Readln(num_str);

If (num_str=1) or (num_str=4) then stoim_rk= stoim_rk/2;

Writeln(‘Введите количество публикаций вашей рекламы’);

Readln(kol_pbl);

If kol_pbl=2 then stoim_rk=stoim_rk-stoim_rk*0.05

else If kol_pbl=3 then stoim_rk=stoim_rk-stoim_rk*0.1

else If kol_pbl=4 then stoim_rk=stoim_rk-stoim_rk*0.2

else If kol_pbl>5 then

stoim_rk=stoim_rk-stoim_rk*0.25;

Writeln(‘Стоимость вашей рекламы= ’, stoim_rk)

end.

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

Вариант 1.

1. Напишите программу, анализирующую данные пожарного датчика в помещении, которая выводит сообщение «Пожароопасная ситуация», если температура в комнате превысила 60⁰.

2. Вычислить Х для целочисленных данных aиb.

3. При выплате зарплаты из нее вычитается подоходный налог следующим образом: с зарплаты менее 120 р. подоходный налог не взимается, c зарплаты > 10000 – 20%, с остальных - 12%. Составьте программу, с помощью которой по окладу вычислялся бы подоходный налог и сумма денег к выплате.

Вариант 2.

1. Напишите программу, определяющую таможенную пошлину (30% от стоимости товара) на ввозимый в страну товар, если стоимость товара превышает 1000 $.

2. Вычислить Х для целочисленных данных aиb.

3. Составьте программу, реализующую эпизод применения компьютера в книжном магазине. Компьютер запрашивает стоимость книг и сумму денег, внесенную покупателем. Если сдачи не требуется, печатает на экране «Спасибо». Если денег внесено больше, то печатает «Возьмите сдачу» и указывает сумму сдачи. Если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы.

Вариант 3.

1. Составьте программу, проверяющую, является ли введенное число четным или нечетным.

2. Вычислить Х для целочисленных данных aиb.

3. Лицензионный сбор взимается в следующих размерах к минимальной месячной оплате труда в зависимости от действия лицензии: до 1 года – 30%, от 1 до 2 лет – 40%, от 2 до 3 – 50%, от 3 до 4 лет – 60%, от 4 до 5 – 70%. В случае утери лицензии сбор 20% от первоначального сбора. Составьте программу определения лицензионного сбора.

Вариант 4.

1. Напишите программу, анализирующую данные датчика, который измеряет уровень загрязнения воды и выводит сообщение «Уровень загрязнения превышает норматив», если норма составляет X у.е.

2. Вычислить Х для целочисленных данных aиb.

3. Для определения рентабельности автобусного маршрута вычисляют разницу между сданными деньгами за проезд и затратами на обеспечение маршрута (зарплата + бензин + ремонт). Составьте программу определения самого рентабельного из трех маршрутов в городе.

Вариант 5.

1. В компьютер поступила информации о доходе за истекший год двух рынков города. Определите “лидера”, т.е. рынок с наибольшим доходом.

2. Вычислить Х для целочисленных данных aиb.

3. При начислении больничного листа учитывается непрерывный трудовой стаж: до 5 лет – 60%, от 5 до 8 лет – 80%, от 8 и дальше – 100% последнего оклада. Составьте программу начисления больничного листа служащему.

Вариант 6.

1. Напишите программу, которая по паролю определят доступность сотрудника к секретной информации в базе данных (есть доступ/нет доступа).

2. Вычислить Х для целочисленных данных aиb.

3. Составьте программу, которая для числа K (от 1 до 99), введенного вами, напечатает фразу «Мне K лет», где K – введенное число, при этом в нужных случаях слово «лет» заменяя на «год» или «года». Например, при K=70 «Мне 70 лет», при K=15 «Мне 15 лет», при K=23 «Мне 23 года», при K=31 «Мне 31 год».

Вариант 7.

1. Напишите программу, которая по возрасту человека, введенному с клавиатуры, определяет является ли человек пенсионером или нет.

2. Вычислить Х для целочисленных данных aиb.

3. Даны два действительных положительных числа. Арифметические действия пронумерованы (1-сложение, 2-вычитание, 3- умножение, 4 –деление). Составить программу, которая по введенному номеру выполняет то или иное действие над числами.

Вариант 8.

1. Напишите программу, которая по возрасту и полу человека, определяет является ли он военнообязанным (мужчина – военнообязанный; женщина - невоеннообязанная).

2. Вычислить Х для целочисленных данных aиb.

3. В продаже имеются компактные компьютеры марки: TOSHIBA $500; SHARP $900; DELL $1350. Оптовым покупателям (>10) – скидка 17%. Составьте программу определения стоимости покупки компьютеров в $ и в рублях по курсу.

Вариант 9.

1. В компьютер поступила информации о доходе за истекший год двух рынков города. Определите рынок с наименьшим доходом.

2. Вычислить Х для целочисленных данных aиb.

3. Составьте программу, которая по введенному вами K – числу грибов печатает фразу «Мы нашли в лесу K грибов», причем согласовывает окончание слова «гриб» с числом K. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т.д. Окончание фразы определяется значением последней цифры.

Вариант 10.

1. Напишите программу, которая по возрасту человека, введенному с клавиатуры, определяет является ли человек долгожителем или нет (более 90 лет - долгожитель).

2. Вычислить Х для целочисленных данных aиb.

3. В ЭВМ поступают результаты соревнований по плаванию для 3-х спортсменов. Составьте программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победителя заплыва.

Контрольные вопросы:

1. В каких случаях используется вложенный оператор ветвления?

2. Что представляет собой составное условие?

3. Когда используется составной оператор?

4. В чем заключается работа оператора ветвления?

5. Как записывается вложенный оператор ветвления?

6. Сколько вложений можно делать в команде ветвления?

7. Каков принцип работы структуры ветвления? Запись на Паскале.

8. В каких случаях используется полная структура ветвления, в каких сокращенная?

9. Найдите ошибку в следующем фрагменте программы:

if 1<x<2 then x:x+1; y:=0;

else x:=0; y:=y+1;

10.Найдите ошибку в следующем фрагменте программы:

if 1<x and x<2 then begin x:x+1; y:=0 end;

else begin x:=0; y:=y+1 end