Домашнее задание: написать конспект 


Мы поможем в написании ваших работ!



ЗНАЕТЕ ЛИ ВЫ?

Домашнее задание: написать конспект

Домашнее задание: написать конспект

Составной оператор

В условном операторе и после then, и после else можно использовать только один оператор. Если при некотором условии требуется выполнить определённую последовательность операторов, то их объединяют в один составной оператор.

Конструкция вида

называется составным оператором.

Пример:

Алгоритм решения квадратного уравнения тебе хорошо известен. Запишем соответствующую программу на языке Паскаль.

program uravnenie;
var a, b, c: real;
var d: real;
var x, x1, x2: real;
begin
writeln ('Решение квадратного уравнения');
write ('Введите коэффициенты a, b, c >>');
readln (a, b, c);
d:=b*b-4*a*c;
if d<0 then writeln ('Корней нет');
if d=0 then
begin
x:=-b/2*a;
writeln ('Корень уравнения x=', x:9:3)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('Корни уравнения:');
writeln ('x1=', x1:9:3);
writeln ('x2=', x2:9:3)
end;
end.

Многообразие способов записи ветвлений

Теория:

В качестве оператора после then и else можно использовать условный оператор. Например, возможна следующая конструкция:

 

При использовании таких сложных конструкций (их ещё называют вложенными ветвлениями) следует иметь в виду, что else всегда относится к ближайшему оператору if.

Пример:

Воспользуемся вложенным ветвлением для записи на языке Паскаль алгоритма решения линейного уравнения ax+b=0.

program lin_urav;

var

a,b,x:real;

begin

writeln('Решение линейного уравнения');

write('Введите коэффициенты a и b<<');

readln(a,b);

if a<>0 then

begin

x:=-b/a;

writeln('Корень уравнения x=',x:9:3);

end

else if b<>0 then writeln ('Корней нет')

else writeln(' x - любое число');

end.

 



Поделиться:


Последнее изменение этой страницы: 2024-06-17; просмотров: 53; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 216.73.217.21 (0.006 с.)