Если по смыслу задачи, в зависимости от условий, надо выполнять либо одну, либо другую группу операторов, то их надо их надо превратить в один составной оператор (заключить в операторные скобки):
Begin
операторы;
End;
If Q Then
Begin
A1;
A2;
:
An;
End
Else
Begin
B1;
B2;
:
Bn;
End;
Задача 2:
Даны 2 различных числа. Вычислить x=(y+z)2; - где 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. Решить уравнение AX2+BX+C=0 с полным анализом.
3. Даны 3 числа. Найти разность большего и меньшего из этих чисел
4. Если сумма трех различных чисел X,Y,Z меньше единицы, то меньшее из X,Y заменить полусуммой Y и Z, иначе большее из X и Y заменить произведением Х*Y.
