Оператор проверки условий

1. Оператор проверки условий

IF <условие> THEN <операт ор1>
-
[ ELSE <операт ор 2 >];
Оператор проверки условий в общем виде,
где IF – если, THEN – тогда, ELSE - иначе
Если условие истинно, то выполняется <оператор 1>,
в противном случае <оператор 2>.
IF <условие> THEN <операт оры>; - операт ор проверки
условий в сокращенном виде.

2. Задача №2. Найти корни квадратного уравнения, если известны коэффициенты А, В и С.

3.

НАЧАЛО
Ввод A,B,C
D=b*b-4AC
D<0
+
Корней нет
+
D=0
Вывод X1
Вывод X2
КОНЕЦ
Корень 1

4.

USES CRT;
VAR A,B,C,D,X1,X2: REAL;
BEGIN
CLRSCR;
WRITE(‘Введите коэффициенты A,B и C’);
READLN(A,B,C);
D:=B*B-4*A*C;
IF D<0 THEN BEGIN
Writeln(‘корней нет’);
readln;
HALT;
END;
IF D=0 THEN BEGIN
Writeln(‘корень один Х=’, -B/(2*A) );
readln;
HALT;
END;
X1:=(-B+SQRT(D))/(2*a); X2:=(-B-SQRT(D))/(2*a);
Writeln(‘первый корень Х1=’, X1 ); Writeln(‘второй корень Х2=’, X2 );
readln;
END.

5.

USES CRT;
VAR A,B,C,D,X1,X2: REAL;
BEGIN
CLRSCR;
WRITE(‘Введите коэффициенты A,B и C’);
READLN(A,B,C);
D:=B*B-4*A*C;
IF D<0 THEN BEGIN
Writeln(‘корней нет’);
readln;
HALT;
END;
IF D=0 THEN BEGIN
Writeln(‘корень один Х=’, -B/(2*A) :7:2 );
readln;
HALT;
END;
X1:=(-B+SQRT(D))/(2*a); X2:=(-B-SQRT(D))/(2*a);
Writeln(‘первый корень Х1=’, X1:7:2 ); Writeln(‘второй корень Х2=’, X2:7:2 );
readln;
END.

6.

A
1
1
1
B
4
4
4
C
3
4
5
ответ

7. Задача №3. Известны стороны прямоугольника А и В и сторона квадрата С. Выведите на экран название той фигуры, площадь которой

больше.
C
А
В
S1
S2