пильщиков 8 24 а

[ducktales/]

проверьте, пожалуйста.

программа считает по схеме горнера
должна быть легко перенастраема на любую степень многочлена.
заодно проверяет правильные ли данные введены (параменты и точка)
и предлагает повторить

код

program p824a(input,output);
{$I-}

const raz=4;

var i,j,n:integer;
mas:array[0..raz]of real;
sum,t,k: real;
c:char;
rep:boolean;

begin
rep:=true;
while rep do begin
writeln('enter parametri and tochky t');
rep:=true;
n:=0;
while n<=raz+1 do begin
read(k);
if IOResult<>0 then begin
writeln('wrong enter');
n:=raz+3;
end
else begin
if n=raz+1 then t:=k
else mas[n]:=k;
n:=n+1;
end;
end;
if n<>raz+3 then begin
sum:=mas[raz];
for i:=raz downto 1 do
begin
sum:=(sum*t)+mas[i-1];
end;
writeln('znachenie mnogochlena: ',sum:0:4);
end;
readln;
writeln('repeat? "n" if you dont want, over letter, if you want');
readln(c);
if c='n' then rep:=false;
end;
end.

@темы: мгу, вмк, учеба

Comments

[slackovod]

ви таки хотите об этом поговорить?

[ducktales/]

slackovod хочу, потому что мне это сдавать в понедельник

[slackovod]

тогда что мешает повторить следующие несложные шаги?

1. перечитать код
2. исправить найденные ошибки
3. запустить на тестовом примере
4. проанализировать вывод
5. повторять до просветления

[[revolver]]

slackovod, был упущен момент запуска с отладчиком в случае, если всё будет плохо)

[ducktales/]

а что мешает просто помочь?
не могу я сейчас запустить на тестовом примере, начнем с этого