Использование составного оператора

Если по смыслу задачи, в зависимости от условий, надо выполнять либо одну, либо другую группу операторов, то их надо их надо превратить в один составной оператор (заключить в операторные скобки):

Begin

операторы;

End;

If Q Then

Begin

A1;

A2;

:

An;

End

Else

Begin

B1;

B2;

:

Bn;

End;

Задача 2:

Даны 2 различных числа. Вычислить x=(y+z)²; - где y=max*2; z=max/min;

Решение:

Program Vet2;

Var A,C,Max,Y:Integer;

Z,X:Real;

Begin

Writeln(’Введите 2 различных числа’);

Readln(A,C);

If A>C Then

Begin

Y:=A*2;

Z:=A/C;

End

Else

Begin

Y:=C*2;

Z:=C/A;

End;

X:=SQR(Y+Z);

Write(’X = ’,X);

End.

Задача 3.

Даны числа A, C. Решить линейное уравнение A*X=C с полным анализом.

Решение:

Program Vet3;

Var A,C,X:Real;

Begin

Writeln(’Введите 2 числа’);

Readln(A,C);

If A=0 Then

If B=0 Then

Writeln(’X -любое’)

Else

Writeln(’Решений нет’)

Else

Begin

X:=C/A;

Writeln(’X=’,X);

End;

End.

Задачи:

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

2. Даны числа A, B, C. Решить уравнение AX²+BX+C=0 с полным анализом.

3. Даны 3 числа. Найти разность большего и меньшего из этих чисел

4. Если сумма трех различных чисел X,Y,Z меньше единицы, то меньшее из X,Y заменить полусуммой Y и Z, иначе большее из X и Y заменить произведением Х*Y.