IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Работа с массивом и текстовыми файлами.
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


Здравствуйте! Подскажите пожалуйста, пару моментов по следующей задаче:

Разработать программу обработки текстовых файлов. Программа должна выполнить следующие действия: загрузить текст из заданного файла в массив строк, создать выходной файл, в котором строки идут в обратном порядке, организовать диалоговый цикл для многократного поиска в тексте заданного пользователем символа с выводом номера строки и номера символа в строке.

Вот что я сделал:
program dfr;
const
N=100;

var f,j:Text;
name,name1:string;
m: array [1..N] of string;
i: integer;

begin
writeln('Укажите txt-файл для работы(например: C:\name.txt)'); readln(name);
writeln('Имя файла:'); readln(name1);
assign(f,name);
assign(j,name1);
reset(f);i:=1;
rewrite(j);
while not EOF(f) and (i <= N) do
begin
read(f,m[i]);
write(m[i]);
write(j,m[i]);
inc(i)
end;
close(f);
close(j);
readln;
end.



Так вот, есть два вопроса:

1. Как из массива вывести символы в обратном направлении(в другой файл я смог записать, а вот чтобы буквы были в обратном направлении, не могу сделать).
2.
Цитата
организовать диалоговый цикл для многократного поиска в тексте заданного пользователем символа с выводом номера строки и номера символа в строке.
как сделать поиск, чтобы программа выводила номер строки и номер символа?

Заранее спасибо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
в другой файл я смог записать, а вот чтобы буквы были в обратном направлении, не могу сделать
А тебе и не надо, чтобы буквы были в обратном направлении... Тебе надо записать массив "с хвоста", чтобы СТРОКИ расположились в порядке, противоположном начальному, например...

Было:
a1234
b2345
c3456

стало:
c3456
b2345
a1234
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Знаток
****

Группа: Пользователи
Сообщений: 424
Пол: Мужской

Репутация: -  2  +


По поводу второго вопроса:
если strings - массив строк, а n - количество строк.
теперь введем две цикловые переменные i,j и одну переменную буленовскую flag.

Теперь

[pascode]

flag:=false;
for i := 1 to n do begin
for j:= 1 to length(strings[i]) do
if strings[i,j]=ch then begin
flag:=true;
writeln('Строка:',i);
writeln('Символ:',j);
break;
end;
if flag then
break;
end;

[/pascode]

ну а теперь делаешь цикл. и все

 ! 
Я вот не пойму никак, ты специально ГАДИШЬ всюду, или как? Чего, про изменения тегов ты тоже, конечно, ничего не знал? А новости прочесть - "не царское это дело", правда? Есть же модераторы, это ж слуги твои... dry.gif Приберут за тобой...

Больше предупреждать не буду... Один пост с нарушением хоть какого-нибудь (ЛЮБОГО) Правила Форума - будешь забанен вместе со своей подсеткой по IP... Надоел ты уже...



--------------------
Чего хочет женщина – того хочет Бог
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 5.10.2024 9:39
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name