profile
Размещено 6 лет назад по предмету История от eees77

Вводятся строки. Определить самую длинную строку и вывести её номер на экран.Без массива, интернета.Pascal ABC.Помогите пожалуйста! ​

  1. Ответ на вопрос
    Ответ на вопрос дан sweet1703
    1. uses crt;
    2. type fil=text;
    3. var f1:fil;
    4. a,b,c:string;
    5. i,w,n,y:integer;
    6. procedure wwod;
    7. begin
    8. assign(f1,'t1.dat');
    9. rewrite(f1);
    10. writeln('Введите кол-во строк в файле:');
    11. readln(y);
    12. for i:= 1 to y do
    13.    begin
    14.    writeln('Введите ',i,' строку');  {}
    15.    readln(a);
    16.    writeln(f1,a);
    17.    end;
    18. close(f1);
    19. end;
    20. procedure prosm;
    21. begin
    22. assign(f1,'t1.dat');
    23. reset(f1);
    24. writeln('Содержание текстового файла:');
    25. while not eof(f1) do
    26.      begin
    27.      a:='';
    28.      readln(f1,a);
    29.      writeln(a)
    30.      end;
    31. close(f1);
    32. end;
    33. procedure naxod;
    34. var max:string; i,i1:integer;
    35. begin
    36. assign(f1,'t1.dat');
    37. reset(f1);
    38. max:=''; i:=1;i1:=0;
    39. while not eof(f1) do
    40.      begin
    41.      a:='';
    42.      readln(f1,a);
    43.      if length(a)> length(max) then begin
    44.                           max:=a;
    45.                           i1:=i;
    46.                                 end;
    47.     inc(i);
    48.     end;
    49. writeln('Самая длинная строка: ',max,' (',i1,')');
    50. reset(f1);
    51. i:=1;
    52. while not eof(f1) do
    53.      begin
    54.      a:='';
    55.      readln(f1,a);
    56.      if (length(max)=length(a)) and (i<>i1)
    57.         then  writeln('Еше одна Самая длинная строка: ',max,' (',i,')');
    58.      inc(i);
    59.      end;
    60. close(f1);{}
    61. end;
    62. begin
    63. w:=0;      {обнуляем переменную для выбора меню}
    64. while w<>4 do begin   {пока не равно 4 }
    65.      writeln('           Меню программы');
    66.      writeln('1-Создание текстового файла');
    67.      writeln('2-Просмотр текстового файла');
    68.      writeln('3-Нахождение длинного строки');
    69.      writeln('4-Выход из программы');
    70.      write('             Ваш выбор -> ');
    71.      readln(w);
    72.      case w of
    73.           1:wwod;
    74.           2:prosm;
    75.           3:naxod;
    76.           end;
    77.      writeln
    78.      end;
    79. end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
Никита081
Математика - 5 лет назад

Сколько здесь прямоугольников

Alinashastova
История - 6 лет назад

Какое управление было в древнейшем риме? как звали первого и последнего из царей рима?

diankayusupova3
Литература - 6 лет назад

Уроки французского ответе на вопрос : расскажите о герое по следующему примерному плану: 1.почему мальчик оказался в райцентре ? 2.как он чувствовал себя на новом месте? 3.почему он не убежал в деревню? 4.какие отношения сложились у него с товарищами? 5.почему он ввязался в игру за деньги? 6.как характеризуют его отношения с учительницей ? ответе на эти вопросы пожалуйста ! сочините сочинение пожалуйста

tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

pakhotnov228
Русский язык - 6 лет назад

Переделай союзное предложение в предложение с бессоюзной связью. 1. океан с гулом ходил за стеной чёрными горами, и вьюга крепко свистала в отяжелевших снастях, а пароход весь дрожал. 2. множество темноватых тучек, с неясно обрисованными краями, расползались по бледно-голубому небу, а довольно крепкий ветер мчался сухой непрерывной струёй, не разгоняя зноя 3. поезд ушёл быстро, и его огни скоро исчезли, а через минуту уже не было слышно шума

ggg3288
Русский язык - 6 лет назад

помогите прошу!перепиши предложения, расставляя недостающие знаки препинания. объясни, что соединяет союз и. если в предложении один союз и, то во втором выпадающем списке отметь «прочерк».пример:«я шёл пешком и,/поражённый прелестью природы/, часто останавливался».союз и соединяет однородные члены.ночь уже ложилась на горы (1) и туман сырой (2) и холодный начал бродить по ущельям.союз и соединяет:1) части сложного предложенияоднородные члены,2) однородные членычасти сложного предложения—.поэт — трубач зовущий войско в битву (1) и прежде всех идущий в битву сам (ю. янонис).союз и соединяет:1) части сложного предложенияоднородные члены,2) ​

Аккаунт удален
Физика - 6 лет назад

Вокруг прямого проводника с током (смотри рисунок) существует магнитное поле. определи направление линий этого магнитного поля в точках a и b.обрати внимание, что точки a и b находятся с разных сторон от проводника (точка a — снизу, а точка b — сверху). рисунок ниже выбери и отметь правильный ответ среди предложенных.1. в точке a — «от нас», в точке b — «к нам» 2. в точке a — «к нам», в точке b — «от нас» 3. в обеих точках «от нас»4. в обеих точках «к нам»контрольная работа по физике.прошу,не наугад важно

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.