No Image

Программа для нахождения площади прямоугольника

СОДЕРЖАНИЕ
409 просмотров
10 марта 2020

В зависимости от выбора пользователя вычислить площадь круга, прямоугольника или треугольника. Для вычисления площади каждой фигуры должна быть написана отдельная функция.

Пусть программа может вычислять площади трех фигур: круга, прямоугольника и треугольника. Для вычисления каждой из них необходима отдельная функция. Пусть каждая из этих функций возвращает полученную площадь, а принимает параметры, необходимые для ее вычисления.

Для вычисления площади круга необходим радиус, для прямоугольника – длины двух сторон, для треугольника (если площадь вычисляется по формуле Герона) – длины трех сторон. Следовательно, функции будут различаться по количеству параметров.

Площадь круга вычисляется по формуле πr 2 .
Площадь прямоугольника является произведением двух его сторон.
Площадь треугольника по формуле Герона рассчитывается через полупериметр (p=(a+b+c)/2, где a , b и c – длины сторон треугольника) по формуле sqrt(p * (p-a) * (p-b) * (p-c)), где sqrt – квадратный корень.

В основной ветке программы должен происходить выбор, площадь какой фигуры необходимо вычислить. В зависимости от выбора будут запрашиваться необходимые данные (радиус или длины сторон) и передаваться в соответствующую функцию. Возвращаемое из функции значение будет выводиться на экран.

var
choice : char ;
a , x , y , z : real ;

function circle ( r : real ) : real ;
begin
circle : = pi * sqr ( r ) ;
end ;

function rectangle ( a , b : real ) : real ;
begin
rectangle : = a * b
end ;

function triangle ( a , b , c : real ) : real ;
var x : real ;
begin
x : = ( a + b + c ) / 2 ;
triangle : = sqrt ( x * ( x – a ) * ( x – b ) * ( x – c ) )
end ;

begin
write ( ‘Круг(c), прямоугольник(r) или треугольник(t): ‘ ) ;
readln ( choice ) ;
case choice of
‘c’ : begin
write ( ‘Радиус: ‘ ) ;
readln ( x ) ;
a : = circle ( x )
end ;
‘r’ : begin
write ( ‘Длина и ширина: ‘ ) ;
readln ( x , y ) ;
a : = rectangle ( x , y )
end ;
‘t’ : begin
write ( ‘Стороны: ‘ ) ;
readln ( x , y , z ) ;
a : = triangle ( x , y , z )
end
end ;
writeln ( ‘Площадь: ‘ , a : 4 : 2 ) ;
end .

Круг ( c ) , прямоугольник ( r ) или треугольник ( t ) : c
Радиус: 2
Площадь: 12.57

Круг ( c ) , прямоугольник ( r ) или треугольник ( t ) : r
Длина и ширина: 3.85 12.55
Площадь: 48.32

Читайте также:  Проверка налоговой задолженности по инн юридического лица

Круг ( c ) , прямоугольник ( r ) или треугольник ( t ) : t
Стороны: 3 4 6.5
Площадь: 4.17

В Паскале существует встроенная константа π (pi).

Описание разработки

1 Метод прямоугольников
1.1 Суть этого метода заключается в том, что мы разрежем фигуру на множество тонких прямоугольных полосок и, умножая длину на ширину полосок и складывая всѐ в общую сумму, получим значение искомой площади. Шаг выбираем самостоятельно: h=(b-a)/100. Соответственно, чем меньше шаг, тем больше точность.

1. Метод правых прямоугольников;
2. Метод левых прямоугольников;
3. Метод средних прямоугольников.

Программа для метода правых прямоугольников:

Program Olly;
var a,b,h,S1,x,y:real;
begin
S1:=0;
readln(a);
readln(b);
h:=(b-a)/100;
x:=a;
while x -70%

Ответ оставил Гуру

Program
Var a,b,s
Begin
Readln(a,b)
S:=s+a
End;
Writeln(s)
End.
По такому же принципу находит и площадь.

Ответ оставил Ser012005

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b):=ReadReal2(‘введите длину и ширину прямоугольника:’);
write(‘S=’,a*b,’; P=’,2*a+2*b);
end.

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Комментировать
409 просмотров
Комментариев нет, будьте первым кто его оставит

Это интересно
Adblock
detector