Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задача: Дан текстовой файл, в котром сод... Нужно вывести на экран инф. с 2 файлов.. 
:(
    Опции темы
MuForum
Дата 14.6.2007, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 427
Регистрация: 13.6.2007
Где: Молдова, Кишинев

Репутация: нет
Всего: 4



Задача: Дан текстовой файл, в котором содержится не более 80 строк. Вывести на экран все слова, которые рифмуются (рифмуются те слова, у которых совпадают хотябы 2 последние буквы).

Задачу я решу сам, но я к своему стыду не знаю как записать информации с строчки файла в String!? (Прошу помощи)

Ну я примерно представляю как это должно выглядить:

Код

Program Sanek;
  Uses Crt;
Var
  a: array[1..100] of String;
  f:text;
  i,c: word;
Begin
  ClrScr;
  assign(f,'C:\Text_01');
  reset(f);
  read(f,c);
 while not eoln(f) do
{Вот после этого, как присвоить массиву символы текстового файла я не знаю =(}
  for i:=1 to eoln(f)
  a[i]:= 



P.S. -> Ребята выручайте молодого и не опытного ;)

P.S. -> Использую TP 7.1

# Добавление: Snowy извиняюсь, ступил, не на ту задачу посмотрел(Написал одну, а думал про другую) =)

Это сообщение отредактировал(а) MuForum - 14.6.2007, 12:50


--------------------
"Чтобы правильно задать вопрос, нужно знать большую часть ответа!" (Р. Шекли)
PM MAIL WWW ICQ Skype MSN   Вверх
Snowy
Дата 14.6.2007, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484



А откуда взялся второй файл? В условии пронего ни слова.
И судя по условию, я так понимаю, что в каждой строке должно быть по одному слову, ибо указано кол-во строк, а не слов.
Значит тебе нужно завести массив на 80 строк, прочитать все строки туда, пройтись вложенным циклом по массиву (как при сортировке) и проанализировать каждую пару слов.
PM MAIL   Вверх
MuForum
  Дата 14.6.2007, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 427
Регистрация: 13.6.2007
Где: Молдова, Кишинев

Репутация: нет
Всего: 4



#for all - Парни подскажите пожалуйста как присвоить элементам массива все элементы строчки!?

P.S. -> А дальше я уже сам сделаю...


--------------------
"Чтобы правильно задать вопрос, нужно знать большую часть ответа!" (Р. Шекли)
PM MAIL WWW ICQ Skype MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.0593 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.