Написать программу на языке программирования паскаль для нахождения площади прямоугольника
В зависимости от выбора пользователя вычислить площадь круга, прямоугольника или треугольника. Для вычисления площади каждой фигуры должна быть написана отдельная функция.
Пусть программа может вычислять площади трех фигур: круга, прямоугольника и треугольника. Для вычисления каждой из них необходима отдельная функция. Пусть каждая из этих функций возвращает полученную площадь, а принимает параметры, необходимые для ее вычисления.
Для вычисления площади круга необходим радиус, для прямоугольника — длины двух сторон, для треугольника (если площадь вычисляется по формуле Герона) — длины трех сторон. Следовательно, функции будут различаться по количеству параметров.
Площадь круга вычисляется по формуле πr 2 .
Площадь прямоугольника является произведением двух его сторон.
Площадь треугольника по формуле Герона рассчитывается через полупериметр (p=(a+b+c)/2, где a , b и c — длины сторон треугольника) по формуле sqrt(p * (p-a) * (p-b) * (p-c)), где sqrt — квадратный корень.
В основной ветке программы должен происходить выбор, площадь какой фигуры необходимо вычислить. В зависимости от выбора будут запрашиваться необходимые данные (радиус или длины сторон) и передаваться в соответствующую функцию. Возвращаемое из функции значение будет выводиться на экран.
Pascal
паскаль площадь фигуры
В Паскале существует встроенная константа π (pi).
Язык Си
Компилировать с ключом -lm.
Python
КуМир
Basic-256
В функции ничего не передается и ничего из них не возвращается.
паскаль площадь фигуры
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).
float circle(float);
float rectangle(float, float);
float triangle(float, float, float);
main() char ch;
float a,b,c;
printf("Круг(c), прямоугольник(r) или треугольник(t): ");
scanf("%c", &ch);
switch (ch) case 'c':
printf("Радиус: ");
scanf("%f", &a);
printf("Площадь круга %.2f\n", circle(a));
break;
case 'r':
printf("Длина и ширина: ");
scanf("%f%f", &a, &b);
printf("Площадь прямоугольника: %.2f\n", rectangle(a,b));
break;
case 't':
printf("Стороны: ");
scanf("%f%f%f", &a, &b, &c);
printf("Площадь треугольника: %.2f\n", triangle(a,b,c));
break;
>
>
float circle(float r) return 3.14159 * r * r;
>
float rectangle(float x, float y) return x * y;
>
float triangle(float x, float y, float z) float p;
p = (x+y+z) / 2;
return sqrt(p * (p-x) * (p-y) * (p-z));
>
Компилировать с ключом -lm.
def circle(r):
return math.pi * r**2
def rectangle(a, b):
return a*b
def triangle(a, b, c):
p = (a+b+c)/2
return math.sqrt(p * (p-a) * (p-b) * (p-c))
choice = input("Круг(к), прямоугольник(п) или треугольник(т): ")
if choice == 'к':
rad = float(input("Радиус: "))
print("Площадь круга: %.2f" % circle(rad))
elif choice == 'п':
l = float(input("Длина: "))
w = float(input("Ширина: "))
print("Площадь прямоугольника: %.2f" % rectangle(l,w))
elif choice == 'т':
AB = float(input("Первая сторона: "))
BC = float(input("Вторая сторона: "))
CA = float(input("Третья сторона: "))
print("Площадь треугольника: %.2f" % triangle(AB,BC,CA))
алг площадь фигуры
нач
вещ а, б, в
сим фигура
вывод "Круг(к), прямоугольник(п), треугольник(т): "
ввод фигура
если фигура = "к" то
вывод "Радиус: "
ввод а
вывод "Площадь круга: ", круг(а)
иначе
если фигура = "п" то
вывод "Длина: "
ввод а
вывод "Ширина: "
ввод б
вывод "Площадь прямоугольника: ", прямоугольник(а,б)
иначе
если фигура = "т" то
вывод "Сторона 1: "
ввод а
вывод "Сторона 2: "
ввод б
вывод "Сторона 3: "
ввод в
вывод "Площадь треугольника: ", треугольник(а,б,в)
все
все
все
кон
алг вещ круг (вещ р)
нач
знач := 3.14 * р**2
кон
алг вещ прямоугольник (вещ д, вещ ш)
нач
знач := д * ш
кон
алг вещ треугольник (вещ ст1, вещ ст2, вещ ст3)
нач
вещ п
п := (ст1 + ст2 + ст3) / 2
знач := sqrt(п * (п - ст1) * (п - ст2) * (п - ст3))
кон
input "Круг (к), прямоугольник (п) или треугольник (т): ", ch$
if ch$ = "к" then
gosub circ
else
if ch$ = "п" then
gosub rectangle
else
if ch$ = "т" then
gosub triangle
endif
endif
endif
end
circ:
input "Радиус: ", r
print "Площадь круга: " + (pi * r^2)
return
rectangle:
input "Длина: ", a
input "Ширина: ", b
print "Площадь прямоугольника: " + (a*b)
return
triangle:
input "Первая сторона: ", a
input "Вторая сторона: ", b
input "Третья сторона: ", c
p = (a+b+c) / 2
s = sqrt(p * (p-a) * (p-b) * (p-c))
print "Площадь треугольника: " + s
return
Написать программу вычисляющую площадь прямоугольника с клавиатуры вводятся два дейцстительных числа со стороны прямоугольника необходимо вычислить его площадь и вывести на экран. Вывод должен быть отформативован следующим образом под число отвдится 10 знаков а под вещественную часть - 3
Вычислить площадь и периметр квадрата со стороной а,площадь и периметр прямоугольника со сторонами b и с
вычислить площадь и периметр квадрата со стороной а, площадь и периметр прямоугольника со сторонами.
Вычислить периметр и площадь прямоугольника по известным сторонам
Создание модуля, содержащий процедуры и/или функции: - периметр и площадь прямоугольника по.
Вычислить площадь прямоугольника по введенным в диалоге двум сторонам
Помогите пожалуйста, очень нужно, заранее благодарю! Линейные алгоритмы 2. Составить программу.
Найти периметр и площадь прямоугольника
Описать процедуру RectPS(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника.
Решение
Определить длину диагонали и площадь прямоугольника, вписанного в круг радиусом R
Визначити довжину діагоналі і площу прямокутника, вписаного в коло радіусом R, якщо відношення.
Описать процедуру RectPS(a,b,S), вычисляющую площадь S прямоугольника со сторонами a и b (a и b — входные, S
Описать процедуру RectPS(a,b,S), вычисляющую площадь S прямоугольника со сторонами a и b (a и b —.
Найти площадь прямоугольника, ширина которого в два раза меньше длины
Дан прямоугольник ширина которого в два раза меньше длины. Найти площадь прямоугольника.
Помогите пожалуйста выполнить задание по информатике:напишите программу на языке Pascal, которая будет находить периметр прямоугольника, пронумеруйте строки программы. Ничего не понимаю в этом. Заранее спасибо.
Вычисление площади прямоугольника
В декартовой системе координат даны координаты 4-х точек, которые являются вершинами.
По известной площади прямоугольника найти его периметр.
По известной S прямоугольника найти его Р если ширина в 1,5 раза меньше длинны
Вычисление периметра и площади прямоугольника, через данные из файла
Помогите написать программу вычисления периметра и площади прямоугольника, через данные из файла и.
Вычислить площади трех геометрических фигур : прямоугольника,треугольника, круга
вычислить площади трех геометрических фигур : прямоугольника,треугольника, круга
Решение
Добавлено через 2 минуты
Когда набираете программу в паскале, номера строк ставить не нужно!
Вместо типа real для переменных a и b можно использовать тип integer, если, конечно, стороны прямоугольника будут целыми числами.
Как-то так.
Вычислить площадь прямоугольника, используя формулу Герона для вычисления площади треугольника
помогите ПОЖАЛУЙСТА. ФУНКЦИИ; 1,Даны длины сторон прямоугольника а и в и длина.
подпрограмма для нахождения площади треугольника
Составить подпрограмму для нахождения площади треугольника,заданного координатами его вершин.
Составить программу для нахождения площади кольца
Составить программу для нахождения площади кольца, внешний радиус которого R1, внутренний - R2.
Составить функцию нахождения площади треугольника, по двум сторонам и углу между ними.
Составить функцию нахождения площади треугольника, по двум сторонам и углу между ними. С помощью.
Сейчас ты разберешься, как создавать простые (и при этом – вполне рабочие и полезные)программы на языке Pascal. Всех делов – минут на 20. Засекай:)
Ты уже чётко понимаешь, что программа – это набор понятных компьютеру команд. Комп последовательно, одну за другой послушно пытается выполнять все команды, которые ему подсовывает программист (ты то есть).
Линейная программа – самая простая. Команды в ней идут одна за другой. В нашей жизни таких линейных алгоритмов полным полно. Например, алгоритм открывания двери:
- вставить ключ в замочную скважину
- повернуть 2 раза против часовой стрелки
- толкнуть дверь
Команды нужно выполнять друг за другом и в правильной последовательности. Если поменять команды местами (нарушить последовательность) или пытаться выполнять команды одновременно, то результат достигнут не будет.
Итак, посмотри для начала, как будет выглядеть программа для вычисления площади прямоугольника.
Структура паскаль-программы
1.Заголовок
Первая строка – заголовок программы. Название программы указывается после служебного слова Program.
2.Блок определения переменных (блок Var)
Var – начало блока определения переменных. Здесь указывают 2 вещи:
- имена переменных
- через двоеточие указывается тип используемых переменных
3.Основной блок
Между служебными словами Begin и End. располагается как раз сама программа. Сама программа – последовательность команд, которые должен выполнять компьютер.
Типы данных
byte | 0..255 | 1 байт |
word | 0..65538 | 2 байта |
integer | -32768..32767 | 2 байта |
real | дробные числа | 6 байт |
Команды чтения/записи
Writeln – приказ вывести на экран заключенную в скобки информацию
Readln – ожидает ввода с клавиатуры информации и заности введенную с клавиатуры информацию в переменную с соответствующим именем.
треугольника по данным трем сторонам,
прямоугольника по данным ширине и высоте,
круга по заданному радиусу.
Длины сторон и радиус вводятся пользователем.
Площади и периметры фигур можно найти по следующим формулам.
Периметр треугольника: P = a + b + c
Площадь треугольника: S = √(p(p-a)(p-b)(p-c)), где p = P/2
Периметр прямоугольника: P = 2(a + b)
Площадь прямоугольника: S = ab
Периметр круга: P = 2πr
Площадь круга: S = πr 2
Pascal
вычислить площадь фигуры паскаль
Язык Си
В библиотеке math.h нет константы числа π.
При компиляции с помощью gcc необходимо в конце команды указать ключ -lm (из-за math.h).
Python
вычислить площадь фигуры Python
КуМир
Basic-256
def P_triangle(a, b, c):
return a+b+c
def S_triangle(a, b, c):
p = P_triangle(a, b, c)/2
return sqrt(p*(p-a)*(p-b)*(p-c))
def P_rect(a, b):
return 2*(a+b)
def S_recr(a, b):
return a*b
def P_circle(R):
return 2*pi*R
def S_circle(R):
return pi*R**2
там я с другого задания зацепил)))
вычислить площадь фигуры паскаль
var
a,b,c: word;
w,h: word;
r: word;
P,S: real;
begin
readln(a,b,c);
P := (a + b + c) / 2;
S := sqrt(P * (P - a) * (P - b) * (P - c));
writeln('P=',a+b+c,'; S=',S:5:2);
readln(r);
P := 2 * pi * r;
S := pi * r * r;
writeln('P=',P:5:2,'; S=',S:5:2);
end.
5 3 5
P=13; S= 7.15
3 9
P=24; S=27
5
P=31.42; S=78.54
main() int a,b,c;
float p,S;
printf("Длины сторон треугольника: ");
scanf("%d%d%d", &a,&b,&c);
p = (a+b+c)/2;
S = sqrt(p*(p-a)*(p-b)*(p-c));
printf("P = %d; S = %.2f\n\n", (a+b+c), S);
printf("Ширина и высота прямоугольника: ");
scanf("%d%d", &a,&b);
printf("P = %d; S = %d\n\n", (a+b)*2, a*b);
printf("Радиус круга: ");
scanf("%d", &a);
printf("P = %.2f; S = %.2f\n", 2*PI*a, PI*pow(a,2));
>
Длины сторон треугольника: 4 4 6
P = 14; S = 7.94
Ширина и высота прямоугольника: 2 5
P = 14; S = 10
Радиус круга: 3
P = 18.85; S = 28.27
В библиотеке math.h нет константы числа π.
При компиляции с помощью gcc необходимо в конце команды указать ключ -lm (из-за math.h).
вычислить площадь фигуры Python
print("Введите длины сторон треугольника: ")
a = int(input("a b c P=%d; S=%.2f" % (a+b+c, s))
print("Введите длины сторон прямоугольника: ")
a = int(input("a b P=%d; S=%d" % ((a+b)*2, a*b))
print("Введите радиус круга: ")
r = int(input("r P=%.2f; S=%.2f" % (2*math.pi*r, math.pi*r**2))
Введите длины сторон треугольника:
a=2
b=4
c=3
P=9; S=2.90
Введите длины сторон прямоугольника:
a=6
b=7
P=26; S=42
Введите радиус круга:
r=3
P=18.85; S=28.27
алг фигуры
нач
цел a,b,c
ввод a, b, c
вещ p, S
p := (a+b+c)/2
S := sqrt(p*(p-a)*(p-b)*(p-c))
вывод "P=", p*2, "; S P=", (w+h)*2, "; S P=", p, "; S mainEntity" itemtype="https://schema.org/Question">
ТРЕУГОЛЬНИК
первая сторона: 5
вторая сторона: 5
третья сторона: 5
Периметр: 15
Площадь: 10.83
ПРЯМОУГОЛЬНИК
ширина: 5
высота: 5
Периметр: 20
Площадь: 25
Читайте также: