Вопрос 6
3 Конструкция “если - иначе”
Она работает следующим образом (см. следующий рис.): если заданное условие истинно, то осуществляется выход из конструкции без выполнения каких-либо действий, иначе, т.е. если условие ложно, то выполняется ООС.
Запись в виде схемы:
Запись на языке программирования конструкции “ЕСЛИ - ИНАЧЕ”:
if условие then
else OOC;
Пример 3: выполнить x:=IxI с использованием конструкции “ЕСЛИ - ИНАЧЕ”.
Схема алгоритма решения примера 3 с использованием конструкции “ЕСЛИ - ИНАЧЕ”:
да
нет
x:=-x
выход
Запись решения примера 3 на языке Паскаль с использованием конструкции “ЕСЛИ - ИНАЧЕ”:
if x<0 then
else x:=-x;
Замечание!!! В ветвь then, также как и else, нельзя поместить несколько операторов. В каждой ветви может находиться либо одиночный оператор, либо составной. Не целесообразно брать в операторные скобки одиночные операторы (простой, условный, цикла, вызова подпрограммы и вызова подпрограммы), хотя это и не является ошибкой. Составной оператор обязательно включает в себя операторные скобки.
Вопрос 7 Пример конструкции “если” с использованием составного оператора
Требуется составить алгоритм и программу нахождения корней квадратного уравнения ax2+bx+c=0 с произвольными коэффициентами a, b, c (a0), для фиксации результатов расчетов сделать копию пользовательского экрана.
Схема алгоритма решения задачи:
да
нет
да
x1:=(-b+√d)/(2a)
x2:=(-b-√d)/(2a)
Текст программы на языке Паскаль:
program nk;
var
a,b,c,d,x1,x2:real;
begin
write('Введите значения переменных a,b,c: '); readln(a,b,c);
writeln('Исходные данные: a=',a:4:2,' b=', b:4:2,'c=':5,c:4:2);
write('Результат: ');
d:=sqr(b)-4*a*c;
if d<0
then writeln('действительных корней нет')
else begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:4:2,'x2=':5,x2:4:2)
end;
readln;
end.
Для того чтобы сделать копию пользовательского экрана с результатами выполнения программы нужно одновременно нажать клавиши “Shift” и “PrtSc” .
Вопрос 7 Текст программы на языке Delphi (консольный режим)
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a,b,c,d,x1,x2:real;
begin
write('Read a,b,c: '); readln(a,b,c);
writeln('Input data: a=',a:4:2,' b=', b:4:2,'c=':5,c:4:2);
write('Risult: ');
d:=sqr(b)-4*a*c;
if d<0
then writeln('Real root is not')
else begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:4:2,'x2=':5,x2:4:2)
end;
readln;
end.