Отправляет email-рассылки с помощью сервиса Sendsay

Задачи и решения по программированию в среде TurboPascal

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "RFpro.ru: Программирование на языке Pascal" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Февраль 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Автор
Зорин Юрий

Статистика

2.200 подписчиков
-3 за неделю
←   Все выпуски   →

Задачи и решения по программированию в среде TurboPascal - Картинная галерея


Информационный Канал Subscribe.Ru

Задачи и решения по программированию в среде Turbo Pascal

Здравствуйте, уважаемые подписчики. Перед Вами 13 номер рассылки. Подписалось 1800+

Рекомендую подписаться

 

Рассылки Subscribe.Ru
Знаете ли Вы, что...
 

Ответ к задаче "Забавный конфуз"

( Сергей Юшанов и Евгений )

Program conf;
Var
i,j,n,k,min,max:integer;
a:longint;
f1,f2:text;
BEGIN
Assign(f1,'confuse.in');
Assign(f2,'confuse.out');
Reset(f1);
Read(f1,n);
Readln(f1,k);
Read(f1,a);
min:=a;
max:=a;
For i:=2 to n do
Begin
Read(f1,a);
If a<min then min:=a;
If a>max then max:=a;
End;
Close(f1);
a:=max-min;
ReWrite(F2);
Writeln(f2,a);
Close(f2);
END.
 

"Картинная галерея"

(Входной файл: gallery.in)

(Выходной файл: gallery.out)

Картинная галерея города LamerLand приобрела очень дорогую коллекцию картин. Администрация данной галерея обеспокоена вопросом - есть в данной галереи опасные точки. Опасной точкой называют опасной, если из данной точки не видна вся галерея. Галерея представляет собой многоугольник, заданный вершинами. Вы должны помочь администрации, найти по заданным координатам вершин многоугольника, определить наличие опасных точек или их отсутствие.

Координаты типа Integer

В выходной файле содержится одна строка YES или NO, то есть присутствие или отсутствие опасных точек.

Пример:

7

1 1

2 1

3 2

4 3

4 4

2 4

1 2

 

NO

Вопросы читателей

 

Добрый день!

Для вычислений не хватает точности (количества знаков в типе extended). Посоветуйте, пожалуйста, возможные методики решения
этой проблемы (формирование базовых математических операций + - * /). Еще одна проблема связана с отсутсвием в Pascal
перегурзки операторов ...
Ответить: mailto:george-dolin@yandex.ru

-----------------------------------------------------

Вопрос: скажите, пожалуйста, как вставиь в Паскаль и буфера обмена??? Заранее благодарю.

Ответить: mailto:kashir@ketovo.zaural.ru

 

Вот и все! Удачи!

Если есть вопросы по программированию в Turbo Pascal или решенные и нерешенные задачи, то присылайте на mailto:vmftem@mail.ru с темой Pascal

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное