Pascal (тип String и массивы).

[4otenado]

Помогите пож-та решить задачи.
1. В тексте удалить слова с нечётным количеством букв. Конец ввода F1. (на тип String).
2. В матрице F(7x7) упорядочить элементы главной диагонали в порядке возрастания. Определить сумму элементов, лежащих под главной диагональю. (массивы).

[Stilet]

В тексте

Текст откуда берется?

[Consol]

2)упонядочивание

for i:=1 to 6 do
 for j:=i+1 to 7 do
  if a[i,i]>a[j,j] then
    begin
      temp:=a[i,i];
      a[i,i]:=a[j,j];
      a[j,j]:=temp;
    end;

2) вычисление суммы элементов под главной диагональю

sum:=0;
for i:=2 to 7 do
 for j:=1 to i-1 do
  sum:=sum+a[i,j];

[Consol]

В тексте удалить слова с нечётным количеством букв. Конец ввода F1. (на тип String).

s:='sdl sdg ds;lkfgdslkjg sdfg dsfg dfjkgdsfhg sdkjg';
ss:='';
sss:='';
for i:=1 to  length(s) do
 if (s[i] in ['a',..,'z']) then
  ss:=ss+s[i]
  else
   begin
     if not(odd(length(ss)) then
      sss:=sss+ss+s[i]
        else
          if (length(ss)=0) then
          sss:=sss+s[i];
 
   end;
writeln(sss);

[4otenado]

Сообщение от Stilet

Текст откуда берется?

текста небыл.

program str;
var st1; st2; st3: string;
begin
st1:='sdl sdg ds;lkfgdslkjg sdfg dsfg dfjkgdsfhg sdkjg';
st2:='';
st3:='';
for i:=1 to  length(s) do
 if (st1[i] in ['a',..,'z']) then
  st3:=st2+st1[i]
  else
   begin
     if not(odd(length(ss)) then
      st3:=st3+st2+st1[i]
        else
          if (length(ss)=0) then
          sss:=st3+st1[i];
   end;
writeln(st3);
end.

скажите что тут неправильно, программа не работает=(.

[Stilet]

Хм... не очень мне твой пример нравится.
Если он не работает могу предложить свой:

  var l,e,s:string;
  k,i:integer;
begin
 s:='sdl sdg ds;lkfgdslkjg sdfg dsfg dfjkgdsfhg sdkjg';
 k:=0;  e:='';l:='';
 for i:=1 to length(s) do begin
 {Читаем строку до пробела}
   if s[i]<>' ' then begin
     inc(k); e:=e+s[i];
    end else   begin
 {Если пробел встретился, анализируем сколько в строке символов
 и если четное кол-во то присваиваем считанную часть строки другой строке, а считанную часть освобождаем для следующей части}
     if k mod 2=0 then    l:=l+e+' ';
     e:=''; k:=0;
   end;
 end;
 writeln(s);writeln(l);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Смысл ясен?

[4otenado]

Сообщение от Stilet

Хм... не очень мне твой пример нравится.
Если он не работает могу предложить свой:

  var l,e,s:string;
  k,i:integer;
begin
 s:='sdl sdg ds;lkfgdslkjg sdfg dsfg dfjkgdsfhg sdkjg';
 k:=0;  e:='';l:='';
 for i:=1 to length(s) do begin
 {Читаем строку до пробела}
   if s[i]<>' ' then begin
     inc(k); e:=e+s[i];
    end else   begin
 {Если пробел встретился, анализируем сколько в строке символов
 и если четное кол-во то присваиваем считанную часть строки другой строке, а считанную часть освобождаем для следующей части}
     if k mod 2=0 then    l:=l+e+' ';
     e:=''; k:=0;
   end;
 end;
 writeln(s);writeln(l);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Смысл ясен?

Спасибо, смысл ясен, но в условии задачи нужно из текста удалить слова с нечётным количеством букв, и ещё нужно прописать конец ввода F1[просто забыл как ето делается].

[4otenado]

пожалуйста помогите доделать 1ю, ну и вторую заодно, а то её я вообще не понял.
заранее спасибо.

[4otenado]

++++срочно надо++++