Примеры программ на Borland Pascal, ABC Pascal и др.
    256ПрограммированиеPascalВычисление периметра и площади квадрата

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

📐 Площадь треугольника по формуле Герона. Три варианта. Во втором примере используется оператор перехода GOTO. Третий пример написан, с учётом рекомендаций PascalABC.NET
📐 Площадь прямоугольного треугольника. Вычислить площадь и периметр прямоугольного треугольника по двум сторонам. Четыре варианта решения задач.

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

Задачи по информатике и основам программирования на языке Паскаль.

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

Задание:
Введите сторону квадрата. Найдите периметр. Выведите результат на экран.
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.

📐 Площадь треугольника по формуле Герона. Три варианта. Во втором примере используется оператор перехода GOTO. Третий пример написан, с учётом рекомендаций PascalABC.NET
📐 Площадь прямоугольного треугольника. Вычислить площадь и периметр прямоугольного треугольника по двум сторонам. Четыре варианта решения задач.

Рекламный блок

Информационный блок