Паскаль, файлы, помогите, плизззззззз...

[DjDeniels-61]

Паскаль, файлы, помогите, плизззззззз...

Помогите,плиз оч нужно на экзамен....

1)Имеется текстовый файл. Найти: количество строк, начинающихся с буквы «А» и «а».

2)в существующем типизированном файле,элементами которого явл. отдельные слова, изменить на заданное слово: первое слово.


Заранее огромное спасибо!!!

 

[Vladimir_S]

Помогите,плиз оч нужно на экзамен....

1)Имеется текстовый файл. Найти: количество строк, начинающихся с буквы «А» и «а».

Заранее огромное спасибо!!!

VAR
f:TEXT;
S:STRING;
N:WORD;
BEGIN
Assign(f,'C:\d');
ReSet(f);
N:=0;
REPEAT
ReadLn(f,S);
IF (S[1]='A') OR (S1='a') THEN INC(N);
UNTIL EoF(f);
Close(f);
WriteLn('N = ',N);
ReadLn;
END.

 

[Vladimir_S]

Помогите,плиз оч нужно на экзамен....

2)в существующем типизированном файле,элементами которого явл. отдельные слова, изменить на заданное слово: первое слово.

Заранее огромное спасибо!!!

VAR
f,f1:TEXT;
S:STRING;
Ch:CHAR;
BEGIN
Assign(f,'C:\d');
ReSet(f);
Assign(f1,'C:\d1');
ReWrite(f1);
Write('Enter word for replacement: '); Readln(S);
Write(f1,S+' ');
REPEAT
READ(f, Ch);
UNTIL Ch=' ';
REPEAT
Read(f,Ch);
Write(f1,Ch);
UNTIL EoF(f);
Close(f);
Close(f1);
END.