помогите решить задачу

[Gabriel]

ну не могу я сделать эту задачу! не могу! помогите

написать программу, которая строит график функции y=sin(x), для x принадлежит [-10,10], изменяющегося шагом 0,1.
границы отрезка и шаг вводятся с клавиатуры.

это нужно сделать, используя числовые массивы. и как-нибудь по-проще...

[Disel]

Тебе решать с процедурами, или как?

[Gabriel]

нашел что у глупой женщины спрашивать... что такое процедуры?

[Gabriel]

вообще решение подробное нужно.

[Disel]

Program Gabriel;
Uses crt, graph;
var Gd,Gm:integer; x:real; y:integer;

BEGIN
Gd:=VGA;
GM:=VGAhi;
Initgraph(Gd,Gm,'');

line(300,0,300,450);
line(0,230,600,230);
x:=-10;
while x<10 do
begin
y:=round(sin(x)*10);
PutPixel(300+round(x),230+y,green);


x:=x+0.1;
end;
{ CloseGraph; }
ReadKey;
END.

[Disel]

Что вро этого. Я просто новичек в програмировании, еще многое не знаю.

[Gabriel]

ты сделал без числовых массивов. так и я могу...

границы отрезка и шаг вводятся с клавиатуры.

а у тебя они постоянные...

[Serge_Bliznykov]

Сообщение от Gabriel

ты сделал без числовых массивов. так и я могу...

ну вот... а прикидывались "глупой женщиной"...

тогда вот Вам наводящие подсказки (чтобы Вы честно могли доделать самостоятельно :-)

{описание типов}
const MaxValInArray = 1000;
var
  SinY : array[1..MaxValInArray] of real;
  x,N1,N2,H : real;
  i, Cnt : integer;
begin
{Ввод границ и шага:}
WriteLn;
Write('VVedite Granicu1 i Granicu2: ');ReadLn(N1,N2);
if N2<N1 then begin WriteLn('Takie granicy NELZYA!'); Halt; end;
Write('Vvedite shag: ');Readln(h);
{проверяем, хватит ли нашего массива для того, 
чтобы вместить все значения на заданном интервале с заданным шагом!}
if (Trunc((n2-n1)/h)+1) > MaxValInArray then begin
  WriteLn('Slishkom mnogo znachenij: nado uvelischit shag ili umenshit` interval'); 
  Halt;
end;
{заполняем массив}
Cnt := 0;
x := N1;
while x<=N2 do begin
  inc(Cnt);
  SinY[Cnt] := sin(x);
  x := x + H;
end;

всё. массив заполнен. Осталось по нему построить график. (и, ВАЖНО: не забываем промасштабировать как по оси X так и по оси Y)

удачи.

[Gabriel]

ага, спасибо большое. постараюсь разобраться.