Лабораторная работа № 2. Тема: Разработка, отладка и испытание разветвляющихся алгоритмов и программ

Цель: Закрепить навыки использования процедур ввода-вывода и оператора присваивания, научиться использовать операторы IF и CASE при решении задач на языке Pascal и представлять алгоритм решения задачи в виде блок-схемы с использованием структуры ветвления.

Пример:

Треугольник задан длинами сторон. Определите, пройдет ли данный треугольник в квадрат с заданной стороной.

Program Example; Блок схема:

v

Diag=a*sqrt(2)

ar a,b1,b2,b3,diag,max,m1,m2:real;

Begin

writeln('Введите значение длины стороны квадрата: ');

readln(a);

writeln('Введите значение сторон треугольника:');

readln(b1,b2,b3);

Diag:=a*sqrt(2);

if (b1>b2) and (b1>b3)

then max:=b1; m1:=b2; m2:=b3;

if (b2>b1) and (b2>b3)

then max:=b2; m1:=b1; m2:=b3;

i

max=b1; m1=b2; m2=b3

f (b3>b1) and (b3>b2)

then max:=b3; m1:=b1; m2:=b2;

if (max<diag) and (m1<a) and (m2<a)

then writeln('Треугольник пройдет в квадрат.')

else writeln('Треугольник не пройдет в квадрат.');

End.

max=b2; m1=b1; m2=b3

max=b3; m1=b1; m2=b2

Варианты заданий.

В каждом варианте для всех задач представить блок-схемы алгоритмов и написать программы на языке Паскаль.

1 пуд = 40 фунтов = 16,38 кг.

Вариант №1.

1. Известно, что 1 пуд = 40 фунтов = 16,38 кг. Вес бегуна 3 пуда 23 фунта, вес лыжника 56 кг 400 г. Кто из них легче?

2. Вычислить значение выражения .

3. Дано квадратное неравенство ax²+bx>=0. Решить неравенство, если значения коэффициентов вводятся с клавиатуры.

4. Вычислить значение выражения , значения a, b, c, d вводятся с клавиатуры.

5. Дано трехзначное целое число А. Ответить на вопрос, является ли первая цифра этого числа равной данной цифре С.

6. Вводится номер дня недели. Дать этому дню наименование. (Использовать оператор Case).

7. Человек родился в 1992 году. Какой это был знак Зодиака, если известно, что 2006 год – год Собаки, а знаки Зодиака идут в следующем порядке: Крыса, Бык, Тигр, Кот, Дракон, Змея, Лошадь, Коза, Обезьяна, Петух, Собака, Свинья. (Использовать оператор Case).

Вариант №2.

1. Имеются два козлика: у одного вес рогов х граммов, у второго – у фунтов. Кому надо рожки укоротить?

2. Известно, что 1 фут = 12 дюймов = 0,3048 м. Рост футболиста 6 футов и 7 дюймов, рост хоккеиста 1м 92 см. Кто из них выше?

3. Дано квадратное неравенство ax²+bx<=0. Решить неравенство, если значения коэффициентов вводятся с клавиатуры.

4. Вычислить значение выражения , значения a, b, c, d вводятся с клавиатуры.

5. Дано трехзначное целое число А. Ответить на вопрос, является ли средняя цифра этого числа равной данной цифре С.

6. Вводится символ. Вывести русская буква, латинская буква или цифра. (Использовать оператор Case).

7. Человек родился в 1956 году. Какой это был знак Зодиака, если известно, что 2006 год – год Собаки, а знаки Зодиака идут в следующем порядке: Крыса, Бык, Тигр, Кот, Дракон, Змея, Лошадь, Коза, Обезьяна, Петух, Собака, Свинья. (Использовать оператор Case).

Вариант №3.