Помогите с задачками.

Тема в разделе "Delphi - FAQ", создана пользователем DanZas, 2 дек 2008.

  1. DanZas

    DanZas Гость

    В Delphi
    1)Дана квадратная матрица порядка М заменить нулями элементы лежащие ниже главной диагонали.

    2)Описать процедуру trim(s),удаляющую в строке S начальные и конечные пробелы
    использую данную прицидуру преобразить пять строк.
     
  2. etc

    etc Гость

    А чем помочь то? решить за вас?
     
  3. DanZas

    DanZas Гость

    Дак если понимаешь в этом то реши, если понимаешь то быстро сделаешь. И ваще дурацкий вапрос :)
     
  4. etc

    etc Гость

    Дык если не понимаешь то нафик брался? А за решения деньги дают, понимаешь?
     
  5. DanZas

    DanZas Гость

    Дак такбы и отписался что обращайся решу за плату ,а я нечо и небрался))) мне ваще эта информатика не упёрлась задали значет надо сделать, преподы не спрашивают надо или ненадо :)
     
  6. Poseidon

    Poseidon Гость

    DanZas, "помочь" - это когда ты сделал, но не совсем все получилось, мелочь осталась, которую ты по неопытности не можешь найти. А то, что просишь ты - это уже найм специалиста. По 5$ за задачу я тебе их решу. Или пробуй сам, а мы поможем (за бесплатно).
     
  7. etc

    etc Гость

    Ну детский сад, ейбогу, у кого спрашивать то? у вас? а вы то в этом чтонибудь понимаете? или сразу с пеленок преподавать могете?
    Ну детский сад, ейбогу. :)
     
  8. BurcevD

    BurcevD Гость

    Задача 1:
    Код (Text):
    Program Ex1;
    Var a:Array[0..9,0..9] of integer;
    x,y:Integer;
    Begin
    Writeln('Исходная матрица:');
    For y:=0 to 9 do
    begin
    For x:=0 to 9 do
    begin
    a[y,x]:=random(10);
    Write(a[y,x],' ');
    end;
    Writeln;
    end;
    For y:=0 to 9 do
    For x:=0 to y do
    a[y,x]:=0;
    Writeln('Обработанная матрица:');
    For y:=0 to 9 do
    begin
    For x:=0 to 9 do
    Write(a[y,x],' ');
    Writeln;
    end;
    end.
    Примерно так.

    Задача № 2
    Код (Text):
     Function MyTrim(s:string):String;
    Var i:Integer;
    Res:String;
    beg, en:Byte;
    Begin
    Res:='';
    beg:=1; en:=Length(s);
    //Ищем откуда начинать
    i:=beg;
    While s[i]=' ' do Inc(i);
    beg:=i;
    //Ищем где заканчивать
    i:=en;
    While s[i]=' ' do Dec(i);
    en:=i;
    Res:=Copy(s,beg,en-beg+1);
    MyTrim:=Res;
    end;
    Ну а как ей пользоваться сам допишешь
     
Загрузка...

Поделиться этой страницей