Создать массив, содержащий действительные числа из текстового файла.

@yutochka123 · Регистрация: 14.11.2014

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

Помогите!!! Очень срочно нужно!!!
4. Дан текстовый файл input.txt, содержащий действительные числа (количество чисел в файле не превышает 1000). Создать массив, содержащий компоненты этого файла. Вывести содержимое массива на экран.

Заранее большое спасибо!!!

@ZX Spectrum-128 · 21.09.2015, 19:03

Pascal

var
  a:array[1..1000] of real;
  x:real;
  i:integer;
  f:text;
begin
  assign(f,'1000.txt');
  reset(f);
  i:=1;
  while not eof(f) do
    begin
      readln(f,x);
      a[i]:=x;
      writeln(a[i]:16:4);
      inc(i);
    end;
  close(f);
end.

@yutochka123 · 22.09.2015, 17:35 **[ТС]**

Спасибо большое, а не подскажите, как теперь эту задачу преобразовать, чтобы все числа были отсортированы по возрастанию. И записать измененный массив в файл output.txt

@yutochka123 0 / 0 / 0 Регистрация: 14.11.2014 Сообщений: 55
		1
	Создать массив, содержащий действительные числа из текстового файла. 21.09.2015, 18:45. Показов 1101. Ответов 2 Метки нет (Все метки) Помогите!!! Очень срочно нужно!!! 4. Дан текстовый файл input.txt, содержащий действительные числа (количество чисел в файле не превышает 1000). Создать массив, содержащий компоненты этого файла. Вывести содержимое массива на экран. Заранее большое спасибо!!! 0

@yutochka123 0 / 0 / 0 Регистрация: 14.11.2014 Сообщений: 55
	22.09.2015, 17:35 [ТС]	3
	Спасибо большое, а не подскажите, как теперь эту задачу преобразовать, чтобы все числа были отсортированы по возрастанию. И записать измененный массив в файл output.txt 0

Опции темы

Создать массив, содержащий действительные числа из текстового файла.

Решение