Выполнение оператора IF... THEN... ELSE
1. Проверяется : выполняется или нет условие, стоящее после слова IF.
2. Если условие выполняется, т.е. значение его «истина», то выполняется оператор, стоящий после слова THEN, а затем управление передается оператору программы, записанному после оператора IF ...THEN...ELSE.
Блок-схема полного
 условного оператора
Да Нет
условие
действие1 действие2
|
3. Если условие оператора IF не выполняется (т.е. оно имеет значение “ложь”), то выполняется оператор, стоящий после слова ELSE, а затем начинает выполняться следующий после IF...THEN...ELSE оператор.
Задача 1: Составить программу вывода на экран большего из двух чисел.
PROGRAM prim1;
USES Crt;
var x,y : real;
begin
ClrScr; (* очищение экрана *)
Writeln(‘Введите два числа’);
Readln(x,y);
IF x>y THEN Writeln(x)
ELSE Writeln(y);
end.
Неполная форма условного оператора :
if<условие> then <оператор>
Действие этого оператора отличается от предыдущего том, что в случае невыполнения условия начинает выполняться следующий после IF...THEN...оператор программы.
Блок-схема неполного
           условного оператора
нет
|
Задача 2 : Написать программу поиска наибольшего из двух чисел. Найденное число должно быть помещено в переменную МАХ.
PROGRAM prim2;
USES Crt;
var x,y ,max : real;
begin
ClrScr; (* очищение экрана *)
Writeln(‘Введите два числа’);
Readln(x,y);
max:=x;
IF y>max THEN max:=y;
Writeln(max);
end.
Решая всевозможные задачи часто необходимо выполнять группу операторов либо за словом THEN , либо за словом ELSE. Для того чтобы записать группу действий необходимо использовать составной оператор BEGIN END.
1. If <условие> then
begin
оператор1;
оператор2;
...................
оператор n;
end
else оператор;
2. If <условие> then оператор
else begin
оператор1;
оператор2;
...................
оператор n;
end;
3. If <условие> then
begin
оператор1;
оператор2;
...................
оператор n;
end
else
begin
оператор1;
оператор2;
...................
оператор n;
end
Задача 3.Решить квадратное уравнение вида
ax2 + bx +c = 0
План решения задачи :
1. задать коэффициенты a,b,c.
2. вычислить значение дискриминанта.
3. Проверить значения дискриминанта и, в зависимости от полученного ответа, выполнить то или иное действие.
program kvyr;
var a,b,c : integer;
x1,x2,d : real
begin
writeln(‘введите коэф-ты квадратного уравнения’);
read(a,b,c);
d:=b*b-4*a*c;
if d>=0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(‘корни x1=,x1,’ x2’,x2)
end
else if d=0 then writeln(‘x1=x2=’,-b/(2*a))
else writeln(‘решений нет’);
|
Задача 4.Составьте программу для вычисления выражения
а) max(x+y+z, xyz) + 3
б) min(x2+y2, y2+z2) - 4
program kvyr;
var a,b,c : integer;
x1,x2,d : real
begin
writeln(‘введите коэф-ты квадратного уравнения’);
read(a,b,c);
d:=b*b-4*a*c;
if d>=0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(‘корни x1=,x1,’ x2’,x2)
end
else if d=0 then writeln(‘x1=x2=’,-b/(2*a))
else writeln(‘решений нет’);
end.
Задача 4.Составьте программу для вычисления выражения
а) max(x+y+z, xyz) + 3 б) min(x2+y2, y2+z2) - 4
Дата добавления: 2015-01-15; просмотров: 1220;