Сформировать файл из последовательности

@xenonsq · Регистрация: 18.10.2017

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

Сформировать файл из последовательности (-1)^k*0,3^k/(k+1). Найти квадрат произведения компонентов файла.

@Joy · 13.11.2017, 06:54

Pascal

var
  f:file of real;
  k:integer;
  s,t:real;
begin
  write('k=');readln(k);
  assign(f,'posl.dat');
  rewrite(f);
  t:=ln(0.3);
  for k:=1 to k do 
     if odd(k) then write(f,-exp(k/(k+1)*t)) else write(f,exp(k/(k+1)*t));
  close(f);
  reset(f);
  s:=1.0;
  while not eof(f) do begin
    read(f,t);
    s:=s*t;
  end;
  close(f);
  writeln('s=',s*s:0:8);
end.

@xenonsq 0 / 0 / 0 Регистрация: 18.10.2017 Сообщений: 13
		1
	Сформировать файл из последовательности 12.11.2017, 19:26. Показов 1580. Ответов 1 Метки нет (Все метки) Сформировать файл из последовательности (-1)^k*0,3^k/(k+1). Найти квадрат произведения компонентов файла. 0

	13.11.2017, 06:54

Сформировать файл из последовательности

Решение