Вводятся строчки. Найти самую длинноватую строчку и вывести её номер на
Вводятся строчки. Найти самую длинноватую строку и вывести её номер на экран.Без массива, веба.Pascal ABC.Помогите пожалуйста!
Задать свой вопрос
Миха Васич
описался, информатикааа
1 ответ
Максимка Иларионов
- uses crt;
- type fil=text;
- var f1:fil;
- a,b,c:string;
- i,w,n,y:integer;
- procedure wwod;
- begin
- assign(f1,'t1.dat');
- rewrite(f1);
- writeln('Введите кол-во строк в файле:');
- readln(y);
- for i:= 1 to y do
- begin
- writeln('Введите ',i,' строку');
- readln(a);
- writeln(f1,a);
- end;
- close(f1);
- end;
- procedure prosm;
- begin
- assign(f1,'t1.dat');
- reset(f1);
- writeln('Содержание текстового файла:');
- while not eof(f1) do
- begin
- a:='';
- readln(f1,a);
- writeln(a)
- end;
- close(f1);
- end;
- procedure naxod;
- var max:string; i,i1:integer;
- begin
- assign(f1,'t1.dat');
- reset(f1);
- max:=''; i:=1;i1:=0;
- while not eof(f1) do
- begin
- a:='';
- readln(f1,a);
- if length(a)gt; length(max) then begin
- max:=a;
- i1:=i;
- end;
- inc(i);
- end;
- writeln('Самая длинноватая строчка: ',max,' (',i1,')');
- reset(f1);
- i:=1;
- while not eof(f1) do
- begin
- a:='';
- readln(f1,a);
- if (length(max)=length(a)) and (ilt;gt;i1)
- then writeln('Еше одна Самая длинная строчка: ',max,' (',i,')');
- inc(i);
- end;
- close(f1);
- end;
- begin
- w:=0; обнуляем переменную для выбора меню
- while wlt;gt;4 do begin пока не равно 4
- writeln(' Меню программы');
- writeln('1-Творение текстового файла');
- writeln('2-Просмотр текстового файла');
- writeln('3-Нахождение длинноватого строчки');
- writeln('4-Выход из программки');
- write(' Ваш выбор -gt; ');
- readln(w);
- case w of
- 1:wwod;
- 2:prosm;
- 3:naxod;
- end;
- writeln
- end;
- end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов