Здравствуйте! Подскажите пожалуйста, пару моментов по следующей задаче:
Разработать программу обработки текстовых файлов. Программа должна выполнить следующие действия: загрузить текст из заданного файла в массив строк, создать выходной файл, в котором строки идут в обратном порядке, организовать диалоговый цикл для многократного поиска в тексте заданного пользователем символа с выводом номера строки и номера символа в строке.
Вот что я сделал:
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.
По поводу второго вопроса:
если 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]
ну а теперь делаешь цикл. и все
! | Я вот не пойму никак, ты специально ГАДИШЬ всюду, или как? Чего, про изменения тегов ты тоже, конечно, ничего не знал? А новости прочесть - "не царское это дело", правда? Есть же модераторы, это ж слуги твои... Приберут за тобой... Больше предупреждать не буду... Один пост с нарушением хоть какого-нибудь (ЛЮБОГО) Правила Форума - будешь забанен вместе со своей подсеткой по IP... Надоел ты уже... |