Вычисления по формуле.

@random7 · Регистрация: 18.09.2009

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

http://pic.ipicture.ru/uploads... y4VrSA.jpg

Никак не пойму как это реализовать, индексы с толку сбивают

@Puporev · 18.09.2009, 12:36

При желании можно создать массив, но это некрасиво и вряд ли соответствует заданию, поэтому можно сделать так.

Pascal

uses crt;
var a,b,c,y:real;
    m,i:integer;
begin
clrscr;
writeln('Введите три числа:');
readln(a,b,c);{y0,y1,y2}
repeat
write('Введите номер члена ряда > 2 m=');
readln(m);
until m>2;
i:=3;{три числа уже есть, считаем четвертое}
repeat
y:=sqr(sin(c))+sqr(cos(a));
a:=b;{первым стало второе}
b:=c;{вторым третье}
c:=y;{третье=вычисленному}
i:=i+1;{следующее число}
until i>m;
write('Ym=',y:0:5);
readln
end.

@random7 1 / 1 / 0 Регистрация: 18.09.2009 Сообщений: 24
		1
	Вычисления по формуле. 18.09.2009, 12:03. Показов 1064. Ответов 1 Метки нет (Все метки) http://pic.ipicture.ru/uploads... y4VrSA.jpg Никак не пойму как это реализовать, индексы с толку сбивают 0

	18.09.2009, 12:36

Вычисления по формуле.

Решение