График - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

График, sin(x)

Опции

yome

24.04.2007 15:42

Сообщение #1

Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация:

Пользуйся тегами [ code = pas ] [ / code ]
klem4

вот код программы,никак не могу сообразить как закрасить точки входящие в sin(x), прошу помощи

Program xz_1;
uses Graph;
const Xc = 320; Yc = 240; zoom = 10;
var c,a1,b1,a,b,Gd,Gm,ErrorCode,int_x,int_y,step:Integer;
x,y,sinx:real;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
ErrorCode := GraphResult;
If ErrorCode <> 0 Then
Begin
	WriteLn('Owibka: ', GraphErrorMsg(ErrorCode));
	Halt(1);
End;
{Koordinati i wkala}
Line(Xc,Yc-210,Xc,Yc+210);
Line(Xc-290,Yc,Xc+290,Yc);
Line(Xc,Yc-210,Xc-10,Yc-190);
Line(Xc,Yc-210,Xc+10,Yc-190);
Line(Xc+290,Yc,Xc+270,Yc-10);
Line(Xc+290,Yc,Xc+270,Yc+10);
OutTextXY(Xc+280,Yc+10,'X');
OutTextXY(Xc-20,Yc-200,'Y');
OutTextXY(Xc-10,Yc+5,'0');
Line(Xc-29*Zoom,Yc-8*Zoom,Xc+29*Zoom,Yc-8*Zoom);
Line(Xc-10*Zoom,Yc-12*Zoom,Xc+10*Zoom,Yc-12*Zoom);
Line(Xc-3*Zoom,Yc,Xc-3*Zoom,Yc-8*Zoom);
Line(Xc-(38),Yc-2*Zoom,Xc,Yc-2*Zoom);
Line(Xc-38,Yc-135,Xc+4*Zoom,Yc-25);
SetLineStyle(3,2,1);
Line(Xc-6*Zoom,Yc,Xc-6*Zoom,Yc-8*Zoom);
Line(Xc+6*Zoom,Yc,Xc+6*Zoom,Yc-8*Zoom);
x:= Xc-6*Zoom;
sinx:=Pi;
step:=0;
While sinx > -Pi do
  begin
    step := step+1;
    sinx:=sinx-Pi/120;
    y:= Yc-8*Zoom+4*Zoom*Sin(sinx);
    int_x := trunc(x);
    int_y := trunc(y);
    x:= x+0.5;
    PutPixel(int_x,int_y,white);
  end;
For a:=Xc-32*zoom+1 to Xc-1 do
for b:=Yc-8*zoom+1 to Yc-2*zoom-1 do
begin
  a1:=a-Xc;b1:=b-Yc;
  if a1>-30 then begin
  PutPixel(a,b,red);
  end;
end;

For a:=Xc-3*zoom+1 to Xc+32*zoom-1 do
for b:=Yc-12*zoom+1 to Yc-8*zoom-1 do
begin
{  a1:=a-Xc;b1:=b-Yc;
  if a1>-30 then begin}
  PutPixel(a,b,red);
{  end;}
end;



ReadLn;
end.

Сообщение отредактировано: klem4 - 24.04.2007 18:17

Эскизы прикрепленных изображений

compiler	24.04.2007 18:09 Сообщение #2
Человек Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: 3	Цитата(yome @ 24.04.2007 15:42) вот код программы,никак не могу сообразить как закрасить точки входящие в sin(x), прошу помощи ПОИСК-> постройка графика Построение любого графика -------------------- Спасибо! Удачи!

Tan	24.04.2007 18:12 Сообщение #3
Профи Группа: Пользователи Сообщений: 559 Пол: Мужской Реальное имя: Бруно Репутация: 10	Compiler, по - моему проблема не в построении графика, а в том, как закрасить область графика под функцией sin (x) (геометрический смысл определённого интеграла). Если именно это автор имел ввиду под Цитата не могу сообразить как закрасить точки входящие в sin(x), Сообщение отредактировано: Tan - 24.04.2007 18:13 -------------------- Цитата Imagination is more important than knowledge. Albert Einstein

yome	24.04.2007 18:25 Сообщение #4
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0	Цитата(Tan @ 24.04.2007 19:12) Compiler, по - моему проблема не в построении графика, а в том, как закрасить область графика под функцией sin (x) (геометрический смысл определённого интеграла). Если именно это автор имел ввиду под Так точно! Не могу закрасить область

« Предыдущая тема · Задачи · Следующая тема »

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

19.07.2025 18:00

Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"