Прямоугольник – четырехугольник, у которого все углы прямые (равны 90 градусам).
Площадь прямоугольника
Для вычисления площади прямоугольника необходимо умножить его длину на ширину:
S = a×b
{$CODEPAGE UTF8}
program RectangleArea;
var sideA, sideB, area: integer;
begin
write('Длина: ');
readln(sideA);
write('Ширина: ');
readln(sideB);
area := sideA * sideB;
writeln('Площадь прямоугольника: ', area);
readln;
end.
Периметр прямоугольника
Для вычисления периметра прямоугольника необходимо сложить длины всех его сторон:
P = a + b + a + b = 2×a + 2×b = 2×(a + b)
{$CODEPAGE UTF8}
program RectanglePerimeter;
var sideA, sideB, perimeter: integer;
begin
write('Длина: ');
readln(sideA);
write('Ширина: ');
readln(sideB);
perimeter := (sideA + sideB) * 2;
writeln('Периметр прямоугольника: ', perimeter);
readln;
end.
Смотрите также:
Напишем программу, которая будет вычислять площадь и периметр прямоугольника со сторонами (5) см и (8) см.
Входные данные в задаче:
(a=5) см;
(b=8) см.
На выходе мы должны получить:
(S) — площадь прямоугольника;
(P) — периметр прямоугольника.
Для вычислений будем использовать формулы из курса математики:
S=a×b,P=2×(a+b)
.
Напишем программу:
С помощью данной программы мы найдем площадь и периметр прямоугольника.
В окне вывода увидим следующее:
Данная программа не универсальна для некоторого класса задач, а это противоречит свойствам алгоритма. Программа работает только для одного конкретного прямоугольника со сторонами (5) см и (8) см. Для того, чтобы программа могла находить площадь и периметр для любого прямоугольника, необходимо добавить в неё оператора ввода.
Рассчитать площадь и периметр прямоугольника
Площадь прямоугольника вычисляется как произведение длин сторон, а периметр, как удвоенная сумма длин сторон.
Исходные данные: a,b — целые числа (тип integer), длины сторон прямоугольника
Выходные данные: s,p — целые числа (тип integer), площадь прямоугольника, периметр прямоугольника.
Программа решения на языке Паскаль:
Var a,b,s,p:integer;
begin
readln(a,b);
s:=a*b;
p:=2*(a+b);
writeln(‘площадь = ‘,s);
writeln(‘периметр = ‘,p);
end.
Узнай цену своей работы
Формулировка задачи:
Составить программу расчета площади и периметра прямоугольника при заданных длинах сторон. / Pascal ABC
Код к задаче: «Составить программу расчета площади и периметра прямоугольника при заданных длинах сторон»
textual
Листинг программы
var a,b,s,p: integer;
begin
writeln('введите длину прямоугольника а,а');
readln(a);
writeln('введите ширину прямоугольника b,b');
readln(b);
S:=a*b;
P:=(a+b)*2;
writeln('p=',p);
writeln('s=',s);
end.
Для вычисления площади прямоугольника необходимо умножить его длину на ширину:S = a×b
program RectangleArea;
var sideA, sideB, area: integer;
begin
write('Длина: ');
readln(sideA);
write('Ширина: ');
readln(sideB);
area := sideA * sideB;
writeln('Площадь прямоугольника: ', area);
readln;
end.
Похожие записи/страницы:
- Периметр прямоугольника Pascal(Паскаль)
- Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям…
- Рассчитать площадь прямоугольника- Pascal(Паскаль)
- Даны две сферы радиуса r1 и r2 (r1>r2) . Определить насколько площадь поверхности первой сферы больше площади…
- Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). Стороны прямоугольника параллельны осям…
- Даны стороны прямоугольника a и b. Найти его площадь S = a·b и периметр P = 2·(a + b) — Pascal(Паскаль)
- Используя типы TPoint, TTriangle и функции Leng и Area, описать функцию Dist(P, A, B) вещественного типа (P, A, B —…
- Одна сторона прямоугольника на 5 см. длиннее другой, а сумма их длин равна 17 см. Найти стороны этого прямоугольника-…