Работа с файлами

@Serhio1 · Регистрация: 27.03.2011

Студворк — интернет-сервис помощи студентам

Помогите с задачками плз.
1 Дано символьный файл f. Подсчитать число вхождений в файл каждой из букв a,b,c,d,e,f и вывести результат в виде таблицы
a-Na b-Nb... где N - количество вхождений каждой из букв.
2 Дано текстовый файл f. Получить самую длинную строку файла f. Если в файле имеется несколько строк с одинаковой длиной, то вывести одну из них.

@S9 · 30.03.2011, 15:10

Вот второе задание

Pascal

Program S9;
Var
F:Text;
Str,Max:String;
i,Leng:Integer;
Begin
Assign(F,'my_file.txt');
Reset(F);
ReadLn(F,Str);
i:=Length(Str);
While Not Eof(F) Do
Begin
ReadLn(F,Str);
If Length(Str)>i Then
Max:=Str;
End;
WriteLn(Max);
ReadLn;
End.

@Serhio1 0 / 0 / 0 Регистрация: 27.03.2011 Сообщений: 4
		1
	Работа с файлами 30.03.2011, 14:21. Показов 1005. Ответов 1 Метки нет (Все метки) Помогите с задачками плз. 1 Дано символьный файл f. Подсчитать число вхождений в файл каждой из букв a,b,c,d,e,f и вывести результат в виде таблицы a-Na b-Nb... где N - количество вхождений каждой из букв. 2 Дано текстовый файл f. Получить самую длинную строку файла f. Если в файле имеется несколько строк с одинаковой длиной, то вывести одну из них. 0

Опции темы

Работа с файлами

Решение