Порядок выполнения работы. Получить задание на выполнение лабораторной работы согласно своему варианту (раздел

Получить задание на выполнение лабораторной работы согласно своему варианту (раздел 6). Разработать и отладить программу. Составить и защитить отчет о лабораторной работе у преподавателя.

Содержание отчета

- наименование и цель работы;

- задание на лабораторную работу согласно варианту;

- схема алгоритма, текст программы на алгоритмическом языке;

- результаты работы программы.

Краткая теория

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

Условный оператор IF

Условный оператор If позволяет произвести развилку алгоритма, в которой осуществляется выбор одной из двух альтернативных ветвей в зависимости от некоторого условия (при этом одна из ветвей может отсутствовать). В качестве условия выбора используется значение логического выражения. Оно может быть простым или сложным. Сложные условия организуются при помощи логических операций AND, OR, NOT.

В целом синтаксис оператора If можно представить в следующем виде:

if <логическое_выражение> then <оператор1>

[else <оператор2>]

В результате вычисления выражения получается логическое значение типа Boolean. Если результатом является значение TRUE, то выполняется <оператор1>, следующий за служебным словом then. Если же в результате выполнения получается значение FALSE, то выполняется <оператор2>, следующий за Else. Если часть условного оператора, начиная со слова Else, отсутствует, то управление передается оператору, следующему за условным.

Следует отметить, что использование в операторе If после служебного слова then второго оператора If приводит к синтаксически неоднозначной конструкции вида:

if <выражение1> then

if <выражение2> then

<оператор1>

Else

<оператор2>

Компилятор Турбо Паскаль разрешает подобную неоднозначность, интерпретируя этот фрагмент следующим образом:

if <выражение1> then

Begin

if <выражение2> then

<оператор1>

Else

<оператор2>

end;

То есть, служебное слово else всегда ассоциируется с ближайшим по тексту служебным словом if, которое еще не связано со служебным словом else.

Примеры:

1) if X>Y then Max:=X else Max:=T;

2) if X>0 then X:=Sqrt(X);

3) if Ch=1 then

Begin

X:=Sin(X);

WriteLn(‘Sin(x)= ’,X);

End

Else

Begin

X:=Cos(X);

WriteLn(‘Cos(x)= ’,X);

end;

4) if (A=5)and(B=5) then

if C mod 2 = 0 then

K:=(A+B)*C

Else

K:=(A+B)/C

Else

WriteLn(’A и В не равны 5’);

5) if D>0 then

Begin

if C mod 2 = 0 then

K:=D*C;

End

Else

K:=Sqr(D);

В пятом примере служебное слово else относится к первому if , а не к ближайшему. Порядок изменен при помощи операторных скобок begin…end.

4.2 Оператор варианта CASE

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

Оператор варианта состоит из выражения (селектора) и списка операторов, каждому из которых предшествует одна или более констант (они называются константами выбора) или ключевое слово else. Селектор должен иметь порядковый тип. Строковый тип и длинный целый тип являются недопустимыми типами селектора. Все константы выбора должны быть уникальными и иметь порядковый тип, совместимый с типом селектора.

Синтаксис:

case <селектор> of

<константа_выбора1>: <оператор1>;

<константа_выбора2>: <оператор2>;

…

<константа_выбораN>: <операторN>;

[else <оператор>]

end;

Оператор Сase приводит к выполнению оператора, которому предшествует константа выбора, равная значению селектора или диапазону выбора, в котором находится значение селектора. Если такой константы выбора или такого диапазона выбора не существует и присутствует ветвь else, то выполнятся оператор, следующий за ключевым словом else. Если же ветвь else отсутствует, то никакой оператор не выполняется.

Примеры:

Case Ch of

’A’..’Z’: WriteLn(‘Латинский алфавит’);

’А’..’Я’: WriteLn(‘Русский алфавит’);

end;

Case I of

0, 2, 4, 6, 8: Writeln(‘Четная цифра’);

1, 3, 5, 7, 9: Writeln('Нечетная цифра');

Else

Writeln('Цифра не принадлежит диапазону 0..9!');

end;

Примеры программ

5.1 Решить уравнение:

program Solution;

Var

x, y: Real;

Begin

Write(‘Введите x = ’);

ReadLn(x);

if (x>0)and(x<2) then

y:= sqr(cos(x))

Else

y:= 1-sin(x*x);

WriteLn(‘y = ’,y:5:2);

End.

5.2 Ввести символ латинского алфавита из диапазона A..E. Определить, какая буква была введена – гласная или согласная?

Program LatSymbols;

Var

c: Char;

Begin

Write(‘Введите лат.символ из диапазона A..E: ’);

ReadLn(с);

Case с of

