Строки и Массивы. Pascal. 4 задачи

[Naper214]

Вопрос смерти и получения УПВ)))))

1. Дана последовательность слов. Напечатать все слова, отличные от слова hello.
2. Дано слово. Добавить к нему в начале и в конце столько звездочек(*), сколько букв в этом слове.
3. В данной действительной матрице, размером 6х9, поменять местами строку, содержащую макс. элемент со строкой, соержащей мин. элемент. Если строки совпадают, то перестановку не выполнять.
4. дана матрица А[8,8]. Получить новую матрицу в которой все элементы строки удваиваются, если макс. элемент находится на главной диагонали,и равны половине - в противном случае.

Буду ОЧЕНЬ благодарен если поможете....

[Sm1Le]

1) Пишите адекватные заголовки!
"Помогите", "Плизы", "SOSы". Удаляются.
"Срочно решить задачу" - тоже удаляются.
2)Язык ?

[Naper214]

все. сделал. теперь жду помощи.

[Sm1Le]

1

program Project2;


var SomeString2,SomeString,sstr:string;I:INTEGER;
 begin
  Writeln('BBeguTe cTPoKy : ');
  readln(SomeString);
  sstr:='';SomeString:=SomeString+' ';
  for i:=1 to length(SomesTRING) DO
    begin
      if SomeSTring[i]=' ' then
        begin
          if sstr<>'hello' then
            begin
              SomeString2:=SomeString2+sstr+' ';
              sstr:='';
            end
          else
            sstr:='';
        end
      else
        sstr:=sstr+SomeString[i];
    end;
 Writeln(SomeString2);
 readln;
 end.

[Naper214]

ого! спасибо большое!

[Sm1Le]

2

program Project2;


var SomeString,sstr:string;I:INTEGER;
 begin
  Writeln('BBeguTe cJLoBo : ');
  readln(SomeString);
  sstr:='';
  for i:=1 to length(SomesTRING) DO
    begin
      sstr:=sstr+'*'
    end;
SomeString:=sstr+SomeString+sstr;
 Writeln(SomeString);
 readln;
 end.

[Sm1Le]

3 задание вопрос вот в чем а что если этот МАКС элемент находиться в нескольких строках ?? =)

[Naper214]

хм...хороший вопрос....мне кажется массив заполняется вручную а не randomize'ом....и подразумевается что повторяющихся элементов нет...

[Sm1Le]

4

USES CRT;
var
mas:array[1..8,1..8]of real;
mas2:array[1..8,1..8]of real;
i,j:integer;
max:real;
bool:boolean;
begin
randomize;
clrscr;
for i:=1 to 8 do
    begin
         for j:=1 to 8 do
             begin
                  mas[i,j]:=random(1000);
             end;
    end;

for i:=1 to 8 do
    begin
         for j:=1 to 8 do
             begin
                  write(mas[i,j]:6:2);
                  write(' ');
             end;
             writeln;
   end;
   writeln;
   writeln;


for i:=1 to 8 do
    begin
         for j:=1 to 8 do
             begin
                  if max<mas[i,j] then
                     max:=mas[i,j];
             end;
    end;
    Writeln('max=',max:6:2);
    writeln;
    writeln;
i:=1;j:=1;bool:=false;
while(i<9) do
begin
     if mas[i,j]=max then
     Bool:=true;
     i:=i+1;
     j:=j+1;
end;
if bool then
   begin
        for i:=1 to 8 do
    begin
         for j:=1 to 8 do
             begin
                  mas2[i,j]:=mas[i,j]*2;
             end;
   end;

   end
  else
  begin
  for i:=1 to 8 do
    begin
         for j:=1 to 8 do
             begin
                  mas2[i,j]:=(mas[i,j])/2;
             end;
   end;

  end;
for i:=1 to 8 do
    begin
         for j:=1 to 8 do
             begin
                  write(mas2[i,j]:6:2);
                  write(' ');
             end;
             writeln;
   end;
readln;
end.

[Naper214]

Sm1Le, спасибо огромное!!! нереально выручаешь!!!