Question

Составить программу вычисления площади и периметра квадрата на языке Паскаль

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadReal;
write('S=',a*a,'; P=',4*a);
end.

Answer 2

Program SP;
var a, s, p: real;
begin
readln(a);
s:=sqr(a);
p:=4.0*a;
wrineln(s, ' ', p)
end.

Answer 3

Вот пример программы на языке Паскаль для вычисления площади и периметра квадрата:

pascalCopy code
program SquareAreaPerimeter;

var
  sideLength, area, perimeter: real;

begin
  // Ввод длины стороны квадрата
  writeln('Введите длину стороны квадрата:');
  readln(sideLength);
  
  // Вычисление площади квадрата
  area := sideLength * sideLength;
  
  // Вычисление периметра квадрата
  perimeter := 4 * sideLength;
  
  // Вывод результатов
  writeln('Площадь квадрата: ', area:0:2);
  writeln('Периметр квадрата: ', perimeter:0:2);
  
  readln;
end.

Программа запрашивает у пользователя длину стороны квадрата, вычисляет площадь квадрата, затем вычисляет периметр квадрата и выводит результаты на экран. Обратите внимание, что используется переменная real для хранения результатов, что позволяет работать с числами с плавающей точкой.