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

Программа “Вычисление периметра квадрата”

Задание:
Введите сторону квадрата. Найдите периметр. Выведите результат на экран.

Program Perimeter;
Var A, P : Integer;
begin
writeln(‘Программа вычисления периметра квадрата’);
write(‘Введите сторону ‘);
readln(A);
P := 4 * A;
writeln(‘Периметр квадрата равен ‘, P)
end.

Замечание:
В зависимости от компилятора языка Паскаль существуют различные ограничения на вводимые значения. Например, в Borland (Turbo) Pascal диапазон допустимых значений для Integer -32768..32767, а в Pascal ABC.NET -2147483648..2147483647

Программа “Вычисление площади квадрата”

Задание:
Введите сторону квадрата. Найдите площадь. Выведите результат на экран.

Program Square;
Var A, S : Real;
begin
writeln(‘Программа вычисления площади квадрата’);
write(‘Введите сторону ‘);
readln(A);
S := A * A;
writeln(‘Площадь квадрата равна ‘, S)
end.

Замечание:
Вместо S := A * A;
можно использовать функцию возведения в квадрат sqr
S := Sqr(A);

Программа “Вычисление периметра и площади квадрата”

Задание:
Введите сторону квадрата. Если введённое значение больше 0, то найдите площадь и периметр квадрата и выведите результаты на экран, иначе выведите сообщение об ошибке.

Program PS;
Var A, P, S : Real;
begin
writeln(‘Программа вычисления периметра и площади квадрата’);
write(‘Введите сторону ‘);
readln(A);
if A > 0 then begin
P := 4 * A;
S := Sqr(A);
writeln(‘Периметр квадрата равен ‘, P);
writeln(‘Площадь квадрата равна ‘, S)
end
else writeln(‘Ошибка. Сторона квадрата должна быть больше нуля’)
end.

Программа “Вычисление периметра и площади квадрата”. Вариант решения на PascalABC.NET

• В программе отсутствуют устаревшие в PascalABC.NET конструкции.

В программе используются следующие рекомендованные конструкции PascalABC.NET:

• Используются внутриблочные описания переменных: 3 раза
• Используется инициализация при описании: 3 раза
• Для ввода используется функция вида ReadInteger,ReadReal: 1 раз
• Используется расширенное присваивание: 2 раза
• Для вывода использована Print: 4 раза

Задание:
Введите сторону квадрата. Если введённое значение больше 0, то найдите площадь и периметр квадрата и выведите результаты на экран, иначе выведите сообщение об ошибке.

(*
Вариант для PascalABC.NET
*)
begin
Println(‘Программа вычисления периметра и площади квадрата’);
var A := ReadReal(‘Введите сторону ‘);
if A > 0 then begin
var P : Real := 4 * A;
var S : Real := Sqr(A);
Println(‘Периметр квадрата равен ‘, P);
Println(‘Площадь квадрата равна ‘, S)
end
else Println(‘Ошибка. Сторона квадрата должна быть больше нуля’)
end.