Задание номер 1: Code: program MATR; var Matrix:array[1..5,1..5] of integer; I,J:integer; SummaElementov:array[1..5] of integer; begin for I:=1 to 5 do begin for J:=1 to 5 do begin Matrix[I,J]:=I+J; write (Matrix[I,J],' '); SummaElementov[i]:=SummaElementov[i]+ Matrix[I,J]; end; write (#13#10); end; writeln; for I:=1 to 5 do writeln('Summa elementov stroki ',I,' = ',SummaElementov[I]); readln; end. Результат работы: Code: 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 Summa elementov stroki 1 = 20 Summa elementov stroki 2 = 25 Summa elementov stroki 3 = 30 Summa elementov stroki 4 = 35 Summa elementov stroki 5 = 40 Задание номер 2: Code: program STROK; var Matrix:array[1..5,1..7] of integer; Naim,Naib:array[1..5] of integer; I,J:integer; begin randomize; for I:=1 to 5 do begin Naim[I]:=10; Naib[I]:=0; for J:=1 to 7 do begin Matrix[I,J]:=random(9)+1; {generim 4icla ot 1 do 9} write (Matrix[I,J],' '); IF Naim[I]>Matrix[I,J] then Naim[I]:=Matrix[I,J]; IF Naib[I]<Matrix[I,J] then Naib[I]:=Matrix[I,J]; end; write (#13#10); end; writeln; writeln('Sorted:'); writeln; for I:=1 to 5 do begin for J:=1 to 7 do begin if I=1 then write(Matrix[I,J],' '); if I > 1 then if Naim[I]=Matrix[I,J] then write(Naib[I-1],' ') else write(Matrix[I,J],' '); end; write(#13#10); end; readln; end. Результат работы: Code: 8 5 2 2 1 5 2 4 9 8 6 4 7 6 3 3 5 3 8 1 7 8 1 7 2 7 6 4 3 9 7 4 9 3 6 Sorted: 8 5 2 2 1 5 2 8 9 8 6 8 7 6 3 3 5 3 8 9 7 8 8 7 2 7 6 4 8 9 7 4 9 8 6 Собрано и тестировалось в Turbo Pacal 7
Нужна помощь, Консольное приложение, Делфи, вводим русскими буквами слова, на выходе получаем тоже слово латиницей, пробовал через двумерный массив не выходит, пробовал обращаться к буквам через chr, тоже не вышло, буду благодарен за помощь..
Создавай два массива, значения которых соответствуют одно одному. Т.е. первый ('а','б'...'я'), второй ('a','b'...'ya') ну и ищи по элементам второго массива, значения выводи.
Code: program Translit; {$APPTYPE CONSOLE} uses SysUtils; const ENG: array[1..33] of string = ('A','B','V','G','D','E','JO','ZH','Z','I','J','K','L','M','N','O','P','R','S','T','U','F','H','Z','CH','SH','SHH','"','I','"','YE','JU','JA'); RUSup: array[1..33] of integer = (128, 129, 130, 131 ,132, 133, 240, 134, 135 ,136 ,137 ,138, 139 ,140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159); RUSlw: array[1..33] of integer = (160, 161, 162, 163, 164, 165, 241, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239); var i,b:integer; strBuff,strOut:string; begin writeln('Vvedite slova dlia transliterazii'); readln(strBuff); for i:=1 to length(strBuff) do begin b:=1; strOut:=''; if strBuff[i] <> ' ' then while b<>length(RUSup)+1 do begin if ord(strBuff[i])=RUSup[b] then begin strOut:=UpperCase(ENG[b]); end; if ord(strBuff[i])=RUSlw[b] then begin strOut:=LowerCase(ENG[b]); end; inc(b); end; if strOut = '' then strOut :=strBuff[i]; write(strOut); end; readln; end. Результат работы: Code: Vvedite slova dlia transliterazii ОдИн ДВА три ПРОверКА СВязИ123 1 2 3 ПРОВЕрКа123 OdIn DVA tri PROverKA SVjazI123 1 2 3 PROVErKa123 Если вам кажется что код немного кривоват и не оптимизирован - посмотрите на время поста. Использую массив кодов ascii из - за возникших проблем с существующими функциями перевода русских символов в верхний регистр.
Code: var Form1: TForm1; my: array[0..9] of integer = (1,15,10,100,50,33,78,10,90,10); ... procedure TForm1.Button1Click(Sender: TObject); var i, count, summ: integer; begin count := 0; for i:=0 to length(my) do begin if my[i] = 10 then begin count := count + 1; end; end; ShowMessage('В массиве ' + IntToStr(count) + ' элементов, равных 10, общая сумма которых ' + IntToStr(count*10)); end;
Подскажите пожалуйста, как можно подсчитать количество уникальных цветов в bitmap и сохранить палитрут цветов?
Чауваки кто может подсказать? вот есть онлайн сниффер hacker-pro.ru вот мне нужно поместить javascript В картинку чтоб послать эту картинку кому нить на мыло и когда он её посмотрит чтоб мне пришли кукисы! Подскажите как нужно сформулировать этот javascript
2 alexey-m ну пробегись по всем пикселям картинки и в массив запоменай те цвета которые уже были. и потом посчитаеш кол-во элементов полученного массива 2 axe89 этот метот уже как лет 6 непашет. т.е. JS в картинке при всём желании не выпонилнится. Да и почти все почтовики бликируют JS внутри письма. если смотриш через WEB
Создание VPN в delphi Нужно создать VPN средствами Delphi, подскажите как? Желательно компонент и код! Заранее Спасибо!
axe89 Смотря что нужно, кукисы естественно не получится получить но вот IP получить наверняка получится (при условии что почтовик не заблочит нашу картинку (о JS щас вообще молчу)) Получение IP жертвы (причем чтобы был IP актуальным для скана портов) многое значит для специалиста в компьютерном мире (не закрытые порты, через них же можно порутать тачку (переполнение буффера, нуллевая сессия (если какой либо порт авторизует юзера для доступа) и т.п.)) Вопрос по TreeView Есть дерево, в котором лежит еще одно дерево Как узнать integer первого дерева опираясь на integer второго дерева (integer второго дерева известен)(то есть узнать родителя второго дерева)
TreeView1.Items.Item[0].Item[3]......Count; вместо многоточия пиши Item[индекс] столько раз сколько нужно
Это количество дерев/елементов в указаном дереве, но никак не решение моей проблемы (подкоректировал вопрос, чтобы понятнее было)