Напишем программу, которая будет вычислять площадь и периметр прямоугольника со сторонами (5) см и (8) см.
Входные данные в задаче:
(a=5) см;
(b=8) см.
На выходе мы должны получить:
(S) — площадь прямоугольника;
(P) — периметр прямоугольника.
Для вычислений будем использовать формулы из курса математики:
S=a×b,P=2×(a+b)
.
Напишем программу:
С помощью данной программы мы найдем площадь и периметр прямоугольника.
В окне вывода увидим следующее:
Данная программа не универсальна для некоторого класса задач, а это противоречит свойствам алгоритма. Программа работает только для одного конкретного прямоугольника со сторонами (5) см и (8) см. Для того, чтобы программа могла находить площадь и периметр для любого прямоугольника, необходимо добавить в неё оператора ввода.
Прямоугольник – четырехугольник, у которого все углы прямые (равны 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.
Смотрите также:
Рассчитать площадь и периметр прямоугольника
Площадь прямоугольника вычисляется как произведение длин сторон, а периметр, как удвоенная сумма длин сторон.
Исходные данные: 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.
Есле можете помогите пожалуйста записать код!!!
Напишите программу для вычисления периметра прямоугольник. Создать функцию nacitaj, который извлекает и возвращает аргументы, используя два вещественных числа. Затем создайте obsah и obvod(функции цепи), которая в качестве аргументов приведены длины сторон и вернуть содержимое, соответственно. Периметр прямоугольника. В главной функции вызова программа для извлечения загруженных размеры прямоугольника. Когда вы вводите символ s пользователем программы вычисляет и выводит содержимое, и когда вы вводите символ o по периметру прямоугольника. Десятичная часть результата (например, если результат является целым числом, десятичная точность не отображается) — использовать %g формат. Расчет содержания, соответственно. Схема вызова указатель на функцию.
ВВОД:
3.5 4.75
s
ВЫВОД:
16.625
Если сможете помогите пожалуйста!!!
Узнай цену своей работы
Формулировка задачи:
Составить программу расчета площади и периметра прямоугольника при заданных длинах сторон. / 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.