Значение х должно быть меньше 3 и быть меньше 2 или больше 2, то есть меньше 3 и не равно 2.
ответ а) удовлетворяет требованиям
Попириписывалась пол опроса им про ос ряд Ир щмр
var
s: string;
begin
s := 'informatica';
writeln(s);
writeln(copy(s, 3, 5));
writeln(copy(s, 6, 3));
writeln(copy(s, 8, 3));
writeln(copy(s, 8, 2) + s[5]);
end.
Sub Alg_1()
xN = -5: xK = 5: h = 0.1
x = xN: i = 1
Do While x <= xK
y = 3 * x ^ 2 - 6 * x + 5
Cells(i, 1) = x: Cells(i, 2) = y
x = x + h: i = i + 1
Loop
End Sub
Во вложении файл с рабочей книгой MS Excel 2003. Макрос на листе 1.
<u>Теперь о Вашей ошибке</u>
<span>Dim xN, xK, x As Integer
Dim y, h As Single
xN = -5
...
h = 0.1
x = xN
...
x = x + h</span>
Такое описание означает, что xN, xK будут типа Variant, х - типа Integer.
y тоже будет типа Variant, h - типа Single.
При выполнении опeратора x=x+h целочисленное x сначала увеличится на 0.1, а затем дробная часть будет отброшена. Поэтому х постоянно будет равен xN и цикл станет бесконечным.
Program rasst;
<span>var norma, vsego: real; </span>
<span>den: integer; </span>
<span>begin </span>
<span>norma:=10; </span>
<span>vsego:=10; </span>
<span>den:=2; </span>
<span>while den<8 do begin </span>
<span>norma:=1.1*norma; </span>
<span>vsego:=vsego+norma; </span>
<span>den:=den+1 </span>
<span>end; </span>
<span>writeln('Общий пробег=',vsego) </span>
<span>end.</span>