Ось с прямоугольниками, найти общую площадь

[Serge_Bliznykov]

если разрыв между прямоугольниками, то считает только площадь первого

не подтверждаю!

для 3-х:

Выведем прямоугольники (координаты в формате (X,Y) )...
1 Лев.верхний: (    5.00,    4.00) правый нижний: (    8.00,    0.00)
2 Лев.верхний: (    7.00,    5.00) правый нижний: (    9.00,    0.00)
3 Лев.верхний: (   12.00,    5.00) правый нижний: (   14.00,    0.00)
Площадь равна:        28.00

банально для двух:

Выведем прямоугольники (координаты в формате (X,Y) )...
1 Лев.верхний: (    5.00,    1.00) правый нижний: (   10.00,    0.00)
2 Лев.верхний: (   20.00,    2.00) правый нижний: (   21.00,    0.00)
Площадь равна:         7.00

[sp.caster]

Постойте, вот я ввожу количество прямоугольников - 2, координаты первого 2 3 2, второго 4 5 3. Должен получить ответ 1*2=2 и 1*3=3 ==> 2+3=5 - площадь фигуры. А получаю ответ 2, площадь первого.

[Mad_Cat]

Постойте, вот я ввожу количество прямоугольников - 2, координаты первого 2 3 2, второго 4 5 3.

координат 4 должно быть а вы вводите по 3 почему то

Должен получить ответ 1*2=2 и 1*3=3 ==> 2+3=5 - площадь фигуры. А получаю ответ 2, площадь первого.

Дык получайте-Доводите до ума!

[sp.caster]

Первая координата, это точка левой стороны прямоуг., вторая соответственно правой, а третья - высота.

[Mad_Cat]

а код свой покажите

[Serge_Bliznykov]

Постойте, вот я ввожу количество прямоугольников - 2, координаты первого 2 3 2, второго 4 5 3. Должен получить ответ 1*2=2 и 1*3=3 ==> 2+3=5 - площадь фигуры. А получаю ответ 2, площадь первого.

ничем не могу Вам помочь!
я ввожу в ту программу, которую я дал в пост #16
те же данные, получаю площадь равную 5

Введите, сколько прямоугольников Вы хотите ввести [1..100] : 2
Введите левую границу, правую границу и высоту прямоугольника:
2 3 2
Введите левую границу, правую границу и высоту прямоугольника:
4 5 3

Выведем прямоугольники (координаты в формате (X,Y) )...
1 Лев.верхний: (    2.00,    2.00) правый нижний: (    3.00,    0.00)
2 Лев.верхний: (    4.00,    3.00) правый нижний: (    5.00,    0.00)
Площадь равна:         5.00

мне кажется, что Вы какую-то другую программу тестируете!
выкладываю исходный код ещё раз + скомпилированный EXE файл

[sp.caster]

О, большое спасибо, скорее всего ошибка закралась где-то при перепечатывании программы с сайта в паскаль, т.к. иного способа скопировать я не видел

[Serge_Bliznykov]

где-то при перепечатывании программы с сайта в паскаль, т.к. иного способа скопировать я не видел

Вы шутите?:!!

Выделить текст в браузере. Нажать копировать (или меню, или правой кн.мышки или банально Ctrl-C)
Открыть ЛЮБОЙ текстовый редактор (ну, желательно с поддержкой кодовой страницы ДОС - это чтобы русские буквы были. я пользуюсь обычный Far Commander - там по F4 хороший простой текстовый редактор), если ничего нет - так хоть стандартный Блокнот открывайте.
Туда вставляйте текст ("Вставить" или Ctrl-V)
Сохраняете.
всё. осталось переименовать файл, изменив расширение на .PAS и всё. можно открывать в Паскале.

p.s. в Far Commander я ничего не переименовываю - редактирую сразу файлы с расширением .PAS

Это Вы думали, что я сидел и набивал программу прямо в браузере?!!

[sp.caster]

повеселил вас, да?=)=) нуб, что сказать=) я вам очень благодарен=)

[sp.caster]

Вопрос не по теме, а что лучше использовать сам pascal 7.1 или pascalABC? Вообще разница есть? Преподаватель почему-то не очень лестно высказался про ABC. Или есть еще какие-либо модификации, а то я как то этому тупо синему экрану не очень симпатизирую, страшный какой-то=) зловещий=)