Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Turbo Pascal]Расчет по формуле

Автор: Hellride 6.12.2009, 23:57

http://cs4567.vkontakte.ru/u51873881/99426825/x_edb553f5.jpg

Автор: DevilHell 7.12.2009, 11:00

это не сложно

Код


получаем Х
 for i:=1 to 20 do 
  begin
    s:=s*x;
      case i of {забыл как правильно пишется :=(}
        5:a:=s;     {Х в 5}
        10:b:=s;   {Х в 10}
        15:c:=s;    {Х в 15}
        20:d:=s;    {Х в 20}
      end;
  end;
Расчитываем Y по формуле подставив значения

Мне пришло в голову такое. Может есть и более удачный вариант....