Дан файл f. напечатать в файл g длину самой длинной строки - VB
Формулировка задачи:
дан файл f. напечатать в файл g длину самой длинной строки.
Решение задачи: «Дан файл f. напечатать в файл g длину самой длинной строки»
textual
Листинг программы
Sub Task(f as string,g as string) fi%=FreeFile() open f for input as #fi% Max%=0 do while not Eof(fi%) Line input #fi%,s$ if len(s$) > Max% then Max%=len(s$) loop close #fi% fo%=freefile open g for output as #fo% print #fo,Max% close fo% End sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д