‘A’,‘a’,‘E’,‘e’: WriteLn(‘Гласная’);

‘B’,‘b’,‘C’,‘c’,‘D’,‘d’: WriteLn(‘Согласная’);

Else

WriteLn(‘Символ не принадлежит диап. А..Е’);

end;

End.

Варианты заданий для самостоятельного решения

Оператор IF

Вариант 1

1. Может ли шар радиуса r пройти через ромбообразное отверстие с диагоналями p и q?

2. Ввести с клавиатуры a, b, c, d и вычислить:

.

Вариант 2

1. Заданы три числа: a, b, c. Определить, могут ли они быть сторонами треугольника, и если да, то определить его тип: равносторонний, равнобедренный, разносторонний. (Условия существования треугольника: ; ; ).

2. Среди заданных целых чисел k,l,m найти пары кратных.

Вариант 3

1. Можно ли коробку размером упаковать в посылку размером ? «Углом» укладывать нельзя.

2. Вычислить:

,

(x,y,z,v – вводятся с клавиатуры и принадлежат [-7;7]).

Вариант 4

1. Если значение переменной W не равно 0 и при этом котангенс от W меньше 0.5, тогда поменять знак у W, а если значение W равно 0, то присвоить W значение 1.

2. Вычислить:

, (a,b,c,d вводятся с клавиатуры).

Вариант 5

1. Составить алгоритм и программу вычисления функции, x – вводится с клавиатуры:

.

2. Число делится на 3 тогда и только тогда, когда сумма его цифр делится на 3. Проверить этот признак на примере заданного трехзначного числа.

Вариант 6

1. Найти среднее арифметическое трех чисел. Если оно больше некоторого числа А, то возвести его в квадрат, иначе удвоить.

2. Вычислить: .

Вариант 7

1. Вычислить , где x,y,z,a,b-вводятся, причем а,b должны быть кратны 5, иначе выдать соответствующее сообщение.

2. Ввести возраст человека в годах и в зависимости от числа добавить «лет» или «года». Например, 25 лет, 2 года.

Вариант 8

1. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.

2. Написать программу, которая проверяла бы справедливость неравенства, в результате выводила бы True или False:

.

Вариант 9

1. Составить алгоритм и программу вычисления функции (х вводится)

.

2. Вычислить: y=min{max{a,b},c}, a, b, c, d – даны.

Вариант 10

1. Составить алгоритм и программу вычисления функции, x, a, b, c – вводится с клавиатуры.

2. Вычислить y=min{a,b,c}+max{d,f}, где a, b, c, d, f – даны.

Вариант 11

1. Составить алгоритм и программу нахождения корней уравнения ax²+bx+c=0. Предусмотреть варианты двух, одного корня, а также, когда действительных корней нет.

2. Вычислить y=max{a,b,min{c,d}}, a, b, c, d – числа.

Вариант 12

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

2. Вычислить:

(а,b,c,d – вводятся).

Вариант 13

1. Известно, что из четырёх чисел a, b, c, d одно отлично от трех других, равных между собой. Найти сумму данного числа с любым из трех оставшихся.

2. Вычислить: U = max(x,y)+2*(min(x,y,z)), ( x, y, z – вводятся с клавиатуры).

Вариант 14

1. Составить алгоритм и программу вычисления функции, x – вводится с клавиатуры.

2. Вычислить: (a, b, c, d – вводятся с клавиатуры)

.

Вариант 15

1. Составить алгоритм и программу вычисления функции y₀ (x,y- даны)

2. Может ли шар радиуса r пройти через прямоугольное отверстие со

Сторонами А и В.

Вариант 16

1. Составить алгоритм и программу вычисления функции, x, y – вводится с клавиатуры.

2. Написать программу, которая в зависимости от введенных А, В и С считает их произведение, если они все положительны; или сумму, если хотя бы одно отрицательно.

Вариант 17

1. Написать программу проверки трех введенных чисел на четность/нечетность. Вывести, сколько из них четно, сколько нечетно.

2. Вычислить y= a + max{a,b,min{c,d}}, a, b, c, d – числа.

Вариант 18

1. Найти максимум из трех чисел. Если он больше некоторого числа А, то найти сумму этих чисел, иначе – произведение.

2. Ввести двузначное число и найти сумму цифр этого числа, если оно четно, иначе найти разность цифр.

Вариант 19

1. Написать программу, которая проверяла бы справедливость неравенства, в результате выводила бы True или False:

, (n вводится с клавиатуры).

2. Ввести четыре числа. Найти сумму четных и сумму нечетных.

Вариант 20

1. Вычислить сумму А,В и С, если все они четны, разность, если есть хотя бы одно нечетное.

2. Найти max(min(a,b);min(c,d)).

Вариант 21

1. Вычислить:

