0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 75
1

Создание программ вычисления арифметических выражений на языке Lazarus

06.10.2018, 13:42. Показов 1306. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задано правильное пирамиду. Ее основой является n-угольник (правильный многоугольник с n углами) со стороной а. Высоту задает значение h.
Для заданных значений n, a, h, которые однозначно определяют пирамиду, создать программу для вычисления указанных в вариантах задачи величин.
h=5. Обчислити S і φ .
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2018, 13:42
Ответы с готовыми решениями:

Создание программ на языке Lazarus
Почему выбивает ошибка?

Создание программ на языке Lazarus
Дан текст программы, как сделать чтобы был дом и из нее виижала машина? var Form1: TForm1; ...

Создание программ на языке Lazarus
Разработать программу, которая на форме нарисует следующую фигуру: <<<<<<<<<<<<<<<<< Кроме...

Создание программы вычисления арифметических выражений
Необходимо составить программу вычисления для заданных значений x, y, z арифметического выражения. ...

5
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
06.10.2018, 21:43 2
Почитайте геометрию, напишите формулы. Если не сможете написать собственно программу, поможем.
0
Модератор
9238 / 6021 / 2374
Регистрация: 21.01.2014
Сообщений: 25,741
Записей в блоге: 3
07.10.2018, 05:23 3
Цитата Сообщение от МарияСтрук Посмотреть сообщение
Задано правильное пирамиду
Мда... Сложные вещи Вам задают
 Комментарий модератора 
Цитата Сообщение от МарияСтрук Посмотреть сообщение
h=5. Обчислити S і φ .
Не "Обчислити", в вычислить! Это неоднократное нарушение п. 1.4 Правил форума!. Официальное предупреждение!

Что такое S, i, φ? И почему задана только h, где a и n?
0
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 75
09.10.2018, 14:58  [ТС] 4
Где здесь ошибка?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var
  n,h,a,f,b,S,S1,S2,R:real;
 
begin
    n:=StrToFloat(Edit1.Text);
  h:=StrToFloat(Edit2.Text);
  a:=StrToFloat(Edit3.Text);
  R:=a/sqrt((5-sqrt(5))/2);
  b:=sqrt(sqr(h)+sqr(R));
  S1:=n/2*a*sqrt(sqr(h)+sqr(R)-sqr(a/2));
  S2:=n/2*a*sqrt(sqr(R)-sqr(a/2));
  S:=S1+S2;
  f:=arctan((R/b)/sqrt(1-sqr(R/b)));
  Label4.Caption:='Площа повної поверхні піраміди = '+FloatToStr(S);
  Label5.Caption:='Величина кута між ребром піраміди та висотою піраміди '+FloatToStr(f);
end;
 
end.
0
Модератор
9238 / 6021 / 2374
Регистрация: 21.01.2014
Сообщений: 25,741
Записей в блоге: 3
09.10.2018, 17:20 5
Цитата Сообщение от МарияСтрук Посмотреть сообщение
R:=a/sqrt((5-sqrt(5))/2);
Кто знает геометрию? Оно и вправду есть такая формула? Что-то мне мой склероз изменяет...
https://www.cyberforum.ru/cgi-bin/latex.cgi?R=\frac{a}{\sqrt{\frac{5-\sqrt{5}}{2}}}
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32830 / 21168 / 8147
Регистрация: 22.10.2011
Сообщений: 36,429
Записей в блоге: 8
09.10.2018, 20:24 6
Есть... Только не для n-угольника, а для правильного пятиугольника, так что здесь она никуда не годится.
0
09.10.2018, 20:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2018, 20:24
Помогаю со студенческими работами здесь

Создание программы вычисления арифметических выражений
Необходимо составить программу вычисления для заданных значений x, y, z арифметического выражения....

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

Составить программу вычисления арифметических выражений
Составить программу вычисления арифметических выражений: z=4.9siny+cos(cos(t)): t= 8.9x-tgb/b3sin...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru