uses crt;
var
a:real;
procedure TrianglePS(l:real);
var
s,p:real;
begin
s:=l*l*(sqrt(3)/4);
p:=3*l;
writeln('Площадь равна ',s:3:3);
writeln('Периметр равен ',p:3:3);
end;
begin
clrscr;
write('введите сторону равностороннего треугольника ');
readln(a);
TrianglePS(a);
textcolor(10);
write('программа работу закончила,нажмите ENTER');
readln;
end.
Похожие записи/страницы:
- Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей…
- Вычисление площади кольца — Pascal(Паскаль)
- Нахождение периметра и площади прямоугольного треугольника Pascal(Паскаль)
- Даны координаты трех вершин треугольника: (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь, используя формулу…
- Заданы координаты трех вершин треугольника (x1,y1), (x2,y2),(x3,y3). Найти его периметр и площадь — Pascal(Паскаль)
- Задана запись, имеющая три поля: первое – первая сторона треугольника, второе –вторая сторона треугольника, третье –…
- Дана сторона равностороннего треугольника. найти площадь этого треугольника, его Высоту, радиусы вписанной и описанной…
- Найти площадь и периметр прямоугольника с катетами а и б — Pascal(Паскаль)
Здравствуйте!!! Прошу помочь с решением в Паскале!!! 
1. «Программирование алгоритмов линейной структуры»:
1.1. Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей.
1.2. Дана длина окружности. Найти площадь круга, ограниченного этой окружностью. В качестве значения Pi использовать 3.14.
2. «Условные операторы»:
2.1. Значения переменных X, Y, Z поменять местами так, чтобы они оказались упорядоченными по убыванию.
2.2. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения.
3. 1. Локатор ориентирован на одну из сторон света («С» — север, «З» — запад, «Ю» — юг, «В» — восток) и может принимать три цифровые команды: 1 — поворот налево, –1 — поворот направо, 2 — поворот на 180 градусов. Дан символ C — исходная ориентация локатора и числа N1 и N2 — две посланные ему команды. Вывести ориентацию локатора после выполнения данных команд.
3.2. Дан номер месяца (1 — январь, 2 — февраль, …). Вывести название соответствующего времени года («зима», «весна» и т.д.).
4. «Программирование алгоритмов циклической структуры»
4.1. Дано вещественное число A (> 1). Вывести наибольшее из целых чисел N, для которых сумма 1 + 1/2 + … + 1/N будет меньше A, и саму эту сумму.
4.2. Дано целое число N (> 0). Вывести произведение 1•2•…•N. Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и выводить его как вещественное число.
5. «Программирование алгоритмов циклической структуры»
5.1. Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел.
5.2. Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество K таких чисел.
дана сторона равностороннего треугольника.найти площадь треугольника
паскаль
Комментарии
var a,s,h,r1,R:real;<br />begin<br />readln(a);
нужно найти только площадь треугольника?
Светило науки — 496 ответов — 3298 раз оказано помощи
var
a: integer;
s: real;
begin
readln(a);
s:=(sqr(a)*sqrt(3))/4;
writeln(s);
end.
Светило науки — 553134 ответа — 388270 раз оказано помощи
Площадь равностороннего треугольника через его сторону определяется по известной формуле:
// PascalABC.NET 3.0, сборка 1128
var
a:real;
begin
Write(‘Введите длину стороны треугольника: ‘); Read(a);
Writeln(‘Площадь треугольника равна ‘,sqrt(3)/4*sqr(a):0:3)
end.
Тестовое решение:
Введите длину стороны треугольника: 3.18
Площадь треугольника равна 4.379
Прежде всего — формулы. Пусть а — длина стороны, тогда
var
a, r, rr, h, s: real;
begin
Write(‘Введите длину стороны треугольника: ‘);Readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln(‘Радиус вписанной окружности ‘, r);
Writeln(‘Радиус описанной окружности ‘, rr);
Writeln(‘Высота треугольника ‘, h);
Writeln(‘Площадь треугольника ‘, s);
end.
Тестовое решение:
Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219
- Про сайт
- Контакты
- |
- .UA
- .RU
Содержание
- Решение C++
- Решение Pascal
- I. Основные приемы программирования
- 1. Арифметика действительных чисел. Вычисление по формулам. (1-32)
- 2. Разветвления (33-60)
- 3. Простейшая целочисленная арифметика (61-76)
- 4. Простейшие циклы (77-119)
- 6. Пошаговый ввод данных и вывод результатов
- 7. Сочетания цикла и разветвления (178-250)
- 8. Обработка последовательностей символов (251-270)
- 10. Вложенные циклы (317-366)
- 11. Вложенные циклы в матричных задачах. (367-423)
- 12. Использование процедур (424-470)
- 13. Файлы (471-530)
- 14. Вычисления с хранением последовательности значений (531-553)
- II. Задачи по темам
- 20. Преобразование и построение матриц (873-696)
- 21. Матричная алгебра
- 27. Тексты (802-821)
- 30. Графика (843-910)
Свежие решения
- Решение задачи с Абрамова №429
- Решение задачи с Абрамова №387
- Решение задачи с Абрамова №136н
- Решение задачи с Абрамова №217
- Решение задачи с Абрамова №47
abramov.org.ua © 2012-2023.
Все права защищены.