Задача символы

[Jamguranga]

Нужно найти слово, в котором наибольшее количество букв "о", НО нужно считывать со строки, а я начал делать, считывая по рядам, т.е. в каждом ряду по 1 слову.

uses crt;
type info=record;
     word:string;
  end;
  
var f:text;
    a:array[1..100] of info;
    b:array[1..100] of integer;
    i,n,c,max,maxw:integer;
    res:string;

Begin
Clrscr;
assign(f, 'd:/lab8/lab8.txt');
reset(f);
i:=1;
  while not eof(f) do
    with a[i] do
      begin
         readln(f,word);
         inc(i);
      end;
    n:=i;

close(f);
i:=1;
        for i:=1 to n do
          with a[i] do
          for c:=1 to length(word) do
            if (word[c]='o') or (word[c]='O')  then inc(b[i]);
 max:=b[i];
 maxw:=1;
 
for i:=1 to n do
  if b[i]>max then
   begin
     max:=b[i];
     maxw:=i;
   end;


   
   for i:=1 to n do
    begin
    with a[i] do
     if maxw=i then res:=word;
   end;
write('Naibilse (o) y slovi: ', res);
readln;
end.

Нужно считывать слова, ориентируясь на пробелы, или же мне советовали использовать copy/delete, но я как-то провтыкал эту тему, кому не сложно, скиньте либо ссылку на обучающий материал, либо переделайте программу, спасибо за внимение

[Sciv]

Ну вот Вам пример Copy и Delete:

s:='12345';
s:=Copy(s,2,3); {s='234'}
Delete(s,2,1); {s='24'}

Разберетесь?

А еще есть функция pos, которая ищет подстроку в строке:

s:='1234 5678';
p:=pos(' ',s);    {p=5}
p:=pos('0',s);    {p=0}

[Jamguranga]

спасибо, буду думать

[Serge_Bliznykov]

на форуме неоднократно решались задачи по разбору строки на отдельные слова (т.н. парсинг == parse ).

посмотрите примеры кода:

{отпарсить - разобрать строчку на слова.
 выделить слова}

{ (c) Stilet}

var 
  s:string; a:array[1..100] of string;
  i,count:integer;
begin   {$o-}
 s:='Hello my world';
 count:=1;
 i:=1; 
 while (i<=length(s)) do begin
   if s[i]=' ' then begin inc(count);inc(i);end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;

Count - количество слов.

или по ссылочкам:

http://www.programmersforum.ru/showp...16&postcount=2

http://www.programmersforum.ru/showp...89&postcount=2


p.s. в принципе, Вам массив в данной задаче не нужен, слова можно (и желательно) обрабатывать по мере выделения их из текста...

[Serge_Bliznykov]

разберите вот такую программу:

{
Нужно найти слово, в котором наибольшее количество букв "о"
}

function CountLetterOinWord(w : string) : integer;
var i,rez : integer;
begin
  rez := 0;
  for i:=1 to length(w) do
    if w[i] = 'o' then Inc(rez);
  CountLetterOinWord := rez;  
end;

var 
  s : string;
  OneWord, MaxLetterWord : string; 
  i, k, CountLetterMaxWord : integer;
begin

 CountLetterMaxWord := 0; {изначально считаем, что нет слов с буквой О, поэтому максимальное значение равно 0} 


 s:='Hello mommy world no problem in comode this totoshko debug mode';

 { обработка одной строки }
 i:=1; 
 OneWord := '';
 while (i<=length(s)) do begin
   if (s[i]=' ') or (i=length(s)) then 
     begin 
       if (i=length(s)) then OneWord := OneWord + s[i];
       inc(i);

       if OneWord<>'' then begin
          k := CountLetterOinWord(OneWord);
          WriteLn('#Отладка# Слово: ',OneWord, '  количество букв "o"  = ', k);

          {поиск слова с максимальным количеством букв}
          if  k > CountLetterMaxWord then begin
             CountLetterMaxWord := k;
             MaxLetterWord := OneWord;
          end;
          OneWord := ''; {очистили текущее слово}
       end;
    end;
    OneWord := OneWord + s[i];
    inc(i);
 end;

 WriteLn;
 if CountLetterMaxWord=0 
   then WriteLn('Нет подходящих слов!')
   else WriteLn('Больше всего букв "o" в слове ',MaxLetterWord, ' там таких букв: ',CountLetterMaxWord);

 Readln;
end.

[Poma][a]

s:='Hello mommy world no problem in comode this totoshko debug mode';

Супер!) Серж,а Вы, однако, поэт

[Jamguranga]

Program lab8;
uses crt;
var s,res:string; a:array[1..100] of string;
    i,n,c,count,max,maxw:integer;  f:text;
    b:array[1..100] of integer;
Begin
clrscr;
          assign(f, 'd:\STUDENT\jamgur\lab8\lab8.txt');
          reset(f);
          read(f,s);
 count:=1;
 i:=1;
 n:=1;
 while (i<=length(s)) do
  begin
   if s[i]=' ' then
       begin
         inc(count);
         inc(i);
         inc(n);
       end;

   a[count]:=a[count]+s[i];
       inc(i);
 end;

  for i:=1 to n do
   for c:= 1 to length(a[i]) do
    if (a[i][c]='o') or (a[i][c]='O') then inc(b[i]);


 max:=b[1];
    for i:=2 to n do
      if b[i]>max then
             max:=b[i];



 close(f);
 writeln('naibilse o y slovi:', a[max]);
 readln;
 end.

всё равно не работает

[Jamguranga]

ошибка найдена, всем спасибо

[Serge_Bliznykov]

почти всё правильно. при поиска максимально Вы чуть-чуть дали маху.
Вы ищете максимальное значение. А потом вдруг (неизвестно почему) решаете, что максиальное значение соответствует НОМЕРУ слова. Это не так.

исправить очень легко.
Вот так:

  max:=1;
  for i:=2 to n do
    if b[i]>b[max] then
             max:=i;

p.s. у вас лишняя переменная Count и n - предназначены ровно для одного и того же. Я бы оставил одну из них (любую, какая Вам больше по душе...)