5. Опис алгоритмів із розгалуженням мовою програмування.
Приклад 1:
Program SUMMA;
Label M1;
Var a, b, V : real;
begin
write(‘A=’);
readln(A);
write(‘B=’);
readln(B);
if A>B then
begin
V:=A-B;
Goto M1;
end;
V:=A+B;
M1: writeln (‘Відповідь:’V);
end.
Приклад 2:
Скласти програму, яка визначає пору року за порядковим номером місяця.
Program PORA;
var MONTH : integer;
begin
Write(‘Введіть порядковий номер місяця:’);
readln (MONTH);
if (MONTH<1) or (month>12)
then writeln (‘Такого місяця немає’)
else
case MONTH of
3,4,5 : writeln (‘Весна’);
6,7,8 : writeln (‘Літо’) ;
9,10,11 : writeln (‘Осінь’);
12,1,2: writeln (‘Зима’)
end;
end.
Задача 1:
Скласти
програму обчислення значення функції
Програма розв'язання задачі на мові Паскаль.
Program ROBOTA1;
Var Х, У: real;
begin
write('Х= ');
readln(Х);
if x<0 then Y:=X
else if (0<=X) and (X<5) then Y:=5
else Y:=5*X;
writeln ('X=',X,' Y=',Y);
end.
Задача 2: Перевірити, чи належить точка з координатами Х та У області, яка обмежена наступними нерівностями.
-
фігурна дужка: використання логічної
операції and
[ - квадратна дужка: використання логічної операції or
program z1;
Var X,y:real;
begin
writeln('Vvedite x,y');
readln(x,y);
if ((x>=0) and (x<=4)) and ((y>=0) and (y<=3)) then
writeln('tochka v oblasti') else
writeln('tochka ne v oblasti');
readln;
end.
program z2;
Var X,y:real;
begin
writeln('vvesti x,y');
readln(x,y);
if ((Sqr(x)+Sqr(y)<=1) or (abs(x)-abs(y)<=1)) then
writeln('Tochka v oblasti') else
writeln('Tochka ne v oblasti');
readln;
end.