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

Как вычислить площадь в паскале

  • автор:

Вычисление площади геометрических фигур

Написать программу, которая в зависимости от выбора пользователя вычисляет площадь одной из трех геометрических фигур: прямоугольника, треугольника или круга.

Примеры выполнения программы

1 - прямоугольник, 2 - треугольник, 3 - круг: 1 Длины сторон: 4.5 3 Площадь: 13.50
1 - прямоугольник, 2 - треугольник, 3 - круг: 2 Длины сторон: 3 4 5.6 Площадь: 5.79
1 - прямоугольник, 2 - треугольник, 3 - круг: 3 Диаметр: 1.55 Площадь: 1.89
1 - прямоугольник, 2 - треугольник, 3 - круг: 7 Ошибка ввода

Для вычисления площади прямоугольника вводятся длины двух его сторон, треугольника — трех сторон, круга — вводится диаметр.

Площадь прямоугольника: area = a * b
Площадь треугольника: area = sqrt(s * (s — a) * (s — b) * (s — c)), где s = (a + b + c) / 2. В языке Pascal функция sprt() извлекает квадратный корень.
Площадь круга: area = pi * sqr(d) / 4. Функция sqr() возводит в квадрат.

Пользователь осуществляет выбор фигуры, площадь которой он хочет получить, путем ввода цифр 1, 2 или 3.

Для выбора ветви вычисления используется конструкция условного оператора if-else, которая включает вложенный оператор ветвления.

if 1 then вычисление площади прямоугольника else if 2 then вычисление площади треугольника else if 3 then вычисление площади круга else ошибка

Программа на языке Паскаль

var figure: byte; area, s, a, b, c, d: real; ok: boolean; begin ok := TRUE; write('1 - прямоугольник, 2 - треугольник, 3 - круг: '); readln(figure); if figure = 1 then begin write('Длины сторон: '); readln(a, b); area := a * b end else if figure = 2 then begin write('Длины сторон: '); readln(a, b, c); s := 0.5 * (a + b + c); area := sqrt(s * (s - a) * (s - b) * (s - c)) end else if figure = 3 then begin write('Диаметр: '); readln(d); area := PI * sqr(d) / 4 end else ok := FALSE; if ok then writeln('Площадь: ', area:6:2) else writeln('Ошибка ввода'); end.

Примечание. При вводе сторон треугольника должно быть соблюдено правило: сумма любых двух сторон должна быть больше третьей. Иначе возникает ошибка.

Поскольку выбор ветви определяется не выражением, а определенным значением целочисленной переменной, данную задачу также можно решить с помощью другого условного оператора — case.

var figure: byte; area, s, a, b, c, d: real; ok: boolean; begin ok := TRUE; write('1 - прямоугольник, 2 - треугольник, 3 - круг: '); readln(figure); case figure of 1: begin write('Длины сторон: '); readln(a, b); area := a * b; end; 2: begin write('Длины сторон: '); readln(a, b, c); s := 0.5 * (a + b + c); area := sqrt(s * (s - a) * (s - b) * (s - c)); end; 3: begin write('Диаметр: '); readln(d); area := PI * sqr(d) / 4; end; else ok := FALSE; end; if ok then writeln('Площадь: ', area:6:2) else writeln('Ошибка ввода'); end.

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

Author24 — интернет-сервис помощи студентам

Определите площадь и периметр прямоугольника со сторонами a и b
Помогите пожалуйста решить задачку на паскале: Определите площадь и периметр прямоугольника со.

Описать процедуру, вычисляющую периметр и площадь прямоугольника.
Здравствуйте, помогите, пожалуйста, решить вот эти 3 задачи в Паскале! 1. Описать процедуру.

Вычислить периметр прямоугольника, заданного координатами своих вершин на плоскости
Вычислить периметр прямоугольника, заданного координатами своих вершин на плоскости.

Вычислить периметр и площадь круга
Вычислить периметр и площадь круга при изменении радиуса от 1 до 10 см, с шагом в 1 см Помогите.

Супер-модератор
6192 / 2938 / 1300
Регистрация: 04.03.2013
Сообщений: 5,780
Записей в блоге: 1

Лучший ответ

Сообщение было отмечено Кейс как решение

Решение

1 2 3 4 5 6 7 8 9
var a, b, s : real; begin write('введите A, B: '); readln(a, b); s := a * b; writeln(s:6:2); readln end.

87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Помогаю со студенческими работами здесь

Вычислить периметр и площадь прямоугольного треугольника
Добрый день, помогите пожалуйста с задачами, еще нужна блок схема к каждой, заранее спасибо.

Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов a и b
Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов a и b.

Вычислить для треугольник все стороны,углы,периметр и площадь
Ребята,помогите пожалуйста) Буквально спасайте ))) С геометрией огромнейший напряг был ещё в.

вычислить площадь и периметр равнобедренного треугольника зная только его катеты
задача очень лёгкая но у меня не получается))) я начинающий тока. вычислить площадь (S) и.

Вычислить площадь прямоугольника, используя формулу Герона для вычисления площади треугольника
помогите ПОЖАЛУЙСТА. ФУНКЦИИ; 1,Даны длины сторон прямоугольника а и в и длина.

Если можно построить треугольник по трем данным отрезкам, то вычислить его периметр и площадь
Даны длины трех отрезков a, b, c. Если можно построить треугольник по этим трем отрезкам, то.

Или воспользуйтесь поиском по форуму:

Программы на 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.

Программа «Вычисление периметра и площади квадрата». Вариант решения на 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

�� Площадь прямоугольного треугольника. Вычислить площадь и периметр прямоугольного треугольника по двум сторонам. Четыре варианта решения задач.

Площадь и периметр прямоугольника

Прямоугольник – четырехугольник, у которого все углы прямые (равны 90 градусам).

Площадь прямоугольника

Для вычисления площади прямоугольника необходимо умножить его длину на ширину:

S = a×b

 program RectangleArea; var sideA, sideB, area: integer; begin write('Длина: '); readln(sideA); write('Ширина: '); readln(sideB); area := sideA * sideB; writeln('Площадь прямоугольника: ', area); readln; end. 

Периметр прямоугольника

Для вычисления периметра прямоугольника необходимо сложить длины всех его сторон:

P = a + b + a + b = 2×a + 2×b = 2×(a + b)

 program RectanglePerimeter; var sideA, sideB, perimeter: integer; begin write('Длина: '); readln(sideA); write('Ширина: '); readln(sideB); perimeter := (sideA + sideB) * 2; writeln('Периметр прямоугольника: ', perimeter); readln; end. 

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *