Паскаль, файлы, помогите, плизззззззз...
Помогите,плиз оч нужно на экзамен....
1)Имеется текстовый файл. Найти: количество строк, начинающихся с буквы «А» и «а». 2)в существующем типизированном файле,элементами которого явл. отдельные слова, изменить на заданное слово: первое слово. Заранее огромное спасибо!!! |
Цитата:
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. |
Цитата:
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. |
Часовой пояс GMT +4, время: 23:08. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.