Примеры программ на Borland Pascal, ABC Pascal и др.
Компьютерные Технологии в Обучении
    256ПрограммированиеPascalВычисление периметра и площади квадрата
Информационный блок
Рекламный блок

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

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

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

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