Помощь в Turbo Pascal
 

Парни шарящие в Turbo Pascal помогите пжалста !
Есть у меня хороший друг, который не может написать прогу в Turbo Pascal, может быть кто то может помочь написать ?
Вот скрин:

http://s61.radikal.ru/i173/0812/f5/ce5f2613b19b.jpg

Re: Помощь в Turbo Pascal
 

-=FuDo_Tao=-, Издевательство какое-то. Что, трудно взять методичку и запрограммировать ПРЯМЫЕ формулы?! Из принципа не буду писать ЭЛЕМЕНТАРНЕЙШИЕ вещи.

З.Ы. По поводу 4 задания - в паскале (как и в других языках программирования) есть только вычисление логарифма по отснованию 2. Поэтому необходимо применить формулу преобразования.

Рыба

Код:

---

Program <формулка>;

Var
  x,y,z,....:Real;
  f:Real;

Const
  <константка>=<значение>;

Begin
  ReadLn(x,y,z,....);
  f:=<формулка>;
  WriteLn(f)
End.

Вместо формулки может быть условие, где формулкой является признак разделения. Типа (x mod 5=0) and (y mod 5=0)...

---