Question

Что здесь не так? 22 строчка: Форматное выражение Сама программа Program Srednee_W1;
Uses Crt;
Var n: integer;
x,y,h,s,s1,xk:real;
Begin
ClrScr;
x:=0; xk:=3.1; h:=0.1;
s:=0.0; n:=0;
While x<=xk+h/2 do
begin
y:=sin(x);
writeln(x:3:1,' |', y:5:2);
if (y>0.1) and (y<0.6)then
begin
s:=s+y;
n:=n+1
end;
x:=x+h
end;
if n>0 then
begin
s1:=s/n:
Writeln('Среднее арифметическое=', s1)
end
else
Writeln('Таких значений нет n=0');
Readln
End.
строчка s1:=s/n:

Answer 1

Ответ:

(см. объяснение)

Объяснение:

Uses Crt;

Var n: integer;

x,y,h,s,s1,xk:real;

Begin

ClrScr;

x:=0; xk:=3.1; h:=0.1;

s:=0.0; n:=0;

While x<=xk+h/2 do

begin

y:=sin(x);

writeln(x:3:1,' |', y:5:2);

if (y>0.1) and (y<0.6)then

begin

s:=s+y;

n:=n+1

end;

x:=x+h

end;

if n>0 then

begin

s1:=s/n; //У Вас стояло тут двоеточие!!!

Writeln('Среднее арифметическое=', s1)

end

else

Writeln('Таких значений нет n=0');

Readln

End.

Answer 2

Да но почему не сработал 1-й вариант в Турбо паскале он работал , в АБС формат ошибки?!