Pascal - комментарии к программе

@Dadni · Регистрация: 21.12.2014

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

пожалуйста, помогите с коментариями, сам не успеваю написать, очень мало времени, еще надо готовиться к другим зачетам((

Pascal

var q,r,b,c,d,x0,x1,xn:real;
    n,i:integer;
begin
  writeln('Введите q,r,b,c,d,n');
  readln(q,r,b,c,d,n);
  x0:=c;
  x1:=d;
  xn:=q*x1+r*x0+b;
   for i:=3 to n do
    begin
      x0:= x1;
      x1:= xn;
      xn:=q*x1+r*x0+b;
    end;
   writeln('Результат = ',xn);
end.

Задача:
Пусть x₀ = c; x₁ = d; x_k = qx_k-1 + rx_k-2 + b; k = 2, 3, ..., n.
Даны действительные q, r, b, c, d, натуральное n>1.
Получить x_n

@JokeR.BY · 22.12.2014, 01:25

Pascal

var
    q, r, b, x0, x1, xn : Real; //переменные
    n, i : Integer; //количество шагов и счётчик
begin
    Write('Введите q, r, b, c, d, n:');
    ReadLn(q, r, b, x0, x1, n); //ввод данных
    xn := q * x1 + r * x0 + b; //считаем x3
    for i := 3 to n do //пробегаемся циклом от 3 до n (0, 1, 2 уже есть)
    begin
        x0 := x1; //x[k-2] - это старый x[k-1]
        x1 := xn; //x[k-1] -> x[k]
        xn := q * x1 + r * x0 + b; //исходя из этого считаем новый x[n]
    end;
    WriteLn('Результат = ', xn);
end.

@Taatshi · 22.12.2014, 11:22

Dadni, запрещено размещать задание в виде картинки - предупреждение.

@Taatshi Почетный модератор 12271 / 5336 / 268 Регистрация: 05.04.2011 Сообщений: 14,086 Записей в блоге: 2
	22.12.2014, 11:22	3
	Dadni, запрещено размещать задание в виде картинки - предупреждение. 0