 Текстовые файлы, Совершенно не понятно... |
Прочтите прежде чем задавать вопрос!
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 -------------------- После дождя обязательно выглянет солнце)
|
   |
 
|
  |
Ответов
| мисс_граффити |
25.03.2006 19:23
Сообщение
#2
|
 просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
если номера - тогда лучше правда массив...
она тебе выводит длину минимальной строки... а чему она должна быть равна? у меня с тем же текстом выводит 3: то есть правильно (последняя строка: 3 пробел 1). может, у тебя там еще какой-то символ? Сообщение отредактировано: мисс_граффити - 25.03.2006 19:30 -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
Сообщений в этой теме
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 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 hardcase Коментарии добавил. (вроде там и комментировать-то... 26.03.2006 11:27 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:47 |