Сами значения вычислить понятно как. Пусть будет шаг h:=0.1 var a, b, h, x, y: real BEGIN a := -10; b := 10; h := 0.1; x := a; while (x <= b) do begin y:=1/(x*x*x); Draw(x, y); // Это подпрограмма рисования точки с координатами (x, y) x:= x+h; end; END. А вот как в паскале рисовать на экране, я не знаю. Подпрограмму Draw я оставляю ненаписанной.
1 votes Thanks 1
Бичора
пишет : "неправильный тип аргумента" . функции "draw" нет
Answers & Comments
Verified answer
Сами значения вычислить понятно как. Пусть будет шаг h:=0.1var a, b, h, x, y: real
BEGIN
a := -10; b := 10; h := 0.1;
x := a;
while (x <= b) do
begin
y:=1/(x*x*x);
Draw(x, y); // Это подпрограмма рисования точки с координатами (x, y)
x:= x+h;
end;
END.
А вот как в паскале рисовать на экране, я не знаю.
Подпрограмму Draw я оставляю ненаписанной.