PASCAL

[nes@]

Доброго вам суток дня! У меня такая вот задача: Задано 5 строк. Определить в какой из строк больше символа "d". пжста подскажите

[ThisIzGame]

в чём проблема? простая задача.
ну например, сделайте 5 циклов(если строки разной длины) в каждом проверяйте

for i:=1 to n do
      if stroka[i]='d' then
          res:=res+1;

потом сравните res с остальными полученными и всё....

[Serge_Bliznykov]

как максимум искать знаете?
по подсчитать количество символа d в строчке 1 (если есть массив строк MasStrok : array[1..5] of string; )
можно так:

  Kol_D := 0;
  for i:= 1 to Length(MasStrok[1]) do
     if MasStrok[1][i] = 'd' then Kol_D := Kol_D + 1;
  WriteLn('В первой строке символ d встречается ', Kol_D,' раз.');

ну прикрутить цикл по массиву строк и найти максимум получаемых Kol_D - сделаете самостоятельно!

[NikLik]

var
  arr: array[1..5] of string;//массив строк
  i, ii, curCount, maxCount, maxNum: integer;
begin
//задаём строки
  arr[1] := 'abcde';
  arr[2] := 'abcded';
  arr[3] := 'abcdedd';
  arr[4] := 'abcdeddd';
  arr[5] := 'abcded';
//
  maxCount := 0;
  maxNum := 0;
  for i := 1 to 5 do//пробегаем по массиву строк
  begin
    curCount := 0;
    for ii := 1 to length(arr[i]) do//пробегаем по строке
      if (arr[i][ii] = 'd') then
        inc(curCount);
    if (curCount > maxCount) then//если в текущей строке символ встречается чаще, чем до этого.
    begin
      maxCount := curCount;
      maxNum := i;
    end;
  end;
  if (maxNum = 0) then
    writeln('V strokah ne vstrechaetsya simvol "d".')
  else
    writeln('Chashe vsego simvol "d"(', maxCount, ' raz) vstre4aetsya v stroke "', arr[maxNum], '".');
    readln;
end.

[NikLik]

удалено(10 символов)

[nes@]

мне нужно сначало создать текстовой файл с 5 строками, а затем чтоб программа считывала из нее данные... и в конце вывела номер строки в этом проблема

[NikLik]

const fileName = 'input.txt';

var
  arr: array of string;
  linesCount, i, ii, curCount, maxCount, maxNum: integer;
  inFile: textFile;
begin
  linesCount := 0;
  assignFile(inFile, fileName);
  reset(inFile);
  while (not EOF(inFile)) do
  begin
    inc(linesCount);
    setLength(arr, linesCount);
    readLn(inFile, arr[linesCount - 1]); //нумерация в дин. массивах начинается с нуля
  end;
  closeFile(inFile);
  maxCount := 0;
  maxNum := 0;
  for i := 0 to linesCount - 1 do
  begin
    curCount := 0;
    for ii := 1 to length(arr[i]) do
      if (arr[i][ii] = 'd') then
        inc(curCount);
    if (curCount > maxCount) then
    begin
      maxCount := curCount;
      maxNum := i;
    end;
  end;
  if (maxNum = 0) then
    writeln('V strokah ne vstrechaetsya simvol "d".')
  else
    writeln('Chashe vsego simvol "d"(', maxCount, ' raz) vstre4aetsya v stroke "', arr[maxNum], '".');
  readln;
end.

[NikLik]

const fileName = 'input.txt';

var
  arr: array of string;
  linesCount, i, ii, curCount, maxCount, maxNum: integer;
  inFile: textFile;
begin
  linesCount := 0;
  assignFile(inFile, fileName);
  reset(inFile);
  while (not EOF(inFile)) do
  begin
    inc(linesCount);
    setLength(arr, linesCount);
    readLn(inFile, arr[linesCount - 1]); //нумерация в дин. массивах начинается с нуля
  end;
  closeFile(inFile);
  maxCount := 0;
  maxNum := 0;
  for i := 0 to linesCount - 1 do
  begin
    curCount := 0;
    for ii := 1 to length(arr[i]) do
      if (arr[i][ii] = 'd') then
        inc(curCount);
    if (curCount > maxCount) then
    begin
      maxCount := curCount;
      maxNum := i;
    end;
  end;
  if (maxNum = 0) then
    writeln('V strokah ne vstrechaetsya simvol "d".')
  else
    writeln('Chashe vsego simvol "d"(', maxCount, ' raz) vstre4aetsya v stroke "', arr[maxNum], '".');
  readln;
end.