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

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

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

 
 Ответить  Открыть новую тему 
> Графика в Паскале 7
сообщение
Сообщение #1





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

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


1. Построить на экране паутину с центром в заданной точке экрана, с заданным числом лучей. Координаты центра и число лучей считывать из текстового файла.
2. Изобразить на экране двух спортсменов, перекидывающих друг другу мяч. При нажатии клавиши управления курсором <- мяч летит влево, при нажатии клавиши -> вправо. При нажатии клавиши esc программа заканчивает работу.

Помогите пожалуйста.
Даже не знаю как помочь решению(
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Лови решение первой задачи.

uses
Graph;

const
d= 50;
m= 10;

var
gd,gm,i,j,xc,yc,n: integer;
a: double;
f: text;

begin
Assign(f,'web.dat');
Reset(f);
ReadLn(f,xc,yc);
ReadLn(f,n);
Close(f);
a:= 2*Pi/n;
gd:= detect;
InitGraph(gd,gm,'');
for i:=0 to n-1 do begin
Line(xc,yc,xc+Round(d*(m+1)*Cos(a*i)),yc+Round(d*(m+1)*Sin(a*i)));
for j:=1 to m do
Line(
xc+Round(d*j*Cos(a*i)),
yc+Round(d*j*Sin(a*i)),
xc+Round(d*j*Cos(a*(i+1))),
yc+Round(d*j*Sin(a*(i+1)))
)
end;
ReadLn
end.

Пример файла с входными данными web.dat:
500 300
8


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

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

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


Цитата(Lapp @ 14.06.2011 6:13) *

Лови решение первой задачи.

у меня точку рисует, почему то.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(samec @ 14.06.2011 8:38) *
у меня точку рисует, почему то.

А где эта точка?
Точка в (xc,yc) может быть, если d=0. Как еще это может произойти, я что-то не соображу..

Реально я не могу проверить этот код на TP7, поскольку графика на Win7 и Vista не идет, а XP у меня не осталось.. Но там вроде нет никаких специфик. Если кто может - проверьте, плз..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Разработчик
Free Pascal: Разработчик

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


под DosBox-ом вроде работает, только паутина, разумеется, не по центру, а смещена при таком содержимом файла web.dat:


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Профи
****

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

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


У меня в ТП 7 все нормально нарисовало,причем рисовал через dos box под 64разрядной семеркой.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 18.10.2019 1:04
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name