Циклы.

@Тяжелый случй · Регистрация: 26.10.2009

Author24 — интернет-сервис помощи студентам

Ребят!!!!!!!Помогите плииз!!!!!!!!!нужно вычислить у=1+1/2+1/3+1/4...+1/n для любого заданного n. нужно решать либо с помощью цикла с параметром,либо с предусловием,либо с постусловием.

И еще одна: вычислить у=х+ х в квадрате/2 + х в третьей/3 + х в четвертой/4....+ х в nой степени/n для любых заданных n и х

@meter · 26.10.2009, 22:30

Для 1 задания

Pascal

Program geto;
Var I,n:integer;
y: real;
Begin
Write('n=');
Readln(n);
y:=0;
For i:=1 to n do
y:=y+1/i;
Write('y=',y);
End.

Добавлено через 5 минут
2 задача

Pascal

Program geto;
Var I,n,x:integer;
y: real;
Begin
Write('n=');
Readln(n);
Write('x=');
Readln(x);
y:=0;
For i:=1 to n do
y:=y+(exp(i*ln(x)))/i;
Write('y=',y);
End.

@Тяжелый случй · 27.10.2009, 11:09 **[ТС]**

Cпасибо тебе огромное!!!!!!!!!!!!!!!!!!!!!!!!!!!!Очень выручил!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

@Тяжелый случй 0 / 0 / 0 Регистрация: 26.10.2009 Сообщений: 53
		1
	Циклы. 26.10.2009, 22:13. Показов 968. Ответов 2 Метки нет (Все метки) Ребят!!!!!!!Помогите плииз!!!!!!!!!нужно вычислить у=1+1/2+1/3+1/4...+1/n для любого заданного n. нужно решать либо с помощью цикла с параметром,либо с предусловием,либо с постусловием. И еще одна: вычислить у=х+ х в квадрате/2 + х в третьей/3 + х в четвертой/4....+ х в nой степени/n для любых заданных n и х 0

@Тяжелый случй 0 / 0 / 0 Регистрация: 26.10.2009 Сообщений: 53
	27.10.2009, 11:09 [ТС]	3
	Cпасибо тебе огромное!!!!!!!!!!!!!!!!!!!!!!!!!!!!Очень выручил!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 0

Циклы.

Решение