Begin19. Даны координаты двух противоположных вершин прямоугольника: $$(x_1, y_1)$$, $$(x_2, y_2)$$. Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника.
Формулы:
$$P=2*(a+b)$$
Delphi/Pascal
program Begin19 ;
x1 , y1 , x2 , y2 , P , S : Real ;
Writeln ( ‘Введите значение координат певой точки прямоугольника: ‘ ) ;
Write ( ‘Введите значение x: ‘ ) ;
Readln ( x1 ) ;
Write ( ‘Введите значение y: ‘ ) ;
Readln ( y1 ) ;
Writeln ( ‘Введите значение координат второй точки прямоугольника: ‘ ) ;
Write ( ‘Введите значение x: ‘ ) ;
Readln ( x2 ) ;
Write ( ‘Введите значение y: ‘ ) ;
Readln ( y2 ) ;
P := 2 * ( abs ( x1 — x2 ) + abs ( y1 — y2 ) ) ;
Writeln ( ‘Периметр прямоугольника равен: ‘ , P ) ;
S := abs ( x1 — x2 ) * abs ( y1 — y2 ) ;
Writeln ( ‘Площадь прямоугольника равна: ‘ , S ) ;
Другие задачи из раздела Begin можно посмотреть здесь.
ВКонтакте ( X )
Facebook ( X )
Здраствуйте,вот я не понял как это делается в математике ,в программирование все ок,просто хочу свои навыки прокачать в математике,не дадите сайт или какую ту информацию что бы потянуть математику ,мне очень нравится математика и программирование хотел как то по практиковаться чтобы на много лучшее было по данной книги практикуюсь (Адамян).
Паскаль, площадь и периметр прямоугольника.
Источник: coolcode.ru
Вычисление площади и периметра прямоугольника на Pascal
Вычисление площади и периметра прямоугольника.
procedure RectSP(a,b: real; var S,P:real); begin S := a * b; P := a + b; end; var x,y: real; // Стороны прямоугольника S: real; // Площадь прямоугольника P: real; // Периметр прямоугольника begin write(‘Введите стороны прямоугольника: ‘); readln(x,y); RectSP(x,y,S,P); writeln(‘Площадь равна ‘,S); writeln(‘Периметр равен ‘,P); end.
Просмотров: 9278
10.02.2015, 10:25 —
Источник: abcvg.com
Паскаль программа которая вычисляет площадь и периметр прямоугольника
Вопрос по информатике:
Паскаль. составить программу вычисления площади и периметра прямоугольника
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 14.05.2018 06:57
- Информатика
- remove_red_eye 4644
- thumb_up 62
Ответы и объяснения 1
ldremoumat
Var a, b:integer;
begin
writeln (‘Введите стороны a и b’);
writeln (‘Введите сторону a’);
Вычисление площади и периметра прямоугольника на Pascal.
readln (a);
writeln (‘Введите сторону b’);
readln (b);
writeln;
writeln (‘Периметр = ‘, (a+b)*2);
writeln (‘Площадь = ‘, a*b);
readln;
end.
- 15.05.2018 15:39
- thumb_up 43
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Источник: online-otvet.ru