IPB
ЛогинПароль:

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

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

> Графика
Mantikor123
сообщение 25.03.2010 16:39
Сообщение #1





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

Репутация: -  0  +


Помогите написать програми времени уже савсем неуспеваю:(
нарисовать график:
y=sinX+3;

Нарисовать анимацию:
Шатающевовася подсолнуха
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 26.03.2010 19:56
Сообщение #2


Гость






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

Может, топикстартеру и не пригодится, но красиво получается smile.gif Может, кто-нибудь и использует когда потребуется.

program gr_1;
uses
graph, crt;
const
r2d = 180/Pi;

procedure DrawEllipse(xCenter, yCenter, Angle: integer);
const
a = 15;
b = 30;
var
Alpha, Phi, fX, fY: double;
i, X, Y: Integer;
begin
Alpha := Angle/r2d;
for i := 0 to 359 do
begin
Phi := i / r2d;
fX := a * Cos(phi);
fY := b * Sin(phi);
X := Trunc(xCenter + fX * Cos(Alpha) - fY * Sin(Alpha));
Y := Trunc(yCenter + fX * Sin(Alpha) + fY * Cos(Alpha));
PutPixel(X, Y, Yellow);
end;
FloodFill(xCenter, yCenter, Yellow)
end;


procedure SunFlower(X, Y: Integer);
const
RCircle = 75;
var
i, dist: integer;
phi: real;
begin
SetColor(Yellow);
SetFillStyle(SolidFill, Yellow);
FillEllipse(X, Y, RCircle, RCircle);

dist := (3 * RCircle div 2);
for i := 0 to 359 do
begin
if i mod 20 <> 0 then continue;
phi := i / r2d;

DrawEllipse(Trunc(x + dist*cos(phi)),
Trunc(y - dist*sin(phi)), 450 - i);
end;
end;

var
i, grDriver, grMode, errCode: integer;


begin
grDriver := Detect;
InitGraph(grDriver, grMode, '');

errCode := GraphResult;
if errCode = grOk then
begin
i := 1;
SunFlower(GetMaxX div 2 - i*100, GetMaxY div 2 + i*100);
readln;
end;
closegraph;
end.
(Движение добавлять не стал, это вообще элементарно)
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Mantikor123   Графика   25.03.2010 16:39
Ozzя   А шо, таки призыв в РА уже объявлен? :blum: По...   25.03.2010 17:26
Mantikor123   В РА мне не грозит:) а так не успеваю:( Собствена...   25.03.2010 18:25
Ozzя   А чего уж такого сложного? Сам цветок рисуется эле...   26.03.2010 14:00
Mantikor123   А чего уж такого сложного? Сам цветок рисуется эл...   26.03.2010 14:11
Ozzя   Да не проблема. Вот только одну окружность нарису...   26.03.2010 14:19
Mantikor123   М_м не совсем понял што ви имеете в виду, ну вот м...   26.03.2010 14:47
Ozzя   program gr_1; uses graph,crt; var i, grDriver,...   26.03.2010 15:37
volvo   Что-то больше на ромашку похоже, чем на подсолнух ...   26.03.2010 17:17
Ozzя   Ну-да :) Лепестки ж эллипсами надо отрисовывать....   26.03.2010 17:37
volvo   Ну, не настолько это сложно как может показаться. ...   26.03.2010 19:56
Client   прикрепите скрин плз, охото глянуть что получилось...   26.03.2010 22:58
Lapp   прикрепите скрин плз, охото глянуть что получилось...   26.03.2010 23:09
Client   у меня 32 битная и ни один проект с графикой на ТР...   26.03.2010 23:16
Lapp   у меня 32 битная и ни один проект с графикой на ТР...   26.03.2010 23:30
sheka   Вот когда-то тоже похожую программку делал), тольк...   26.03.2010 23:28
volvo   Не знаю, насчет должен или нет, но всегда FloodFil...   26.03.2010 23:45
Client   солнышко супер :) сейчас бы у меня такое светило...   27.03.2010 10:47
Mantikor123   Всем спасибо за помощ и понимание:)   31.03.2010 14:09


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

 



- Текстовая версия 20.07.2025 22:39
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"