Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Файлы и записи

Автор: TRIUM 23.01.2007 12:23

Пожалуйста, не закрывайте мою тему, мне очень срочно нужны эти программы.

1. const n=300;
type запись=record ключ:integer;
тело:array [1.99] of `a`..`z`
end;
таблица=array [1..n] of запись;
Считая, что в таблице записи имеют различные ключи, опи-
сать процедуру упор(Т), упорядочивающую записи таблицы Т
по возрастанию их ключей.

2. Исходный файл содержит целые числа, записанные словами. Слова записаны прописными русскими буквами и отделены друг от друга пробелом(запятой). Новое число записано с новой строки. В файле содержатся числа в диапазоне от 1 до 10. Необходимо определить сумму этих чисел и записать в выходной файл в том же виде.

Автор: мисс_граффити 23.01.2007 16:39

1. берешь любой алгоритм сортировки (поиск+FAQ) и... в чем проблема?
2. Создай таблицу соответствия чисел и строк-их названий... И напиши ф-цию, возвращающую по строке цифру (число).

Автор: volvo 23.01.2007 17:49

Цитата
в чем проблема?
В том, что записи между собой нельзя сравнивать так же просто, как числа. Для этого надо написать дополнительную функцию...

TRIUM, вот тут показано, КАК ее написать и вызывать: http://forum.pascal.net.ru/index.php?s=&showtopic=2401&view=findpost&p=20401

Автор: мисс_граффити 23.01.2007 22:25

записи - нет. но integer'ы можно.
насколько я вижу:

Цитата
ключ:integer;

...упорядочивающую записи таблицы Т
по возрастанию их ключей.

Автор: TRIUM 25.01.2007 17:53

Всем спасибо, все получилось.