var f: text; s: string; max: string := ''; begin //в папке с программой должен быть файл "input.txt" if FileExists('input.txt') then begin Assign(f, 'input.txt'); Reset(f); while not Eof(f) do begin Readln(f, s); if Length(s) > Length(max) then max := s; end; Writeln('Самая длинная строка в файле: '); Writeln(max); Close(f); end else Writeln('Файл не найден'); end.
41)Создать новую таблицу 42) Д) 43)Правка - Удалить запись. 50) Параметры. 53)Выводится диалоговое окно с приглашением ввести параметр для условия на отбор записей. 56)Изменяются значения в полях определенных записей. 57)Создается таблица с данными, соответствующими определенным условиям. 62)Автоматической вставки последовательных или случайных чисел в качестве номера новой записи. 65)Во вкладке Режим таблиц – выбрать Вставить 66)Разные имена, но одинаковый тип данных. 69)Для отбора записей, данные в которых соответствуют определенным условиям. 70)Е) 71)Для создания контрольного переключателя.
f: text;
s: string;
max: string := '';
begin //в папке с программой должен быть файл "input.txt"
if FileExists('input.txt') then begin Assign(f, 'input.txt'); Reset(f); while not Eof(f) do begin Readln(f, s); if Length(s) > Length(max) then max := s; end; Writeln('Самая длинная строка в файле: '); Writeln(max); Close(f); end else Writeln('Файл не найден'); end.