Паскаль.Графика.Помогите пожалуйста(( - Форум
Пятница, 09.12.2016, 10:44
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль.Графика.Помогите пожалуйста((
Паскаль.Графика.Помогите пожалуйста((
Diamond2107Дата: Воскресенье, 03.05.2009, 15:19 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Помогите пожалуйста, пол дня мучаюсь, а завтра сдавать. Нужно построить два графике в одной системе: Y=a*cos^3(фи) и Y=a*sin^3(фи), с графиками честно говоря не очень все фто могла сделать это вот в прикрепленном файле(( weep

Добавлено (03.05.2009, 15:19)
---------------------------------------------
[program grafik;
uses Crt, Graph;
const
mtx=50;
mty=50;
xn=320;
yn=235;
var
grad,grreg,i,m,n,g,v:integer;
x,y,x0,y0:real;
s:string;
begin
grad:=detect;
InitGraph(grad,grreg,'K:\tp7\bgi');
SetBkColor(LightGray);
SetColor(blue);
line(10,yn,630,yn);
line(630,yn,600,225);
line(630,yn,600,250);
line(xn,10,xn,470);
line(xn,10,340,30);
line(xn,10,300,30);
outtextXY(xn+25,10,'Y');
outtextXY(620,yn+20,'X');
outtextXY(xn-20,yn+10,'0');
m:=trunc(540/mtx);
n:=trunc(460/mty);
for i:=1 to m do
begin
g:=i*mtx;
line(xn+g,yn-3,xn+g,yn+3);
str(i,s);
outtextXY(xn+g-5,yn+10,s);
line(xn-g,yn-3,xn-g,yn+3);
str(-i,s);
outtextXY(xn-g-5,yn+10,s);
end;
for i:=1 to n do
begin
v:=i*mty;
line(xn-3,yn-v,xn+3,yn-v);
str(i,s);
outtextXY(xn-30,yn-v,s);
line(xn-3,yn+v,xn+3,yn+v);
str(-i,s);
OutTextXY(xn-30,yn+v,s)
end;
setcolor(green);
OutTextXY(90,15,'Grafik funkcii y=cos(x)');
x0:=-270;
Repeat
x:=x0/mtx;
y:=cos(x);
y0:=y*mty;
PutPixel(xn+trunc(x0),yn-trunc(y0),red);
x0:=x0+1
until x0>270;
readln;
Closegraph
end.]

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль.Графика.Помогите пожалуйста((
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016