поменять местами - Паскаль, Turbo Pascal, PascalABC.NET - Страница 2

Serge_Bliznykov · 04.01.2009, 21:23

UnD)eaD)Snake, Ваш вариант не учитывает повороты открытки внутри конверта:

Цитата:

зато можно размещать ее в конверте как угодно – не обязательно параллельно краям конверта

(длина открытки может быть БОЛЬШЕ длины конверта, тем не менее она может поместиться по диагонали...)
задачка с подковыркой...

1..2,1..2 :) · 05.01.2009, 22:50

да собственно говоря в этом и есть моя загвоздка всё остальное написать можно а эту последовательность видимо надо находить в ручную. И ещё в задаче вещественых чисел нет должны целые(что не много облегчает)

1..2,1..2 :) · 05.01.2009, 22:53

Цитата:

Сообщение от UnD)eaD)Snake

1..2,1..2 , правила

а так.. циклом проверяй все конверты. чтото типа:
if ((длинаоткрытки<=длинаконверта)and( ширинаоткрытки<=ширинаконверта))or( (ширинаоткрытки<=длина конверта)and(длинаоткрытки<=ширинак онверта)) then writeln(1) else writeln(0) ...

Обрати внимание на строку №4 первого сообщения!

1..2,1..2 :) · 08.01.2009, 13:43

if (konv1>=raz1) and (konv2>=raz2)
then viv:=viv*10+1
else if (konv1>=raz2) and (konv2>=raz1)
then viv:=viv*10+1
else if konv1>=konv2
then if raz1>raz2
then if(raz1<=konv1+konv1 div 10) and (raz2<=konv2 div 3)
then viv:=viv*10+1
else if(raz2<=konv1+konv1 div 10) and (raz1<=konv2 div 3)
then viv:=viv*10+1
else if raz1>raz2
then if(raz1<=konv2+konv2 div 10) and (raz2<=konv1 div 3)
then viv:=viv*10+1
else if(raz2<=konv2+konv2 div 10) and (raz1<=konv1 div 3)
then viv:=viv*10+1;

Вот такой вот алгаритмец по нахождению входа конверта заверните пожалуста.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поменять местами 3-ю и 4-ую строки массива	танечка155	Помощь студентам	3	23.11.2010 21:52
ПОменять значения местами	qip2005	Паскаль, Turbo Pascal, PascalABC.NET	6	24.12.2008 23:38
Поменять местами абзацы	Иллидан	Microsoft Office Word	1	16.09.2008 08:14
Как поменять строки местами?	ar.	Microsoft Office Word	1	05.09.2008 11:36
поменять местами столбцы	veter_s_morya	SQL, базы данных	4	29.06.2008 13:36

05.01.2009, 22:50	#12
1..2,1..2 :) Заблокирован Регистрация: 04.01.2009 Сообщений: 11	да собственно говоря в этом и есть моя загвоздка всё остальное написать можно а эту последовательность видимо надо находить в ручную. И ещё в задаче вещественых чисел нет должны целые(что не много облегчает)

08.01.2009, 13:43	#14
1..2,1..2 :) Заблокирован Регистрация: 04.01.2009 Сообщений: 11	if (konv1>=raz1) and (konv2>=raz2) then viv:=viv10+1 else if (konv1>=raz2) and (konv2>=raz1) then viv:=viv10+1 else if konv1>=konv2 then if raz1>raz2 then if(raz1<=konv1+konv1 div 10) and (raz2<=konv2 div 3) then viv:=viv10+1 else if(raz2<=konv1+konv1 div 10) and (raz1<=konv2 div 3) then viv:=viv10+1 else if raz1>raz2 then if(raz1<=konv2+konv2 div 10) and (raz2<=konv1 div 3) then viv:=viv10+1 else if(raz2<=konv2+konv2 div 10) and (raz1<=konv1 div 3) then viv:=viv10+1; Вот такой вот алгаритмец по нахождению входа конверта заверните пожалуста.