Question

Написать программу нахождения периметра и площади прямоугольника с использованием ФУНКЦИИ в паскале

Answer 1

program PER_AND_PLOSH;

var

   a,b:integer;

   

function per(a,b:integer):integer;

begin

   per:=a+b+a+b;

end;

function plos(a,b:integer):integer;

begin

   plos:=a*b;

end;

begin

 writeln('Введите длины сторон прямоугольника:');

 readln(a,b);

 write('Периметр равен ',per(a,b),', а площадь равна ',plos(a,b));

end.

Answer 2

Конечно, вот пример программы на Pascal для вычисления периметра и площади прямоугольника с использованием функций:

pascalCopy code
program RectangleAreaAndPerimeter;

function CalculateArea(length, width: real): real;
begin
    CalculateArea := length * width;
end;

function CalculatePerimeter(length, width: real): real;
begin
    CalculatePerimeter := 2 * (length + width);
end;

var
    length, width, area, perimeter: real;

begin
    writeln('Введите длину прямоугольника: ');
    readln(length);
    
    writeln('Введите ширину прямоугольника: ');
    readln(width);
    
    area := CalculateArea(length, width);
    perimeter := CalculatePerimeter(length, width);
    
    writeln('Площадь прямоугольника: ', area:0:2);
    writeln('Периметр прямоугольника: ', perimeter:0:2);
end.

Скопируйте этот код в среду разработки Pascal (например, Free Pascal) и выполните его. Программа запросит вас ввести длину и ширину прямоугольника, а затем вычислит и выведет площадь и периметр.