Решение задач с ветвлением средствами языка Паскаль.

Теория.

Команда ветвления

Полное ветвление:

IF условие

THEN действия при выполнении условия

ELSE действия в противном случае;

Неполное ветвление:

IF условие

THEN действия при выполнении условия;

Условие может быть составным (состоящим из нескольких условий). Условия соединяются между собой логическими выражениями:

NOT – не OR – или AND – и

Примеры задач.

1. Даны 2 числа. Найти минимальное.

Program chisla;

Var a,b,min: real;

Begin

writeln(‘введите 2 числа’);

readln (a,b);

if a<b

then min:=a

else min:=b;

writeln(‘минимум=’,min:0:2);

End.

2. Найти максимум из трех целых чисел.

Program Max;

Var a,b,c,max :integer;

Begin

writeln (‘ введите три целых числа’);

readln (a,b,c);

if (a>b) and (a>c)

then max:=a;

if (b>a) and (b>c)

then max:=b;

if (c >b) and (c>a)

then max:=c;

writeln(‘максимум=’,max)

End.

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

Program Zamena;

Var a,b,c: real;

Begin

Writeln( ‘введите три числа’);

Readln (a,b,c);

if (a>0)

then a:=sqr(a);

if (b>0)

then b:=sqr(b);

if (c>0)

then c:=sqr(c);

writeln(‘a=’,a:0:2, ‘ b=’,b:0:2, ‘ c=’,c:0:2);

End.

4. Вычислить значения функции: .

Program funct;

Var x,y: real;

Begin

Writeln( ‘введите x’);

Readln (x);

if x>0

then y:=sin(x)

else y:=cos(x);

writeln(‘y=’,y:0:2);

End.

Задания.

Студенты решают задачи на компьютерах по вариантам с помощью среды программирования PascalABC.