Олимпиадные задачи по программированию. Ч. 2. Лучшие решения. Ускова О.Ф - 19 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

Begin
{ввод данных. Отброс точек и совпадающих линий. Вычисление точек пересечений}
Assign(F,'input.txt');
Reset(F);
Read(F,n);
k:=1;
pcount:=0;
For i:=1 to n do
If i<>1 then
begin
Read(F,x1,y1,x2,y2);
j:=1;
While (j<=k) and (abs(x1-x2)+abs(y1-y2)<>0) and cross(x1,y1,x2,y2,
Lines[j,1].X,Lines[j,1].Y,Lines[j,2].X,Lines[j,2].Y) do j:=j+1;
If j>k then
Begin
k:=k+1;
Lines[k,1].X:=x1;
Lines[k,1].Y:=y1;
Lines[k,2].X:=x2;
Lines[k,2].Y:=y2;
End;
End else Read(F,Lines[k,1].X,Lines[k,1].Y,Lines[k,2].X,Lines[k,2].Y);
Close(F);
{Подсчет частей}
Count:=k+1;
For i:=1 to pcount do
Begin
n:=0;
For j:=1 to k do
If (Points[i].x-Lines[j,1].x)*(Lines[j,2].y-Lines[j,1].y)=
(Points[i].y-Lines[j,1].y)*(Lines[j,2].x-Lines[j,1].x) then n:=n+1;
If n<>0 then Count:=Count+n-1;
End;
{Вывод результата }
Assign(F,'output.txt');
Rewrite(F);
Write(F,Count);
Close(F);
End.
Задача 6. " Язык TURBU "
Задача была предложена на областной олимпиаде школьников в 2000
году и на межвузовской студенческой олимпиаде в 2001 году. Автор
решения – один из победителей олимпиады, ныне магистрант первого года
обучения Ромащенко Алексей Геннадьевич.
В языке TURBU алфавит содержит 5 букв: "#", "$", "&","*","@".
Все используемые в языке слова - пятибуквенные, поэтому в словаре
языка TURBU первое слово - #####, последнее - @@@@@. На каждой
странице словаря напечатано N слов.
Определить:
1. Количество страниц Р, необходимое для размещения всех слов
языка TURBU в словаре.
2. Номер Q страницы, на которой располагается задаваемое слово
а.
3. Слова, которыми начинается и заканчивается страница,
содержащая задаваемое слово b языка TURBU.

Страницы