Общий вид записи с условным оператором:
If «Условие» then «Оператор_1» else «Оператор_2»;
«Условие» − логическое выражение.
if, then, else − зарезервированные слова («если», «то», «иначе»).
Условие задачи:
Найдите значения функции 
,
| если
| 
|
Порядок выполнения действий:
1. Присвоение значений переменным A и B.
2. Организация цикла по переменной Х.
3. Вычисление функции D в зависимости от условия.
4. Вычисление значений функции F.
5. Вывод значения функции F.
1 способ: Цикл с предусловием (WHILE)
|
| Program funk_F1;
Var
а, b, d, x, F: real;
begin
a:= 2.7; b:= -0.3;
x:=1;
While x<=8 do begin
if x<2.3 then d:=(a+x)/x else
if x>=5 then d:=a*x*x+b*x else
d:=(a+b)/(x+1);
F:=b*d+ln(d);
writeln('F(',x:2:1, ')= ',F:6:2);
x:=x+0.5;
end;
readln;
end.
|
2 способ: Цикл с постусловием (REPEAT…UNTIL)
|
| Program funk_F2;
var
a, b, d, x, F:real;
begin
a:= 2.7; b:=-0.3;
x:=1;
repeat
if x<2.3 then d:=(a+x)/x else
if x>=5 then d:=a*x*x+b*x else
d:=(a+b)/(x+1);
F:=b*d+ln(d);
Writeln ('F(',x:2:1, ')= ',F:6:2);
x:=x+0.5;
until x>8;
readln;
end.
|
