Вычисление площади геометрических фигур
Написать программу, которая в зависимости от выбора пользователя вычисляет площадь одной из трех геометрических фигур: прямоугольника, треугольника или круга.
Примеры выполнения программы
1 - прямоугольник, 2 - треугольник, 3 - круг: 1 Длины сторон: 4.5 3 Площадь: 13.501 - прямоугольник, 2 - треугольник, 3 - круг: 2 Длины сторон: 3 4 5.6 Площадь: 5.791 - прямоугольник, 2 - треугольник, 3 - круг: 3 Диаметр: 1.55 Площадь: 1.891 - прямоугольник, 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.2. Первая программа на языке Паскаль
Напишем программу, которая будет вычислять площадь и периметр прямоугольника со сторонами \(5\) см и \(8\) см.
Входные данные в задаче:
На выходе мы должны получить:
\(S\) — площадь прямоугольника;
\(P\) — периметр прямоугольника.
Для вычислений будем использовать формулы из курса математики: S = a × b , P = 2 × ( a + b ) .
Напишем программу:
С помощью данной программы мы найдем площадь и периметр прямоугольника.
В окне вывода увидим следующее:
Данная программа не универсальна для некоторого класса задач, а это противоречит свойствам алгоритма. Программа работает только для одного конкретного прямоугольника со сторонами \(5\) см и \(8\) см. Для того, чтобы программа могла находить площадь и периметр для любого прямоугольника, необходимо добавить в неё оператора ввода.
Вычислить периметр и площадь прямоугольника
Определите площадь и периметр прямоугольника со сторонами a и b
Помогите пожалуйста решить задачку на паскале: Определите площадь и периметр прямоугольника со.
Описать процедуру, вычисляющую периметр и площадь прямоугольника.
Здравствуйте, помогите, пожалуйста, решить вот эти 3 задачи в Паскале! 1. Описать процедуру.
Вычислить периметр прямоугольника, заданного координатами своих вершин на плоскости
Вычислить периметр прямоугольника, заданного координатами своих вершин на плоскости.
Вычислить периметр и площадь круга
Вычислить периметр и площадь круга при изменении радиуса от 1 до 10 см, с шагом в 1 см Помогите.
Супер-модератор
6170 / 2912 / 1300
Регистрация: 04.03.2013
Сообщений: 5,773
Записей в блоге: 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. Если можно построить треугольник по этим трем отрезкам, то.
Площадь и периметр прямоугольника
Прямоугольник – четырехугольник, у которого все углы прямые (равны 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.