Вычислить значение выражения

@Nastik23 · Регистрация: 25.09.2012

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

помогите пожалуйста написать код))))
Очень нужно)

@CodeR · 22.10.2012, 15:00

Pascal

Var V:array[1..100] of real;
    i,n:byte;
Begin
    v[1]:=0;v[2]:=0;
    v[3]:=1.5;
    Repeat 
     write('Введите n>=4: ');readln(n);
    Until n>=4;
    For i:=4 to n do
     V[i]:=((i+1)/(i*i+1))*v[i-1]-v[i-2]*v[i-3];
    writeln('V[n] = ',V[n]:0:6);
End.

@Nastik23 0 / 0 / 0 Регистрация: 25.09.2012 Сообщений: 54
		1
	Вычислить значение выражения 22.10.2012, 01:30. Показов 989. Ответов 1 Метки нет (Все метки) помогите пожалуйста написать код)))) Очень нужно) Миниатюры 0

	22.10.2012, 15:00

Опции темы

Вычислить значение выражения

Решение