Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.10.2015, 21:27   #1
Ирина387
Новичок
Джуниор
 
Аватар для Ирина387
 
Регистрация: 04.10.2015
Сообщений: 1
По умолчанию Pascal|Составить алгоритм и программу для вычисления в цикле суммарного результата

Составить алгоритм и программу для вычисления в цикле суммарного результата. Найти сумму N правильных многоугольников: треугольника, квадрата, пятиугольника, ..., (N+2)-угольника, вычисляемых по формуле P=(k*A^2)/(4tg(Pi/k)), где k-число сторон; A-длина стороны, одинаковая для всех многоугольников.
Ирина387 вне форума Ответить с цитированием
Старый 04.10.2015, 21:36   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код ввода данных для формулы состряпать сможешь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 05.10.2015, 05:53   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var k,N:integer;
    A,P:real;
begin
   Write('N = ');
   Readln(N);
   Write('Dlina storon = ');
   Readln(A);
   P:=0;
   For k:=3 to N+2 do
      P:=P+k*A*A/(4*tan(Pi/k));
   Writeln(P:5:8);
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить алгоритм и программу для вычисления в цикле суммарного результата. Марина357 Помощь студентам 2 28.09.2015 16:08
Составить программу для вычисления на Pascal replaced Помощь студентам 1 19.01.2014 01:14
Составить программу на языке Turbo Pascal 7.0 вычисления значения интеграла на интервале [a, b] для функции, заданной графически AZelensky Помощь студентам 28 29.11.2013 23:01
Составить программу вычисления выражения и выведения полученного результата на экран.тема ФУНКЦИИ. coolbaba Общие вопросы Delphi 1 03.06.2010 03:31