Автор Тема: Помогите построить график функции y=x^2 на промежутке [-3; 3]  (Прочитано 7371 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Лика483

  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
Вот построение осей, как продолжить построение самой параболы?

uses graphABC;
const a=300; b=200; k=300;
xmin=-3; xmax=3;
var x, y, h:real;
xe, ye,w:integer;
begin
w:=round ((xmax-xmin)*k);
Line (a-300, b, a+w, b);
Line (a, 0, a, 2*b);
x:=xmin;
end.

Оффлайн Лика483

  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
Вот построение осей, как продолжить построение самой параболы?

uses graphABC;
const a=300; b=200; k=300;
xmin=-3; xmax=3;
var x, y, h:real;
xe, ye,w:integer;
begin
w:=round ((xmax-xmin)*k);
Line (a-300, b, a+w, b);
Line (a, 0, a, 2*b);
x:=xmin;
end.
Построить нужно через Паскаль АВС.

Оффлайн testtest

  • Старожил
  • ****
  • Сообщений: 376
    • Просмотр профиля
а в том паскале нет функций translate и scale? которые должны бы помочь преобразовать систему координат пикселей в ск [-3; 3] х [0; 9] сдвигом и растяжением.
« Последнее редактирование: 19 Января 2011, 08:01:01 от testtest »