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

  • Автор темы DanZas
  • Дата начала
D

DanZas

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

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

DanZas

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

DanZas

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

Poseidon

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

BurcevD

Гость
#8
Задача 1:
Код:
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
Код:
 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;
Ну а как ей пользоваться сам допишешь