Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 02.06.2012, 14:09   #11
odinchik
 
Регистрация: 06.06.2010
Сообщений: 7
По умолчанию

ну в задании конкретно не было сказано.
в идеале, я хотела бы понять как делать, если файл текстовый и если типизированный.
где моя губозакаточная машинка?
odinchik вне форума Ответить с цитированием
Старый 02.06.2012, 14:14   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Цитата:
вам не кажется, что вы не совсем правы?
Кажется, но задание автора я точно не знал когда отвечал, и уверен что и автор в тот момент его толком не знала, потому и ответил согласно прикрепленному файлу.
Цитата:
где моя губозакаточная машинка?
Насчет текстовиков я написал ответ.
Насчет типизированных файлов тебе нужно почитать про инструкцию file of <тип>
К примеру:
Код:
var f:file of tabl;
begin assign(f,'file')reset(f);

while not eof(f) do begin
 read(f,ved[k]); if ved[k].price<ved[min].price then min:=k;
 inc(k);
end;

close(f);
end;
Это в случае с типизацией файла.
I'm learning to live...

Последний раз редактировалось Stilet; 02.06.2012 в 14:17.
Stilet вне форума Ответить с цитированием
Старый 02.06.2012, 14:15   #13
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Сделать запрос при запуске программы, какой файл будет использоваться, на основании ответа выбрать алгоритм (через if).
Например:
Код:
writeln("Введите тип файла: 1 - текстовый, 2 - типизированный");
readln(file_type);
if (file_type = 1) then
*алгоритм для текстового*
else
*алгоритм для типизированного*
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 02.06.2012, 14:37   #14
odinchik
 
Регистрация: 06.06.2010
Сообщений: 7
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Кажется, но задание автора я точно не знал когда отвечал, и уверен что и автор в тот момент его толком не знала, потому и ответил согласно прикрепленному файлу.

Насчет текстовиков я написал ответ.
Насчет типизированных файлов тебе нужно почитать про инструкцию file of <тип>
К примеру:
Код:
var f:file of tabl;
begin assign(f,'file')reset(f);

while not eof(f) do begin
 read(f,ved[k]); if ved[k].price<ved[min].price then min:=k;
 inc(k);
end;

close(f);
end;
Это в случае с типизацией файла.

вот, это как раз больше всего похоже на то,что должно получиться)
odinchik вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль.Записи (RECORD). Alex20 Помощь студентам 7 27.11.2011 13:28
Передача записи (Record) с данными посети (Indy) Archangel_x Работа с сетью в Delphi 3 06.06.2011 11:38
Записи(record) mexx1337 Паскаль, Turbo Pascal, PascalABC.NET 3 20.05.2011 05:41
Записи (record) mexx1337 Паскаль, Turbo Pascal, PascalABC.NET 1 12.05.2011 23:43
Сложная структура записи (record+array) Alex Cones Общие вопросы Delphi 20 20.10.2009 19:10


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS