Сформировать файл, компонентами которого являются действительные значения, вычисляемые по формуле

@4get · Регистрация: 10.04.2020

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

Сформируйте файл, компонентами которого являются действительные значения, вычисляемые по формуле

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> a_i=(i+1)^2\sin \frac{i\pi }{10}\ ,<br />$

где i-номер компонента файла.

Определите, сколько в полученном файле содержится отрицательных значений.

@Cyborg Drone · 29.06.2020, 23:19

Pascal

const
  n = 15; //количество компонентов в файле
  fname = 'file.dat'; //имя файла
var
  f: file of real; //файл
  t: real;
  i, k: integer; //счётчик, количество отрицательных
begin
  assign(f, fname);
  rewrite(f);
  k := 0;
  writeln('Файл:');
  for i := 0 to n - 1 do
    begin
      t := sqr(i + 1) * sin(i * pi / 10);
      write(f, t);
      writeln(t:20:15);
      if t < 0 then inc(k)
    end;
  close(f);
  writeln('Количество отрицательных компонент: ', k);
  readln
end.

@4get 0 / 0 / 0 Регистрация: 10.04.2020 Сообщений: 13
		1
	Сформировать файл, компонентами которого являются действительные значения, вычисляемые по формуле 29.06.2020, 18:36. Показов 921. Ответов 1 Метки нет (Все метки) Сформируйте файл, компонентами которого являются действительные значения, вычисляемые по формуле $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> a_i=(i+1)^2\sin \frac{i\pi }{10}\ ,<br />$ где i-номер компонента файла. Определите, сколько в полученном файле содержится отрицательных значений. 0

	29.06.2020, 23:19