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

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

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

Исходный код программы:

1-й вариант программы:

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

2- вариант программы:

В этом варианте программы не используется константа, а умножается сразу на число, и сочетание r*r заменено на sqr(r) — возведение в квадрат.

Задача

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

Решение

Площадь прямоугольника: area = a * b
Площадь треугольника: area = sqrt(s * (s – a) * (s – b) * (s – c)), где s = (a + b + c) / 2
Площадь круга: area = pi * sqr(d) / 4

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

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

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

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

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

Для вычисления площади круга необходим радиус, для прямоугольника — длины двух сторон, для треугольника (если площадь вычисляется по формуле Герона) — длины трех сторон. Следовательно, функции будут различаться по количеству параметров.

Читайте также:  Фотоаппарат sony cyber shot dsc w80

Площадь круга вычисляется по формуле πr 2 .
Площадь прямоугольника является произведением двух его сторон.
Площадь треугольника по формуле Герона рассчитывается через полупериметр (p=(a+b+c)/2, где a , b и c — длины сторон треугольника) по формуле sqrt(p * (p-a) * (p-b) * (p-c)), где sqrt — квадратный корень.

В основной ветке программы должен происходить выбор, площадь какой фигуры необходимо вычислить. В зависимости от выбора будут запрашиваться необходимые данные (радиус или длины сторон) и передаваться в соответствующую функцию. Возвращаемое из функции значение будет выводиться на экран.

var
choice : char ;
a , x , y , z : real ;

function circle ( r : real ) : real ;
begin
circle : = pi * sqr ( r ) ;
end ;

function rectangle ( a , b : real ) : real ;
begin
rectangle : = a * b
end ;

function triangle ( a , b , c : real ) : real ;
var x : real ;
begin
x : = ( a + b + c ) / 2 ;
triangle : = sqrt ( x * ( x — a ) * ( x — b ) * ( x — c ) )
end ;

begin
write ( ‘Круг(c), прямоугольник(r) или треугольник(t): ‘ ) ;
readln ( choice ) ;
case choice of
‘c’ : begin
write ( ‘Радиус: ‘ ) ;
readln ( x ) ;
a : = circle ( x )
end ;
‘r’ : begin
write ( ‘Длина и ширина: ‘ ) ;
readln ( x , y ) ;
a : = rectangle ( x , y )
end ;
‘t’ : begin
write ( ‘Стороны: ‘ ) ;
readln ( x , y , z ) ;
a : = triangle ( x , y , z )
end
end ;
writeln ( ‘Площадь: ‘ , a : 4 : 2 ) ;
end .

Круг ( c ) , прямоугольник ( r ) или треугольник ( t ) : c
Радиус: 2
Площадь: 12.57

Круг ( c ) , прямоугольник ( r ) или треугольник ( t ) : r
Длина и ширина: 3.85 12.55
Площадь: 48.32

Круг ( c ) , прямоугольник ( r ) или треугольник ( t ) : t
Стороны: 3 4 6.5
Площадь: 4.17

В Паскале существует встроенная константа π (pi).

Ссылка на основную публикацию
Приложение следить за человеком по номеру телефона
Отслеживание по номеру телефона - это приложение для Android, благодаря которому вы всегда будете знать где находятся ваши родные и...
Почему телефон ночью быстро разряжается
Если телефон стал быстро разряжаться, это еще не значит, что виновата батарея. В 70% случаев пользователь сам настроил устройство таким...
Почему телефон самостоятельно перезагружается
Постоянная и не запланированная перезагрузка смартфона на Android – раздражающая ошибка. Она порождает плохое настроение и желание расстаться с гаджетом....
Приложение чтобы играть андроид игры на компьютер
Самый мощный эмулятор Android из всех Newest ReleaseВерсия 7.1.3 2020.03.04 Играйте бесплатно в любые игры для Android. Наслаждайтесь оптимизированной графикой...
Adblock detector