Цитата:
Сообщение от chro
Друзья очень нужна ваша помощь!!помогите решить 2 задачки на паскале! нив какую не могу решить ((( надеюсь на вашу помощь!
«Текстовые файлы»
Скопировать текстовый файл в новый файл, перенести в него только те строки, в которых встречаются латинские буквы, и указав после каждой такой строки количество латинских букв в ней.
|
VAR
f,f1:TEXT;
S:STRING;
Lat_Num:BYTE;
i:INTEGER;
BEGIN
Assign(f,'D:\d');
ReSet(f);
Assign(f1,'D:\d1');
ReWrite(f1);
REPEAT
ReadLn(f, S);
Lat_Num:=0;
FOR i:=1 TO Length(S) DO
IF ((ORD(S[i])>64) AND (ORD(S[i])<91)) OR
((ORD(S[i])>96) AND (ORD(S[i])<123)) THEN INC(Lat_Num);
IF Lat_Num>0 THEN
WriteLn(f1,S+' ',Lat_Num);
UNTIL EoF(f);
Close(f);
Close(f1);
END.