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

2. Первая программа на языке Паскаль

Напишем программу, которая будет вычислять площадь и периметр прямоугольника со сторонами \(5\) см и \(8\) см.

Входные данные в задаче:

На выходе мы должны получить:

\(S\) — площадь прямоугольника;

\(P\) — периметр прямоугольника.

Для вычислений будем использовать формулы из курса математики: S = a × b , P = 2 × ( a + b ) .

Напишем программу:

С помощью данной программы мы найдем площадь и периметр прямоугольника.

В окне вывода увидим следующее:

Данная программа не универсальна для некоторого класса задач, а это противоречит свойствам алгоритма. Программа работает только для одного конкретного прямоугольника со сторонами \(5\) см и \(8\) см. Для того, чтобы программа могла находить площадь и периметр для любого прямоугольника, необходимо добавить в неё оператора ввода.

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

var a, b: integer;
begin
write (‘a & b =’);
readln (a, b);
write (‘площадь = ‘, a*b);
write (‘периметр = ‘, 2*(a+b));
end.

Остальные ответы
Ввод сторон
Формула площади
Формула периметра
Вывод площади и периметра
Всё
КубленОракул (96402) 6 лет назад
осталось описание переменных!
А БЕЗ программы сможешь?
напиши формулы — помогу запрограммировать

Занимаюсь программированием и разработкой софта! Опыт разработки ПО более 5 лет, выполняю работы по программированию различной сложности и на любом языке.
мои контакты для связи:
dmitriperov001@gmail.com
WhatsApp +7*9*616*07*44*18

Похожие вопросы
Ваш браузер устарел

Мы постоянно добавляем новый функционал в основной интерфейс проекта. К сожалению, старые браузеры не в состоянии качественно работать с современными программными продуктами. Для корректной работы используйте последние версии браузеров Chrome, Mozilla Firefox, Opera, Microsoft Edge или установите браузер Atom.

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

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

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

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.

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

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

procedure RectSP(a,b: real; var S,P:real); begin S := a * b; P := a + b; end; var x,y: real; // Стороны прямоугольника S: real; // Площадь прямоугольника P: real; // Периметр прямоугольника begin write('Введите стороны прямоугольника: '); readln(x,y); RectSP(x,y,S,P); writeln('Площадь равна ',S); writeln('Периметр равен ',P); end.

Просмотров: 9403

10.02.2015, 10:25 —