Как используя очередь, написать процедуру или функцию, которая заменяет все отрицательные элементы файла на их абсолютные значения?

@Deathless · Регистрация: 17.10.2013

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

@poli-smen · 02.01.2014, 18:30

Сообщение от Deathless

Как используя очередь, написать процедуру или функцию, которая заменяет все отрицательные элементы файла на их абсолютные значения?

Не пойму каким боком для этой задачи нужна очередь?

@Deathless · 02.01.2014, 18:43 **[ТС]**

Ну вот нужно... Честно... Я просто сам не знаю как написать.. Вот и прошу помощи..

@poli-smen · 03.01.2014, 10:09

Сообщение от Deathless

Ну вот нужно... Честно... Я просто сам не знаю как написать.. Вот и прошу помощи..

Да я о том что очередь здесь и прицепить-то некуда. Эта задача решается следующим образом: Открываем исходный файл на чтение и создаём новый файл открывая его на запись. Далее в цикле считываем из первого файла очередное значение, вычисляем абсолютное значение от него и записываем во второй файл. В конце закрываем оба файла. Всё. Зачем здесь очередь?

@Deathless · 03.01.2014, 12:27 **[ТС]**

Извини за наглость, но ты не мог бы пожалуйста хоть как-то помочь написать эту программу? Очень нужно

@poli-smen · 03.01.2014, 15:49

Сообщение от Deathless

Извини за наглость, но ты не мог бы пожалуйста хоть как-то помочь написать эту программу? Очень нужно

По тому алгоритму что я выше описал примерно так:

Pascal

var
  File1, File2: TextFile;
  f: Real;
begin
  AssignFile(File1, 'D:\test\ИсходныйФайл.txt');
  Reset(File1);
  
  AssignFile(File2, 'D:\test\ВыходнойФайл.txt');
  Rewrite(File2);
 
  while not Eof(File1) do
  begin
    Read(File1, f);
    Writeln(File2, Abs(f):10:10);
  end;
 
  CloseFile(File2);
  CloseFile(File1);
end;

Пример исходного текстового файла:

10.3 -20.43 -543.0
56.7 97 534.5

В выходном файле получаем:

10.3000000000
20.4300000000
543.0000000000
56.7000000000
97.0000000000
534.5000000000

@Deathless 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 49
		1
	Как используя очередь, написать процедуру или функцию, которая заменяет все отрицательные элементы файла на их абсолютные значения? 02.01.2014, 02:39. Показов 1661. Ответов 5 Метки нет (Все метки) Как используя очередь, написать процедуру или функцию, которая заменяет все отрицательные элементы файла на их абсолютные значения? 0

@poli-smen 1 / 1 / 0 Регистрация: 14.10.2012 Сообщений: 6
	02.01.2014, 18:30	2
	Сообщение от Deathless Как используя очередь, написать процедуру или функцию, которая заменяет все отрицательные элементы файла на их абсолютные значения? Не пойму каким боком для этой задачи нужна очередь? 0

@Deathless 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 49
	02.01.2014, 18:43 [ТС]	3
	Ну вот нужно... Честно... Я просто сам не знаю как написать.. Вот и прошу помощи.. 0

@poli-smen 1 / 1 / 0 Регистрация: 14.10.2012 Сообщений: 6
	03.01.2014, 10:09	4
	Сообщение от Deathless Ну вот нужно... Честно... Я просто сам не знаю как написать.. Вот и прошу помощи.. Да я о том что очередь здесь и прицепить-то некуда. Эта задача решается следующим образом: Открываем исходный файл на чтение и создаём новый файл открывая его на запись. Далее в цикле считываем из первого файла очередное значение, вычисляем абсолютное значение от него и записываем во второй файл. В конце закрываем оба файла. Всё. Зачем здесь очередь? 0

@Deathless 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 49
	03.01.2014, 12:27 [ТС]	5
	Извини за наглость, но ты не мог бы пожалуйста хоть как-то помочь написать эту программу? Очень нужно 0

	03.01.2014, 15:49

Опции темы