Var
a, b, x, y: real;
begin
Write('Введите через пробел значения a и b: ');
Readln(a, b);
if a < b then x := 2 * a * +2 * b
else
if a = b then x := 18
else x := a * b - 45;
Write('x=', x:0:5);
if x <= 0 then Writeln(', при x<=0 вычислить y невозможно')
else
begin
if (x > 0) and (x < 1) then y := x - ln(x) {в формуле log, но основание не указано}
else y := ln(x) + x;
Writeln(', y=', y:0:5)
end
end.
Тестовое решение:
Введите через пробел значения a и b: 3 6.4
x=76.80000, y=81.14120
Введите через пробел значения a и b: 8 4
x=-13.00000, при x<=0 вычислить y невозможно
<span>f:= x*x*x*x; x:=x+0.1; writeln (f,x);
последний варант
</span>
Свойство алгоритма "конечность" по другому называется результативность и оно обозначает, что в результате выполнения заданных исполнителю шагов алгоритма мы получим результат.
Например, чтобы получить бутерброд с сыром и маслом (исходные продукты все есть), нужно проделать ряд действий:
1) взять кусочек хлеба
2)намазать хлеб маслом
3)отрезать кусочек сыра
4)положить сыр на бутерброд
Var a,b,x,s:integer;
begin
write('a = ');
readln(a);
write('x = ');
readln(x);
b:=a;
s:=0;
while b>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln('s = ',s);
if s>x
then writeln('Сумма цифр больше ',x)
else writeln('Сумма цифр не больше ',x);
end.
Пример:
<span>a = 31854
x = 15
s = 21
Сумма цифр больше 15</span>
Ответ:
var
n1, n2, dif: real;
begin
readln(n1, n2);
dif:= n1-n2;
if n1-n2 > 0 then
writeln('Разность положительная. Разность = ', dif)
else if n1-n2 < 0 then
writeln('Разность отрицательная. Разность = ', dif)
else
writeln('Разность равна нулю. Разность = ', dif);
end.
Объяснение: