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

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

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

 
 Ответить  Открыть новую тему 
> Помогите решить задачу про круг, Круг растягивается в эллипс, и опять стягивается.
сообщение
Сообщение #1





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

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


Пожалуйста решите задачки, я сама в этом ничего не понимаю...

1)Нарисовать круг, который постепенно растягивается по горизонтали, превращаясь в эллипс, а затем стягивается обратно в круг. Программа заканчивается при нажатии на любую клавишу.

2)Разработать модуль, содержащий следующие процедуры и функции для работы с двумерными массивами. Поменять местами строки или столбцы с заданными номерами.

3)В файле, содержащем одномерные массивы целых чисел, найти количество компонент, где сумма элементов больше 100.

Зараннее спасибки!!!! no1.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

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

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


1)

i := 0;

repeat
Ellipse(cx, cy, 0, 360, rx + i, ry);
Delay(100);
ClearDevice;
if i = 30 then sign := -1
else if i = 0 then sign := 1;
inc(i, sign)
until keypressed;


Где cx, cy - центр, rx, ry - радиусы эллипса (изначально должны быть равны)

2) Поиск +Массивы. Матрицы. Типичные задачи: Как задать матрицу, чтобы ...

3) Реализация будет немного отличаться от того какой файл (типизированный/текстовый) и если текстовый, то как в нем разделяются элементы массивов в строках, а вообще сходи для начала сюда: Файлы


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


меркантильный
***

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

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


Цитата(SpikyGirl @ 27.02.2007 2:07) *

1)Нарисовать круг, который постепенно растягивается по горизонтали, превращаясь в эллипс, а затем стягивается обратно в круг. Программа заканчивается при нажатии на любую клавишу.

Первая задача. /Самый простой вариант/.

program Ellips;
Uses Crt,Graph;
Var gd, gm: Integer;
Begin
InitGraph(gd,gm,'');
repeat
SetColor(15);
circle(320,240,100);
Delay(9000);
SetColor(0);
circle(320,240,100);
Delay(1000);
SetColor(15);
ellipse(320,240,1,0,120,95);
Delay(9000);
SetColor(0);
ellipse(320,240,1,0,120,95);
Delay(1000)
until KeyPressed;
CloseGraph
End.




--------------------
Смысл откроется тебе. Красками играя
Жизнь предстанет как поток без конца и края.


В этом мире порой разбиваютсямечты
Но чтобы он стал другой Вдруг в него приходишь ТЫ...

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


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

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

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


Чужак, мне кажется, ты пропустил слово "постепенно" в условии..
Кроме того, не понимаю - зачем тебе задержка после стирания?

Посмотри прогу klem4 и разберись с ней.


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

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

 





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