Var r,c,s:real;
begin
write(‘Введите длину окружности ‘);
readln(c);
r:=c/(2*3.14)
s:=3.14*r*r
write(‘площадь круга ‘);
writeln(s);
end.
Как добавить хороший ответ?
Что необходимо делать:
- Написать правильный и достоверный ответ;
- Отвечать подробно и ясно, чтобы ответ принес наибольшую пользу;
- Писать грамотно, поскольку ответы без грамматических, орфографических и пунктуационных ошибок лучше воспринимаются.
Что делать не стоит:
- Списывать или копировать что-либо. Высоко ценятся ваши личные, уникальные ответы;
- Писать не по сути. «Я не знаю». «Думай сам». «Это же так просто» — подобные выражения не приносят пользы;
- Писать ответ ПРОПИСНЫМИ БУКВАМИ;
- Материться. Это невежливо и неэтично по отношению к другим пользователям.
Пример вопроса
Русский язык
7 минут назад
Какой синоним к слову «Мореплаватель»?
Пожаловаться
Вычисление площади круга и длинны окружности по заданному радиусу в Паскаль с применением константы
Хороший ответ
Вася Иванов
Мореплаватель — имя существительное, употребляется в мужском роде. К нему может быть несколько синонимов.
1. Моряк. Старый моряк смотрел вдаль, думая о предстоящем опасном путешествии;
2. Аргонавт. На аргонавте были старые потертые штаны, а его рубашка пропиталась запахом моря и соли;
3. Мореход. Опытный мореход знал, что на этом месте погибло уже много кораблей, ведь под водой скрывались острые скалы;
4. Морской волк. Старый морской волк был рад, ведь ему предстояло отчалить в долгое плавание.
Источник: uchi.ru
Вычисление площади геометрических фигур
Написать программу, которая в зависимости от выбора пользователя вычисляет площадь одной из трех геометрических фигур: прямоугольника, треугольника или круга.
Для вычисления площади прямоугольника вводятся длины двух его сторон, треугольника — трех сторон, круга — вводится диаметр.
Площадь прямоугольника: 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.
Примеры выполнения программы
Нахождение длины окружности и площади круга на Паскаль
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 Ошибка ввода
Примечание.
При вводе сторон треугольника должно быть соблюдено правило: сумма любых двух сторон должна быть больше третьей. Иначе возникает ошибка.
Поскольку выбор ветви определяется не выражением, а определенным значением целочисленной переменной, данную задачу также можно решить с помощью другого условного оператора — 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.
Источник: pas1.ru
Программа вычисления площади круга
Программа вычисления площади круга на языках программирования питон и паскаль предназначена для выполнения этой простой математической операции.
Код программы (питон):
pi = 3.14 r = 2 s = pi * r * r print(s)
Код программы (паскаль):
program prg; var pi,r,s: real; begin pi:= 3.14; r:= 2; s:= pi*r*r; writeln (s); end.
Вы можете скопировать этот код и вставить в любой IDE редактор кода питон или паскаль и выполнить расчет.
Смотрите также онлайн калькулятор — расчет площади круга.
Программы написанные на языках программирования питон и паскаль выполняют заданную последовательность действий по строгому математическому алгоритму через выполнение инструкций в виде кода команд.
На этой странице представлена самая простая программа вычисления площади круга с кодом для выполнения программ на языках программирования питон и паскаль по строгому математическому алгоритму.
Источник: www.center-pss.ru