| ← Декабрь 2002 → | ||||||
|
1
|
||||||
|---|---|---|---|---|---|---|
|
3
|
4
|
7
|
8
|
|||
|
9
|
10
|
13
|
14
|
|||
|
20
|
21
|
22
|
||||
|
23
|
24
|
25
|
27
|
|||
|
30
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RusFAQ.ru: Программирование на языке Pascal
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на языке Pascal
Выпуск № 064
от 06.12.2002, 17:00
| Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков |
О рассылке: Задано вопросов: 111 Отправлено ответов: 291 Активность: 262.1 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Necro Статус: Доверительный Общий рейтинг: 110.32 [Подробней >>] |
baldr Статус: Профессиональный Общий рейтинг: 114.28 URL: Сайт об ОС DOS. Всем, кто любит эту ОС! [Подробней >>] |
Pinman Статус: Доверительный Общий рейтинг: 139.02 [Подробней >>] |
| Ayl Статус: Профессиональный Общий рейтинг: 117.5 [Подробней >>] |
X-RayMan Статус: Начальный Общий рейтинг: 137.5 [Подробней >>] |
Melkor Статус: Начальный Общий рейтинг: 125 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 109. Вопросов нет. Это просто благодарность всем экспертам данной рассылки. Всё дело в том, что вчера (вс... (ответов: 2)
Вопрос № 110. Пол часа по клаве стучал. Вот и задания с олимпиады. А как почитаете задания, сразу поймёте почему 1... (ответов: 1)
Вопрос № 111. Great great thanks всем экспертам,ответившим на вопрос №108 (особенно X-RayMan). Вот ещё обращаюсь к... (ответов: 4)
Вопросов: 3, ответов: 7
| Вопрос № 109 |
Вопросов нет.
Это просто благодарность всем экспертам данной рассылки.
Всё дело в том, что вчера (вск. 1 дек.) я стал победителем районной олимпиады по инф-ке среди 10 - классов.
Я и в том году побеждал, а на областной занимал 2-е место.
В этом году в Воронеже постараюсь занять 1-е.
ЗЫ
А..... писал то я на Паскале :)
ЗЗЫ
100 из 100 возможных баллов.
Вопрос отправлен: 02.12.2002, 19:08
Отправитель: KODer (koderx@rambler.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Necro
Добрый день, KODer!
Слушай, мы тогда, может, на Всероссийской в Питере встретимся :) Я вчера стал победителем городской(117 из 120 :( ), меня теперь тоже только областная отделяет :)
Ответ отправлен: 02.12.2002, 19:27
Отправитель: Necro
Отвечает baldr
Приветствую Вас, KODer!
А, прости за нескромность, сколько человек всего было на той олимпиаде? :))
Просто я тоже как-то занял третье место в районной олимпиаде по программированию, причем, всего
там было нас 4 человека... :) Все из одного класса... Да... Давно это было... :))
Не обижайся... ;) 100 из 100 - это круто!
Ответ отправлен: 03.12.2002, 00:39
Отправитель: baldr
| Вопрос № 110 |
Пол часа по клаве стучал. Вот и задания с олимпиады.
А как почитаете задания, сразу поймёте почему 100 из 100 :))
to Baldb:
>А, прости за нескромность, сколько человек
>всего было на той олимпиаде? :))
>Просто я тоже как-то занял третье место
>в районной олимпиаде по программированию,
>причем, всеготам было нас 4 человека... :)
>Все из одного класса... Да... Давно это было... :))
Не :-)))
У нас город бол-менее большой (~100.000) набролось 10-классников ~15.
Приложение:
Вопрос отправлен: 03.12.2002, 10:38
Отправитель: KODer (koderx@rambler.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает baldr
Доброе время суток, KODer!
Ну надо же! В моем нике и сразу две ошибки! :-//
А вообще, задания IMHO слишком простые! У нас сложнее были! Но решал ты все правильно.
Ответ отправлен: 04.12.2002, 00:07
Отправитель: baldr
| Вопрос № 111 |
Great great thanks всем экспертам,ответившим на вопрос №108 (особенно X-RayMan).
Вот ещё обращаюсь к вам:
Задача закллючается в следующем:
создать иерархическую структуру классов: точка, линия, пятиугольник.
Определить для них следующие операции:
1. прорисовки
2. масштабирования
3. организовать движение этих фигур до нажатия произвольной клавиши
делаю след-ее:
program obj
uses Graph,crt;
type
Point=object {родитель}
x,y:integer;
procedure draw (a,b:integer);
procedure hide (a,b,c:integer);
...
end;
type line=object(point) {первый потомок}
.....
end;
type fiveangle=object(line); {второй потомок}
...
end;
....
Растолкуйте (если можно с примерами), как сделать масштабирование и прорисовку этих объектов.
Заранее, спасибо.
Вопрос отправлен: 03.12.2002, 16:57
Отправитель: vova
[Следующий вопрос >>] [Список вопросов]
Отвечает Pinman
Здравствуйте, vova!
Начем пишем то? Судя по юнитам на TP, тогда используй ф-ии graph'a для прорисовки, однако все параметры домножай на некоторую константу (например zoom), которая и является коофициентом масштаба.
Ответ отправлен: 04.12.2002, 22:12
Отправитель: Pinman
Отвечает Ayl
Приветствую Вас, vova!
Объекты должны быть реализованы немного не так. См. Приложение.
Допиши недостающие методы.
Заведи переменные:
p : TPoint;
l : TLine;
f : TFiveangle;
И далее можешь с ними работать:
p.Init (5, 5, 15);
p.Show;
p.Move (20, -2);
l.Init (5, 5, 10, 10, 14);
l.Show;
l.Move (5, 15);
l.Scale (2, 1);
и т.д.
Приложение:
Ответ отправлен: 03.12.2002, 17:53
Отправитель: Ayl
Отвечает X-RayMan
Доброго времени суток, vova!
Лови на мыло.
Ответ отправлен: 05.12.2002, 17:32
Отправитель: X-RayMan
Отвечает Melkor
Приветствую Вас, vova!
Ответ (прорисовка):
Просто можешь заменить в наследниках процедуру прорисовки (т. е. дать ей то же имя), только могут возникнуть глюки при полиморфизме, если не использовать виртуальные методы, не заню работают ли они в BP 7.0 (виртуальный метод обозначается в обьекте и всех наследниках словом virtual). Пример:
type
point = object
color: byte;
x, y: integer;
procedure draw;< virtual;>
procedure hide;< virtual;>
end;
line = objects(point)
x1, y1: integer;
procedure draw;< virtual;>
procedure hide;< virtual;>
end;
.................
procedure point.draw;
begin
putpixel(x, y, color);
end;
procedure line.hide;
begin
putpixel(x, y, 0);
end;
procedure line.draw;
begin
setcolor(color);
line(x, y, x1, y1);
end;
procedure line.hide;
begin
setcolor(0);
line(x, y, x1, y1);
end;
То, что в < > писать не обязательно.
Ответ отправлен: 04.12.2002, 00:21
Отправитель: Melkor
|
Форма отправки вопроса |
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
© 2002 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (39) C / C++ (28) Perl (6) Delphi (19) Pascal (22) Basic / VBA (9) Java / JavaScript (12) PHP (7) MySQL / MSSQL (8) |
Пользователю Windows 95/98/Me (32) Windows NT/2000/XP (21) "Железо" (28) Поиск информации (15) |
Администратору Windows NT/2000/XP (13) Linux / Unix (16) |
Юристу Гражданское право (9) Семейное право (3) Трудовое право (5) КоАП (3) |
Отправить вопрос всем экспертам выбранной рассылки.
| © 2002 Россия, Москва. Авторское право: RusFAQ.ru |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
