Если всё так как написанно, то программа вообще не скомпилируется. Должно быть
a:=1;b:=1;
while a<2 do
begin
b:=b+2;
end;
s:=a+b;
в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. То есть пока Ctrl-Break не нажмешь будет кажаться что программа зависла.
Ответ:
Program Scheme;
Var xn,xk,dx,x,s,p,k,y: Extended;
Label rep;
Begin
write('Enter xn: ');
readln(xn);
write('Enter xk: ');
readln(xk);
write('Enter dx: ');
readln(dx);
s:=0; p:=1; x:=xn; k:=0;
rep:
If x <= xk then
Begin
y:=exp(sin(x))*cos(x);
writeln('x = ',x:0:3, ' y = ', y:0:3);
if y >= 0 then
s:=s+y;
if y <> 0 then
p:=p*y;
x:=x+dx;
goto rep;
End
else
Begin
writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);
exit;
End;
End.
Объяснение: Если есть вопросы, пишите в лс.
Ответ D
прикладное программное обеспечение
Ответ:
не пркдерживается.
Объяснение:
автор из-за своей "надоедливости" оскорбляет пользователя сети.
X=0.86547
y=0.6483
При помощи: Сервис/подбор параметра/
на 10 строк вверх и вниз
Изменяя шаг h, можно просмотреть область вокруг корня.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы отображены в строке формул.