Чтение из массива и сортировка

RavenholM

Дата: Среда, 09.06.2010, 01:56 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 1

Репутация: 0

Замечания: 0%

Статус: Offline

Добрый вечер!
Буду очень признателен, если сайт не умер и вы мне поможете.

Задача.
Прочитать из файла массив записей из 15 элементов. Каждая запись содержит 3 поля: название валюты, курс (руб.), курс (коп.). Записать в новый файл массив, в котором записи отсортированы в порядке убывания курса валют. Чтение и запись массива осуществлять при помощи процедур.
Язык — Pascal.

Заранее благодарю.

Seqular

Дата: Среда, 30.06.2010, 18:59 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Эммм.. План действий таков:
Заводим массив записей на 15 элементов.
Запись имеет вид:

Code

item = record
valute: string[3]; // международное обозначение валюты (прм. USD, JPY, RUR)
course_rub: byte; // курс в рублях
course_kop: byte; // курс в коп
end;

Прежде чем считывать из файла, его нужно создать.. Ну допустим, он у нас уже есть.
Чтение из файла в массив производим в цикле обычным Read(f, _item).
Затем сортируем массив любым методом (напр. пузырьком), только нужно смотреть по 2 полям курса =)

Вот... Ну запись в другой файл - процедура Write(f2, _item) =)) в цикле.. Вот и все!

Поддерживаю также проект сообщество молодых сисадминов

		Среда, 08.01.2025
	Pascal 4 All