Строки и двумерный массив

[Lamik]

Строки и двумерный массив

Помогите пожалуйста решить 2-е задачки.:bsod:

Первая:
Дана строка, состоящая из слов, разделенных пробелами. Вывести те слова, длина которых меньше, чем у предыдущего слова и больше чем у последующего.

И вторая:
Задан двухмерный массив А размерности n*m. Дополнить его (n+1)-й строкой и (m+1)-м столбцом, в которые записать суммы элементов соответствующих строк и столбцов исходного массива А.

Заранее очень благодарен!

 

[Vladimir_S]

Помогите пожалуйста решить 2-е задачки.:bsod:

Первая:
Дана строка, состоящая из слов, разделенных пробелами. Вывести те слова, длина которых меньше, чем у предыдущего слова и больше чем у последующего.

И вторая:
Задан двухмерный массив А размерности n*m. Дополнить его (n+1)-й строкой и (m+1)-м столбцом, в которые записать суммы элементов соответствующих строк и столбцов исходного массива А.

Заранее очень благодарен!

Да пожалуйста:

Var
 S:string;
 i,N: integer;
 W:Array[1..255] of String;

Begin
 writeln('Enter the string: ');
 readln(S);
 N:=1;
 i:=0;
 Repeat
  Inc(i);
  W[N]:='';
  While (S[i]<>' ') and (i<=Length(S)) do
   begin
    W[N]:=W[N]+S[i];
    Inc(i);
   end;
  If i<=Length(S) then Inc(N);
 Until i>=Length(S);

 For i:=2 to N-1 do
  if (Length(W[i])<Length(W[i-1])) and (Length(W[i])>Length(W[i+1])) then write(W[i]+' ');

 Readln
End.

Const
 N=9; {Number of lines}
 M=8; {Number of columns}
Var
 i,j:Byte;
 A:Array[1..N+1,1..M+1] of Integer;
Begin
 for i:=1 to N+1 do A[i,M+1]:=0;
 for j:=1 to M do A[N+1,j]:=0;
 Randomize;
 Writeln('Initial Array: ');
 for i:=1 to N do
  begin
   for j:=1 to M do
    begin
     A[i,j]:=-10+Random(40);
     write(A[i,j]:5);
     A[i,M+1]:=A[i,M+1]+A[i,j];
     A[N+1,j]:=A[N+1,j]+A[i,j];
    end;
   writeln;
  end;
 writeln;
 Writeln('New Array: ');
 for i:=1 to N+1 do
  begin
   for j:=1 to M+1 do
    if (i<N+1) or (j<M+1) then write(A[i,j]:5);
   writeln;
  end;
 Readln
End.

 

[Lamik]

Спасибо, но в первой задаче, после того, как ввел строку - ничего не происходит... Он выдает пустую строчку...

 

[Vladimir_S]

Спасибо, но в первой задаче, после того, как ввел строку - ничего не происходит... Он выдает пустую строчку...

Покажите строку, которую Вы вводите.
У меня всё работает, как задумано.

 

[Lamik]

Моя вина, извиняюсь. Все исправил.

 

[Lamik]

Владимир, я могу с вам связаться по e-mail? Или другим способом? Нужна помощь с еще одной задачкой по Delphi, которую я не осилю... А сюда скинуть задание я не могу, т.к. не могу размещать ссылки на форуме. Буду бесконечно благодарен!

 

[Vladimir_S]

Владимир, я могу с вам связаться по e-mail? Или другим способом? Нужна помощь с еще одной задачкой по Delphi, которую я не осилю... А сюда скинуть задание я не могу, т.к. не могу размещать ссылки на форуме. Буду бесконечно благодарен!

Боюсь, толку не будет - на Delphi я писал последний раз где-то лет 20 назад, с тех пор всё позабыл. А что до ссылок - выложите их в текстовом виде, а я, как модератор, поправлю.