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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 02.06.2012, 14:09   #11
odinchik
 
Регистрация: 06.06.2010
Адрес: Красноярск
Сообщений: 7
Репутация: 10

icq: 482970366
По умолчанию

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

Цитата:
вам не кажется, что вы не совсем правы?
Кажется, но задание автора я точно не знал когда отвечал, и уверен что и автор в тот момент его толком не знала, потому и ответил согласно прикрепленному файлу.
Цитата:
где моя губозакаточная машинка?
Насчет текстовиков я написал ответ.
Насчет типизированных файлов тебе нужно почитать про инструкцию 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
Репутация: 193

icq: 5438392
По умолчанию

Сделать запрос при запуске программы, какой файл будет использоваться, на основании ответа выбрать алгоритм (через 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
Репутация: 10

icq: 482970366
По умолчанию

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


08:28.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.