, где x,y,z,a,b-вводятся, причем а – нечетно, b кратно 3-м, иначе выдать соответствующее сообщение.

2. Числа a,b,c тогда и только тогда являются сторонами треугольника, когда существуют такие положительные x,y,z что

. Найти x,y,z.

Вариант 22

1. Вычислить:

, где x,y,z,a,b-вводятся, причем а,b четные, иначе выдать соответствующее сообщение.

2. Ввести три числа и определить, есть ли среди них четные и кратные 3-м одновременно.

Вариант 23

1. Ввести три числа x,y,z и проверить выполняется ли условие x>y>z.

2. Вычислить (x вводится с клавиатуры).

Вариант 24

1. Известно, что из четырёх чисел a, b, c, одно отлично от двух других, равных между собой. Найти сумму данного числа с любым из двух оставшихся.

2. Вычислить: U = min(x,y)+2*(max(x,y,z)), ( x, y, z – вводятся с клавиатуры).

Вариант 25

1. Найти максимум из трех чисел. Если он больше некоторого числа S, то найти среднее арифметическое этих чисел, иначе – произведение.

2. Ввести четыре числа. Найти произведение всех четных и сумму нечетных.

Вариант 26

3. Составить алгоритм и программу нахождения корней уравнения ax²+bx+c=0. Предусмотреть варианты двух, одного корня, а также, когда действительных корней нет.

4. Вычислить y=max{a,b,min{c,d}}/ max{ b,d} , a, b, c, d – числа.

6.2 Оператор варианта

1. Реализовать в программе меню выбора логических операций. В зависимости от варианта посчитать значение произвольного выражения, операндами которого являются 0 и 1.

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

3. Написать программу, которая запрашивает ввод знака арифметической операции и выдает ее название.

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

5. Ввести код цвета и определить его категорию: теплый или холодный.

6. Написать программу, которая ждет ввода буквы и, в зависимости от введенного значения, сообщает, является ли буква заглавной или строчной.

7. По введенному двузначному числу определить к какому десятку оно относиться. Например, 12 – второй десяток.

8. Написать программу, которая запрашивает ваш возраст в годах, а затем отображает информацию о периоде вашей жизни: детство, отрочество, юность, молодость, зрелость, старость.

9. Написать программу, которая требует ввода времени дня и, в зависимости от введенного значения, желает доброго утра, доброго дня, доброго вечера или спокойной ночи.

10. Написать программу определения цвета в зависимости от введенного числа.

11. Реализовать в программе меню выбора арифметических действий. В зависимости от варианта посчитать значение выражения Y:=X{+|-|*|/}А. Х и А вводятся.

12. Написать программу, которая ждет ввода первой буквы названия месяца. В зависимости от этого определяет квартал. Учесть: Июнь, Июль – разные кварталы.

13. Написать программу, которая требует ввода числа месяца и, в зависимости от введенного значения, сообщает номер декады.

14. Написать программу, которая требует ввода номера месяца, числа и, в зависимости от введенного значения, сообщает, сколько дней осталось до нового года.

15. Написать программу, которая по номеру курса выдает номера учебных семестров этого курса.

16. Заданное натуральное число N, не превосходящее 100, записать прописью, то есть вывести соответствующее количественное числительное, например: 25 – «двадцать пять».

17. По введенной дате (число, месяц) определить знак зодиака.

18. Написать программу, где ожидается ввод символа с клавиатуры, после чего определяется, является ли этот символ буквой, цифрой или специальным символом.

19. Написать программу, которая запрашивает ваше имя и рост в сантиметрах, а затем отображает информацию в виде: высокий, средний, низкий.

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

21. Написать программу, которая ждет ввода буквы русского алфавита и в зависимости от этого определяет гласная или согласная. Если согласная, то звонкая или глухая.

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

23. По углу определить вид треугольника: прямоугольный, тупоугольный, остроугольный.

24. Представить заданное целое число от 1 до 10 в римской системе счисления.

25. Написать программу, которая запрашивает ввод знака операции отношения и выдает ее название.

26. Написать программу, которая запрашивает рост и выдает предполагаемый вес.

27. Необходимо преобразовать целое число N в зависимости от величины остатка от его деления на 17 следующим образом:

если N mod 17=0, то N=0;

если N mod 17=1 или 6, то N=-N;

если N mod 17=2, 3 или 5, то N=E*N;

если N mod 17=4, то N=3*N;

иначе N=5*N.

28. По количеству артистов коллектива определить его тип:

1 – соло;

2 – дуэт;

3 – трио;

4 – квартет и т.д.

29.

30. Вычислить:

y=x в других случаях.

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

155 и менее = 36;

160-165 = 37;

166-170 = 38;

171-175 = 39 и т.д.