Delphi, матрица и строки

[GippoRex]

Всем доброго вечера!
Передо мной стоит такая задача: составить программу, которая считает сумму элементов строки квадратной матрицы и сравнивает ее с другими суммами. Если попадаются две равные - вывести сумму и номера строк, у которых она равна. Условие: никаких доп. массивов для хранения сумм. В общем-то, из-за этого условия мне пришлось все делать через циклы, но у меня такое ощущение, что я в них напортачила (даже почти уверена).
Вот что получилось у меня:

{$APPTYPE CONSOLE}
uses
  SysUtils;
var a: array [1..11, 1..11] of integer;
   i, j, n, sum1, sum2, num1, num2: integer;
   flag: boolean;
begin
randomize;
  writeln('Input value of n:');
  readln(n);
for i:=1 to n do
 begin
   for j:=1 to n do
   begin
      a[i,j]:= random(10);
      write(a[i,j], ' ');
   end;
   writeln;
 end;
sum1:=0;
sum2:=0;
num2:=0;
flag:= false;
  for i:=1 to n do
  begin
    for j:=1 to n do
      begin
      sum1:=sum1+a[i,j];
      num1:=j
      end;
    if sum1=sum2 then
      begin
      write('Summa: ', sum1, 'from strings:', num1, ' and ', num2);
      flag:=true;
      end;
    sum2:=sum1; {<=== Вот как раз сомнительный момент.}
    num2:=num1;
  end;
if not(flag) then writeln('There is not such strings');
readln;
end.

Мне кажется, что там надо либо все впихнуть в еще один цикл, либо ларчик просто открывался, а я в упор не вижу. Заранее спасибо за помощь!

+

Задание со строками. Дан текст. Надо вывести количество предложений, в которых слов больше 3. Вроде простая задача, но у меня в половине случаев счетчик немного "промахивается" и выдает неправильный результат. А в половине других - правильный. Понять не могу, где у меня огрешность, она ведь мелкая какая-нибудь по закону Мёрфи.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var txt, dot, space, st: string;
    len_txt, len_st, st_end, word_end, now, nost: integer;
begin
writeln('Enter a text:');
readln(txt);
dot:= '.';
space:= ' ';
len_txt:=length(txt);
now:=0;
nost:=0;
while len_txt<>0 do
  begin
   st_end:= pos(dot, txt);
   len_txt:= len_txt-st_end;
   st:= copy(txt, 1, st_end-1)+space;
   len_st:= length(st);
   delete(txt, 1, st_end);
   while len_st<>0 do
      begin
      word_end:= pos(space, st);
      len_st:=len_st-word_end;
      now:= now+1;
      delete(st, 1, word_end);
      end;
   if now>3 then nost:=nost+1;
   now:=0;
  end;
writeln('Number of strings: ', nost);
readln;
end.

P.S. У меня сегодня день кода, так что не ругайтесь, если я тут тем напложу C:

@темы: Pascal

Comments

[Neitent]

Пробел после точки.
Строка Ааа._Ббб, второе предложение будет - _Ббб, первый прогон вхолостую обсчитает начальный пробел
Для чистки от паразитных пробелов в начале и конце слова есть функция trim (s)

[GippoRex]

Пробел после точки.

Черт возьми, да! @__@ Спасибо вам большое, я уже мозг сломала, где он лишние слова-то насчитывает.

[GippoRex]

...Путем правки получился такой кусочек (все остальное по-старому):

while len_txt<>0 do
  begin
   st_end:= pos(dot, txt);
   len_txt:= len_txt-st_end;
   st:= copy(txt, 1, st_end-1);
   st:= Trim(st);
   st:= st+space; {добавляю пробел как указатель на конец последнего слова в предложении}
   len_st:= length(st);
   delete(txt, 1, st_end);

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

[Neitent]

о сразу хочется написать, что в дельфе отступы после begin-end ставят по-другому:
for i:=0 to n-1 do
begin
--blah-blah-blah
--blah-blah-blah
end
А нумерацию делать от 0 до n-1, очень полезная привычка, на самом деле

Сейчас гляну, что там не так. Сейчас с первым.
Да, там нужна тройная вложенность: сначала фиксируем ряд (1), потом проходим по остальным рядам(2), для каждого из которых - сумма (3). Еще один момент: вот эти 11 элементов с ограничением - вообще-то бяка. Или у нас жестко заданы границы - тогда n вводить не нужно, либо делаем массив динамическим. Опять же, для учебных задачек оно ок, но в целом стоит иметь в виду.

var
  a: array [1..11, 1..11] of integer;
  i, j, rows, els, n, sum1, sum2: integer;
  flag: boolean;

begin
  randomize;
  writeln('Input value of n:');
  readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(3) - 2;
      write(a[i, j], ' ');
    end;
    writeln;
  end;
  flag := false;
  for i := 1 to n do //Берем каждый ряд
  begin   
    sum1 := 0; 
    for rows := i to n do //Сравниваем с каждым рядом
    begin
      sum2 := 0;
      for els := 1 to n do 
      begin
        if rows=i then      
          sum1 := sum1 + a[rows, els]//сумма текущего ряда
        else
          sum2 := sum2 + a[rows, els];
      end;     
      
      if (sum1 = sum2) and (rows<>i) then
      begin
        writeln('Summa: ', sum1, ' from strings:', i, ' and ', rows);
        flag := true;
      end;  
    end;
  end;
  if not (flag) then writeln('There is not such strings');
  readln;
end.

[Neitent]

Да, внутренний цикл я тоже слегка поменяла.

    while len_st <> 0 do
    begin
      word_end := pos(space, st);
      now := now + 1;
      delete(st, 1, word_end);
      len_st:=length (trim(st));   
      
      write ('/we:', word_end);
      write ('/now:', now);      
      write ('/st:', st);            
      write ('/len_st:', len_st);  
      writeln;
    end;

[GippoRex]

вообще-то бяка

Да я в курсе C: Но указано n<11 - что ж, я за язык не тянула, буду это использовать.

Можно я вас горячо обниму?
Кусок с if rows=i then - хитро, очень хитро. Я в восхищении.

[Neitent]

GippoRex,