лабораторные на Pasca (Кудрявцев)l

2.Решить следующие задачи:

1)Даны действительные числа х, у, z. Составить программу, вычисляю-

щую max (2x, y, 4z).

2)Даны действительные числа х, у, z. Составить программу, вычисляю-

щую min (5x, 2y, 3z).

3)Даны действительные числа х, у, z. Составить программу, вычисляю-

щую max(х + у + z, xyz).

4)Даны действительные числа х, у, z. Составить программу, вычисляю-

щую min2(x + у + z/2, xyz) + 1.

5)Даны действительные числа х, у, z. Составить программу, вычисляю-

щую min(x2 + у2, у2 + z2).

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

z = max(х, у) при х £ 0 и z = min(x, у) при х > 0.

7)Даны действительные числа х, у (х <> у). Меньшее из этих двух чисел заменить их полусуммой, а большее – их удвоенным произведением.

8)Даны действительные числа х, у, z. Составить программу, меняющую значения переменных так, чтобы оказалось х ³ у ³ z.

9)Даны действительные числа х, у, z. Составить программу, вы-

числяющую u = max(x, z)/min(y, z).

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

z = max(x, y)/min(x, y).

11)Даны три действительных числа. Составить программу, выбирающую из них те, которые принадлежат интервалу [1, 3] или [5, 7].

12)Даны три действительных числа. Составить программу, выводящую их среднее геометрическое, если все они неотрицательны.

13)Даны три действительных числа. Составить программу, возводящую в квадрат те из них, значения которых неотрицательны.

14)Даны три действительных положительных числа а, b, с. Составить

программу, выясняющую, существует ли треугольник со сторонами а, b, с.

«Нет». Использование строкового типа в качестве селектора запре- щено.

Если для нескольких констант нужно выполнить один и тот же оператор, их можно перечислить через запятую (или даже указать диапазон, если возможно), сопроводив их одним оператором (при- мер 2, 4). Ниже приведены типичные форматы записи оператора

Case.

Пример 1. Селектор целочисленного типа:

Case i of

1:y := i+ 10;

2:y := i+ 100;

3:y := i+ 1000

end;

Пример 2. Селектор интервального типа:

Case i of

1..10: writeln('число',i:4,'в диапазоне 1-10'); 11..20: writeln('число',i:4,'в диапазоне 11-20'); 21..30: writeln('число',i:4,'в диапазоне 21-30')

else

writeln ('число',i:4,'вне пределов контроля') end;

Пример 3. Селектор перечисляемого типа:

Type

color = (red, blue, black); Var

х: integer; clr: color;

Begin

write('Введите х: ', #61#62); readln (х); Case х of {ввод значений}

1: clr := red;

2:clr := blue;

3:clr := black

end; write('color-');

Case clr of {вывод значений} red: writeln('red'); blue: writeln('blue'); black: writeln('black')

end End.

Пример 4. Селектор для нескольких констант:

Case i of

2, 4, 6, 8: writeln('четная цифра'); 1, 3, 5, 7, 9: writeln('нечетная цифра');

10..100: writeln('число от 10 до 100');

else

writeln('отрицательное число или больше 100') end;

Пример 5. Селектор литерного типа (char):

Var

ch: char; Begin

readln(ch); Case ch of

'n', 'N': writeln('Нет');

'y', 'Y': writeln('Да')

end End.

Рассмотрим программу, имитирующую работу микрокалькулятора. Программа вводит две строки: первая содержит два произвольных

КОНТРОЛЬНЫЕ ЗАДАНИЯ

1. Составить программу вычисления площадей (площадей полных поверхно- стей, объемов) различных геометрических фигур:

2. Используя оператор Case, составить программу вычисления значений функции:

Capital = (Vena, Sofia, Afiny, Rom, Oslo, Paris, Bonn);

Var St: Country; Stol: Capital;

–по значению переменной St (названию страны) присвоить переменной Stol название столицы этой страны;

–по значению переменной Stol (названию столицы) присвоить переменной St название этой страны;

2)Var Eng: (Ada, Basic, Modula2, Lisp, Pascal, Pl1, Fortran, C);

По Eng – английскому названию языка программирования вывести на экран русское название этого языка (Ада, Бейсик, Модула2, Лисп, Паскаль, Пл1,

Фортран, Си);

3)Type Name = (zero, one, two, three, four, five, six, seven);

Var d: '0'..'7'; n: Name;

По литере–цифре d присвоить переменной n название этой цифры.

4) Type Country = (Germany, Cuba, Laos, Mexico, Monaco, China,

Poland);

Continent = (Asia, America, Europe);

Var St: Country; Con: Continent;

По St – названию страны определить Con – название ее континента.

5)Type Season = (Winter, Spring,

Summer, Autumn); {зима, весна, лето, осень}

Month = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec);