Halp. Nasz nauczyciel oszalał, na jutro mam napisać referat z programowania, o miliardzie zagadnień + do tego zadanka. No i mam mały problem, jako, że gość zamiast programowania chce nam wpoić matmę. A, że do pojęć głowy nie mam, to zwyczajnie nie mam pojęcia co jest co. Więc prosiłbym o pomoc w zadanku i uratowanie mnie :((
Zadnie brzmi tak:
A to program, który mam przerobić:
program wielomian;
var
x,w:real;
wartosc:real;
begin
Write ('Podaj argument X: '); Readln(X);
Wartosc:=0;
repeat
Write ('Podaj kolejny wspolczynnik wielomianu: '); Readln (W);
if (W<>10e8) then
Wartosc:=Wartosc*X+W;
until (W=10e8);
Writeln('Wartosc wielomianu w punkcie ', X:0:2, ' wynosi ', Wartosc:0:2);
Readln
end.