• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

DanZas

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

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

DanZas

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

DanZas

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

Poseidon

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

etc

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

BurcevD

Задача 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;
Ну а как ей пользоваться сам допишешь
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!