Лабораторная работа «Программирование ветвящихся алгоритмов»
Цель: познакомиться с условным оператором и оператором выбора; научиться составлять простейшие алгоритмы, использующие данные конструкции.
Т
еоретическая
часть
|
Pascal |
Условный оператор |
If условие then Действие, если условие выполняется Else Действие, если условие не выполняется;
|
Оператор выбора |
Case выражение of A1: оператор_1; A2,A3: оператор_2; A4..A5: оператор_3; ........... An: оператор_n; Else оператор_n+1 End;
|
Если требуется выполнить группу действий, где будет более 1 операции, то эти действия нужно заключить в операторные скобки
Begin
действия
End;
If условие then
Begin
Действия, если условие выполняется
End
Else
Begin
Действия, если условие не выполняется
End;
На блок-схемах условный оператор и оператор выбора обозначаются следующим образом
Пример 1. Из трех вещественных чисел X, Y, Z выбрать наибольшее
Program pr1;
Var
X,y,z,max:real;
Begin
Write (‘Ввести x,y,z: ’);
Readln(x,y,z);
If (x>=y) and (x>=z) then max:=x;
If (y>=x) and (y>=z) then max:=y;
If (z>=x) and (z>=y) then max:=z;
Writeln(‘Максимальное значение =’, max:6:3)
End.
Пример 2. Дано число а. Вычислить f(a), если
0
при x0,
F(x)= x2–x при 0<x1,
x2–sin x2 при других х
Program pr2;
Var
x,f:real;
Begin
Write (‘Ввести число: ’);
Readln(x);
If x<=0
Then f:=0
Else
if x<=1 then f:=sqr(x)–x
else f:=sqr(x)–sin(pi*x*x);
Writeln(‘Значение функции F(x) при x=’, x, ‘равно’,F)
End.
Пример 3. Согласно гороскопу, каждому году присвоено имя какого-нибудь животного. Написать программу, которая по номеру года определяет его название, если известно, что начало 12-летнего цикла – 1996 год – год крысы
Program pr3;
Var
year:integer;
Begin
Write (‘Ввести год: ’);
Readln(year);
Case year mod 12 of
0:writeln(‘год обезьяны’);
1:writeln(‘год петуха’);
2:writeln(‘год собаки’);
3:writeln(‘год свиньи’);
4:writeln(‘год крысы’);
5:writeln(‘год коровы’);
6:writeln(‘год тигра’);
7:writeln(‘год зайца’);
8:writeln(‘год дракона’);
9:writeln(‘год змеи’);
10:writeln(‘год лошади’);
11:writeln(‘год овцы’);
End;
End.
Задания на лабораторную работу
Часть 1.
Написать программу на любом языке с использованием условного оператора
Дано трехзначное число. Определить, если в нем нули.
Определить сколько раз в данное четырехзначное число входит цифра 1
Даны три числа. Вывести на экран только четные из них. Если таковых нет, то указать об этом
Даны целые числа m и n. Если они одинаковые, то каждое удвоить, иначе найти между ними разницу и добавить ее к каждой переменной
Определить, является ли целое число N четным двузначным числом
Определить, является ли треугольник со сторонами a,b,c равносторонним.
Определить, является ли треугольник со сторонами a,b,c равнобедренным.
Определить, есть ли среди чисел a,b,c хотя бы одна пара противоположных чисел
На экран выводится вопрос «Кто ты: мальчик или девочка? Если мальчик, введи 0, если девочка - 1». В зависимости от ответа вывести на экран «Мне нравятся девочки!» или «Мне нравятся мальчики!»
Дано число. Если оно отрицательное, то возвести его в квадрат, иначе удвоить
Дано трехзначное число. Определить, равны ли в нем хотя бы пара равных цифр
Дано три числа. Определить, сколько из них отрицательных