Среда, 08.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

"Прямоугольник"
snaper1993Дата: Пятница, 17.10.2008, 01:56 | Сообщение # 1
Бывалый
Группа: Пользователи
Сообщений: 121
Репутация: 2
Замечания: 0%
Статус: Offline
Задача T0Z1. "Прямоугольник"

Назовем "длиной" прямоугольника, стороны которого параллельные осям координат, его размер вдоль осы OX, а "шириной" - размер вдоль осы OY. Со стандартного входного потока вводятся четыре целых числа X1, Y1, X2, Y2, отделенные пропусками, модуль ни одного из которых не превышает 1000000000 - координаты двух противоположных вершин прямоугольника. Определить его длину и ширину и вывести в стандартный исходный поток в таком формате:
LEN:<длинна>
WID:<ширина>
Пример входных данных:
2 4 -3 90
Пример входных данных:
LEN:5
WID:86


Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?
 
SeqularДата: Пятница, 17.10.2008, 06:17 | Сообщение # 2
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
snaper1993, А, собсна в чем проблема? ) Считываем 4 числа. x1, y1, x2, y2 и выводим ответ.
Code
LEN := abs(x2-x1);
WID := abs(y2-y1);

Или это не работает? О_о


Поддерживаю также проект сообщество молодых сисадминов
 
snaper1993Дата: Пятница, 17.10.2008, 06:33 | Сообщение # 3
Бывалый
Группа: Пользователи
Сообщений: 121
Репутация: 2
Замечания: 0%
Статус: Offline
Работает спасибо, чото я про функцию abs забыл!!

Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?
 
VictorisДата: Четверг, 23.10.2008, 07:22 | Сообщение # 4
Новичок
Группа: Пользователи
Сообщений: 9
Репутация: -1
Замечания: 20%
Статус: Offline
Quote
Работает спасибо, чото я про функцию abs забыл!!

Когда ты о неё ваще чтото знал tongue
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;