Циклы в Паскале

[loloverg]

Ребят, Нужно срочно решить задачки c циклами в Паскале:

1. Составить программу вычисления значения функции на интервале, на котором она установлена, с заданным шагом изменения аргумента.
Требования к программе:
-пределы области определения функции и шаг изменения аргумента ввести оператором ввода;
-на печать вывести в виде таблицы пары чисел: (аргумент, значение функции).



2. Составить программу с использованием оператора цикла с условием:

Среди чисел 1, 1 +1 / 2, 1 +1 / 2 +1 / 3, ... Найти первое, больше а

3. Составить программу решения задачи:
Требования к программе:
-входные данные ввести оператором ввода;
-вывести на экран значения входных данных и окончательные результаты выполнения программы.

На сколько лет нужно положить в банк сумму Х денежных единиц, чтобы получить сумму N денежных единиц (N> X), если банк получает К% годовых.


Заранее спасибо....

[RUSt88]

могу выполнить за вознаграждение, обращайтесь

[Chudo4258]

2. Составить программу с использованием оператора цикла с условием: Среди чисел 1, 1 +1 / 2, 1 +1 / 2 +1 / 3, ... Найти первое, больше а

readln(a);
S:=1;
i:=1;
while S<=a do
 begin
  inc(i);
  S:=S+1/i;
 end;
Writeln(S);

[Chudo4258]

1.

это для заданного на твоей задаче.

t:=0;
while t<=2 do
 begin
  if t<= 0.5 then v:=t+cos(t)
                  else v:=ArcTan(t+ln(t)); //не помню как в паскале правильно записыется арктангенс
  writeln(t,'   ',v);
  t:=t+0.3;
 end;

[Grag]

ArcTan(X:real):real;

[loloverg]

Спасибо ребята, еще бы 3ю и было бы вообще кул ....жду

[Chudo4258]

Сообщение от loloverg

Спасибо ребята, еще бы 3ю и было бы вообще кул ....жду

ну-ну, давай жди.