текстовый файл

Mymindismy

Дата: Пятница, 17.04.2009, 05:01 | Сообщение # 1

Знакомый

Группа: Пользователи

Сообщений: 16

Репутация: 0

Замечания: 20%

Статус: Offline

Дан текстовый файл. Создать новый текстовый файл, записав в него те строки исходного файла, которые начинаются с k идущих подряд символов m.

никак не могу разобраться с файломи...ниче не понятно

Добавлено (16.04.2009, 22:01)
---------------------------------------------
ну пожалуйста помогите cry cry cry cry cry cry cry cry ниче не понимаю..а сдать надо cry

Firefrominside

Дата: Пятница, 24.04.2009, 07:03 | Сообщение # 2

Уже "свой"

Группа: Модераторы

Сообщений: 85

Репутация: 0

Замечания: 0%

Статус: Offline

Program es;
uses crt;
f, g, :text;
i,k,l:integer;
m, n:char;
Begin
l:=0;
writeln('введи с какого символа... ');
readln(m);
writeln('...и с какого по счёту записывать ');
readln(k);
assign(f,'тут указываешь путь в файлу с такстом');
rewerite(g);{файл создаётся в той же дериктории}
while (notEOF(f)) {пока не кокец файла }
read(f,n);{считываем символ с файла}
if n=m then l:=l+1;
if l=k then
while(notEOLn(f)) {пока не покец строки}
write(n,g);
close(f);
close(g);
end.

Писал вслепую, не в среде! Завтра вобью в аскаль и проверю!
Если можешь ,попробуй сам!

Большая просьба выкладывать хоть какой-то код Вашей программы.
Это поможет найти общий язык между Вами и нами! =)
И не забываем благодарить за помощь=)
Нужна помощь с задача С++? тебе сюда bc-for-all.ucoz.ru

		Понедельник, 03.02.2025
	Pascal 4 All