ВОт задача
Составить структурированную программу табулировании значения функции S(x)=3x+8x^2+..n(n+2)x^n
y(x)=x(3-x)/(1-x)^3
на отрезке 0,1<=x<=0.8
сумму S(x) вычислить из к членов ряда,к=40.
шаг х dX=(abs(Xkонечный-Xначальный))/9
Алгоритм для каждого значения х,от Хначальный до Хконечный ,с амое dX,посчитать значения S(x) и y(x) и выдать на экран таблицу с помощью ASCII кодов.
Вот первая программа
Program z3v28;
uses crt;
const
xn=0.1;
xk=0.8;
k=40;
var
a, x,s,y,dx:real;
n:integer;
begin
clrscr;
writeln(' ЙННННННННННЛННННННННННЛНННННННННН»');
writeln(' є x є y є s є');
dx:=abs(Xk-Xn)/9;
x:=xn;
while (x<Xk) do begin
S:=0;
a:=1;
n:=1;
while n<=40 do begin
a:=a*x;
S:=S+n*(n+2)*a;
n:=n+1;
end;
y:=x*(3-x)/((1-x)*(1-x)*(1-x));
writeln (' МННННННННННОННННННННННОНННННННННН№');
writeln (' є',x:6:3,' є',y:6:3,' є',s:6:3,' є');
x:=x+dx;
end;
writeln (' ИННННННННННРННННННННННРННННННННННј');
readkey;
end.
Первая содержит как минимум одну ошибку:
repeat
Writeln ('Vvedite Xk [0.2..0.8]');
readln(Xk);
until (Xk>=0.2) or (Xk<=0.8); { <--- Здесь !!! }
насчет то что должна ты прав=)
А вот что там за ошибка в цикле которую ты нашел??Программа компилируетсья нормально.
(Xk>=0.2) or (Xk<=0.8);
исправил задание (*см первый пост*).
намучался уже..не могу=/