2014-02-02
483
Задача 11.
Программа.
Задача 10.
Составной оператор.
Часто бывает так, что в случае выполнения некоторого условия надо осуществить несколько действий, а не одно, как это предусмотрено в условном операторе. В этом случае используется составной оператор, который выглядит следующим образом:
begin
оператор_1
оператор_2
.
.
оператор_n
end;
Зарезервированные слова Begin и End называются операторными скобками. Между ними может быть сколько угодно других операторов, но считается всё это одним составным оператором.
В условном операторе, да и в других ситуациях, с которыми мы встретимся позже, там, где предусмотрено использование одного – единственного оператора, можно использовать составной оператор.
Написать программу, которая бы по желанию пользователя или складывала два числа, или возводила одно число в квадрат.
VAR otvet: String;
a,b: Integer;
BEGIN
WriteLN(' Чем займемся – сложением или возведением в квадрат?');
ReadLn(Otvet);
If Otvet='сложением' then
begin
Writeln('Введите два числа');
|
|
|
ReadLn(a,b);
WriteLn('Сумма равна',a+b)
end
else
begin
WriteLn('Введите число');
ReadLn(a);
WriteLn('Квадрат числа равен',a*a)
end
END.
Составить программу для решения квадратного уравнения ax2+bx+c=0, где b не равно 0,
c не равно 0.
Var a,b,c,x,x1,x2,D:real;
BEGIN
WriteLn('Введите a,b,c');
ReadLn(a,b,c);
D:=b*b-4*a*c;
if D<0 then WriteLn('корней нет')
else if D=0 then begin
x:=-b/(2*a);
WriteLn('x=',x:6:2)
end
else begin
x1:=(-b+Sqrt(D))/(2*a);
x2:=(-b-Sqrt(D))/(2*a);
WriteLn('x1=',x1:6:2);
WriteLn('x2=',x2:6:2)
end;
ReadLn
END.
