 Текстовые файлы, Совершенно не понятно... |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Clerick |
 23.03.2006 18:07
Сообщение
#1
|
 студент..  Группа: Пользователи Сообщений: 287 Пол: Мужской Реальное имя: Дмитрий Репутация:  2   |
Дали новую тему, текстовые файлы. Давали студенты и никто из группы ничего не понял...
 А задачи нужно сдать завтра.  Помогите хоть с какими-нибудь двумя!!!1. Дан текстовый файл, содержащий целые числа. Найти • Арифметическое среднее чисел в файле; • Номер максимального элемента в файле; (решена) 2. Дан текстовый файл, содержащий строки. Найти самые короткие строки. (решена) 3. Даны два текстовых файла. Записать в третий только те строки, которые есть и в первом и во втором файлах. 4. Даны два файла А и В(тип элементов одинаковый). Поменять местами содержимое этих файлов. Использовать процедуру Rename не разрешается. Заранее спасибо!!!  Сообщение отредактировано: Clerick - 28.03.2006 13:23 -------------------- После дождя обязательно выглянет солнце)
|
   |
 
|
  |
Ответов
| hardcase |
26.03.2006 11:27
Сообщение
#2
|
 code warrior Группа: Пользователи Сообщений: 484 Пол: Мужской Реальное имя: Славен Репутация: 8 |
Коментарии добавил. (вроде там и комментировать-то нечего - чай не Win32 API)
BP7 не имею - я его ВООБЩЕ никогда не имел и в глаза только в школе видел пару раз. Вот такие мы сирые и необразованные. FPC - нету, да и собсна, он мне не нужен. TMT лежал где-то, но и он, скорее, как экспонат лежит. Думаю, скомпилироваться должно, я только не знаю, BP7 поддерживает динамические строки, или нет? Цитата(мисс_граффити @ 26.03.2006 9:07)  Возможно... хотя у меня делфи на Assign ругается - предпочитает AssignFile. есть у класса TPersistent метод Assign - вот и ругается делфи на него. Можно писать System.Assign(FileVariable, FileName); BP и TP это не откомпилируют 100 %, hardacase, тебе на кажется что раздел 32 битные компиляторы находится в другом месте ? Сообщение отредактировано: klem4 - 26.03.2006 11:47 -------------------- ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
|
|
|
|
Сообщений в этой теме
Clerick Текстовые файлы 23.03.2006 18:07
klem4 FAQ : Файлы + поиск по форуму, все решалось неодн... 23.03.2006 18:52
Clerick
FAQ : Файлы + поиск по форуму, все решалось неод... 23.03.2006 19:20 Ozzя
Если только в качестве примера :rolleyes:
cons... 24.03.2006 9:12 klem4 Держи первое, дабьше делай сам.
uses crt;
var
... 24.03.2006 9:14 Clerick
firts.txt :
1
2
7
0
5
Sr = 3.0
count = 5;
... 24.03.2006 15:13 Ozzя
Опечатка? текстовый?
Хм .. а я даже и не замети... 24.03.2006 9:18 Clerick Спасибо!!! И извиняюсь за ошибку!... 24.03.2006 14:48 Ozzя
Ты внутри цикла каждый раз уничтожаешь файл и со... 24.03.2006 15:31 Clerick
Вынеси за цикл:
Вынес и все равно файл пустой ос... 24.03.2006 15:44 Ozzя const
n=5;
m=5;
var
f:text;
j, i, a, b:int... 24.03.2006 16:06 Clerick О теперь работает! :)
Close (f); забыл пост... 24.03.2006 16:24 Ozzя uses
crt;
const
n=5;
m=5;
var
f:text;
j,... 24.03.2006 16:33 Clerick Теперь все одну строчку... :blink: 24.03.2006 16:44 Ozzя Все нормально отрабатывает :blink: 24.03.2006 17:11 Clerick Все в норме!!! Пропустил один оператор... 24.03.2006 18:54 Altair
while not eof(f) do begin readln(f,s); inc(result... 24.03.2006 19:06 Clerick Если я прав(приближенно), то след. прога должна вы... 25.03.2006 18:14 Ozzя uses
crt;
var
f:text;
j, i, max, c:integer;
... 25.03.2006 18:19 Clerick Спасибо!!!
Появился вопр. к з.2 можно... 25.03.2006 18:26 Ozzя Можно проще. Сразу при считывании строк из файла н... 25.03.2006 18:33 Clerick Считывание строк в цикле? 25.03.2006 18:43 Ozzя Ну да
while not eof(f) do
begin
readln(f,s)... 25.03.2006 18:48 мисс_граффити "найти самые короткие строки" - это выве... 25.03.2006 18:59 Clerick вывести их номера или их сами
Номера! :)
to О... 25.03.2006 19:22 мисс_граффити если номера - тогда лучше правда массив...
она те... 25.03.2006 19:23 Clerick
у меня с тем же текстом выводит 3: то есть правил... 25.03.2006 19:49 мисс_граффити для этого его надо отслеживать.
например, делай та... 25.03.2006 20:16 hardcase Нужно просто считать итерации и запоминать итераци... 25.03.2006 21:10 мисс_граффити
Нужно просто считать итерации и запоминать итерац... 25.03.2006 22:48 hardcase
у нас по условию таких строк несколько.
сколько ... 25.03.2006 23:16 мисс_граффити
Вот собсна. Делфю грузить неохота, но должно рабо... 26.03.2006 9:07 Clerick
Но проблема в том, что списки в школе и в неспеци... 26.03.2006 11:00 Clerick
[color=red] BP и TP это не откомпилируют 100 %, h... 26.03.2006 18:13 hardcase Не знаю- не знаю, всё должно скомпилиться - вот по... 26.03.2006 18:23 Clerick Начались проблемы...
var lst: PElement ; = nil; Т... 26.03.2006 18:48 hardcase А проинициализировать переменные в begin .. end - ... 26.03.2006 19:13 Clerick Что значит проинициализировать и как это сделать? 26.03.2006 20:14 hardcase Я не знаю, что такое BP7, он похоже не поддерживае... 26.03.2006 21:00 Clerick
Я не знаю, что такое BP7
Если мне не изменяет па... 26.03.2006 21:07 klem4
Не знаю- не знаю, всё должно скомпилиться - вот п... 26.03.2006 22:10 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 3:44 |