|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.06.2012, 10:35 | #1 |
Регистрация: 06.06.2010
Сообщений: 7
|
работа с файлом.информация по турфирме.Записи(record)
в файле находится информация по турфирме: страна, отель, стоимость путевки,звездность. этот файл я сделала.
задания: 1. вывести страну и отель, где отели с 3 звездами. 2. найти страну и отель с минимальной стоимостью путевки. и вывести все нужно в другой файл я прочитала всю теорию по работе с файлами в Паскале, но на практике ничего не получается. полнейший блонд. вот что я смогла родить Код:
input.txt Последний раз редактировалось Stilet; 02.06.2012 в 11:17. |
02.06.2012, 11:28 | #2 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Ну первое, оно же главное. Ваш input.txt - не типизированный, а текстовый файл. Это значит, что придется "разбирать" каждую считанную строку.
Алгоритм: Код:
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
02.06.2012, 11:29 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,792
|
Считывание:
Код:
k:integer - просто счетчик min:integer - номер минимального А дальше ved[min] даст тебе страну с минимальной стоимостью. Смысл ясен?
I'm learning to live...
|
02.06.2012, 11:55 | #4 |
Регистрация: 06.06.2010
Сообщений: 7
|
спасибо за отклики!!! вы потрясающие люди!
нет, я такой дуб. вот что я написала... type tabl=record country:string[10]; name:string[14]; price:integer; stars:integer; end; var ved: array [1..100] of tabl; f,f1:text; k:integer; min:integer; i:integer; c:char; begin assign (f, 'H:\input.txt'); assign (f1, 'H:\output.txt'); reset (f); rewrite (f1); что дальше? "i:=pos(s,',');ved[k].country:=copy(s,1,i);delete(s,1,i) ; i:=pos(s,',');ved[k].name:=copy(s,1,i);delete(s,1,i); i:=pos(s,',');ved[k].price:=copy(s,1,i);delete(s,1,i); i:=Length(s);ved[k].stars:=copy(s,1,i); if ved[k].price<ved[min].price then min:=k; inc(k); end;" это я вообще не понимаю, я в Паскале мало соображаю.вроде когда теорию читаю-все ясно. Последний раз редактировалось odinchik; 02.06.2012 в 12:04. |
02.06.2012, 12:27 | #5 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Ну я бы сделал тип элемента min не integer, а tabl.
Прочитайте мануал по функции pos. В текстовом виде стока Код:
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
02.06.2012, 13:08 | #6 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,285
|
Vanta11a, Stilet, вам не кажется, что вы не совсем правы? Вместо того, чтобы говорить, как распарсить текстовый файл, сказали бы, что обычно в таких заданиях сам файл должен быть файлом записей. Тогда его нужно создавать не в блокноте, а в том же паскале программно.
Я не говорю, что вы написали что-то неправильное, но преподаватель вполне может не засчитать такое решение. Задача стоит в получении навыков работы с типизированными файлами, а не с текстовыми
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
02.06.2012, 13:15 | #7 |
Регистрация: 06.06.2010
Сообщений: 7
|
BDA, привет!)
по заданию я сама создаю текстовый файл, и из него извлекаю информацию для решения двух задач. а выполненные задачи должны сохраняться в другой блокнотовский файл, который создает сама программка.) |
02.06.2012, 13:37 | #8 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,285
|
odinchik, то есть вы на 100% уверены, что файл должен быть текстовым, а не файлом записей?
Я не совсем точно выразился. Файл записей будете заполнять все равно вы, но только с помощью программы на паскале.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
02.06.2012, 13:41 | #9 |
Регистрация: 06.06.2010
Сообщений: 7
|
BDA, да, Вы наверное правы.
про текстовый на самом деле не уверена, может быть и типизированным) |
02.06.2012, 13:43 | #10 |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Типизированный и нетипизированный файл - две большие разницы, как говорят в Одессе.
Хотя может и не такие уж большие. Определитесь, какой Вам надо.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль.Записи (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 |