[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. Dosia

    Dosia Member

    Joined:
    5 Jun 2009
    Messages:
    118
    Likes Received:
    81
    Reputations:
    6
    Задание номер 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
     
    #4261 Dosia, 28 Sep 2009
    Last edited: 28 Sep 2009
    1 person likes this.
  2. xtra

    xtra New Member

    Joined:
    11 Mar 2007
    Messages:
    26
    Likes Received:
    2
    Reputations:
    0
    да.
     
  3. xtra

    xtra New Member

    Joined:
    11 Mar 2007
    Messages:
    26
    Likes Received:
    2
    Reputations:
    0
    как же тебя отблагодарить?)))

    p.s. только один вопрос, что значит write (#13#10);
     
  4. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    write (#13#10);
    это тоже самое что и
    writeln ();
     
  5. xtra

    xtra New Member

    Joined:
    11 Mar 2007
    Messages:
    26
    Likes Received:
    2
    Reputations:
    0
    только компилятор ругнулся и отказался переварить. спасибо большое.
     
  6. SITH

    SITH New Member

    Joined:
    21 May 2007
    Messages:
    6
    Likes Received:
    1
    Reputations:
    10
    Нужна помощь, Консольное приложение, Делфи, вводим русскими буквами слова, на выходе получаем тоже слово латиницей, пробовал через двумерный массив не выходит, пробовал обращаться к буквам через chr, тоже не вышло, буду благодарен за помощь..
     
    #4266 SITH, 28 Sep 2009
    Last edited: 28 Sep 2009
  7. mailbrush

    mailbrush Well-Known Member

    Joined:
    24 Jun 2008
    Messages:
    1,997
    Likes Received:
    996
    Reputations:
    155
    Создавай два массива, значения которых соответствуют одно одному.
    Т.е. первый ('а','б'...'я'), второй ('a','b'...'ya') ну и ищи по элементам второго массива, значения выводи.
     
  8. Dosia

    Dosia Member

    Joined:
    5 Jun 2009
    Messages:
    118
    Likes Received:
    81
    Reputations:
    6
    типо транслиттер?
     
  9. SITH

    SITH New Member

    Joined:
    21 May 2007
    Messages:
    6
    Likes Received:
    1
    Reputations:
    10
    Да
    Принцип мне ясен я не могу реализовать, сейчас просто код не могу свой выложить...
     
  10. Dosia

    Dosia Member

    Joined:
    5 Jun 2009
    Messages:
    118
    Likes Received:
    81
    Reputations:
    6
    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 из - за возникших проблем с существующими функциями перевода русских символов в верхний регистр.
     
    #4270 Dosia, 29 Sep 2009
    Last edited: 29 Sep 2009
  11. MaTpOc

    MaTpOc Elder - Старейшина

    Joined:
    5 May 2008
    Messages:
    633
    Likes Received:
    475
    Reputations:
    25
    Помогите в заданной последователности целых чисел определить количество и сумму элементов равных 10.
     
  12. mailbrush

    mailbrush Well-Known Member

    Joined:
    24 Jun 2008
    Messages:
    1,997
    Likes Received:
    996
    Reputations:
    155
    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;
     
    1 person likes this.
  13. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    Подскажите пожалуйста, как можно подсчитать количество уникальных цветов в bitmap и сохранить палитрут цветов?
     
  14. axe89

    axe89 Banned

    Joined:
    18 Aug 2008
    Messages:
    135
    Likes Received:
    46
    Reputations:
    -6
    Чауваки кто может подсказать? вот есть онлайн сниффер hacker-pro.ru вот мне нужно поместить javascript В картинку чтоб послать эту картинку кому нить на мыло и когда он её посмотрит чтоб мне пришли кукисы! Подскажите как нужно сформулировать этот javascript
     
  15. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    2 alexey-m ну пробегись по всем пикселям картинки и в массив запоменай те цвета которые уже были. и потом посчитаеш кол-во элементов полученного массива

    2 axe89 этот метот уже как лет 6 непашет. т.е. JS в картинке при всём желании не выпонилнится. Да и почти все почтовики бликируют JS внутри письма. если смотриш через WEB
     
  16. tosip

    tosip New Member

    Joined:
    1 Jul 2009
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Создание VPN в delphi

    Нужно создать VPN средствами Delphi, подскажите как? Желательно компонент и код! Заранее Спасибо!
     
  17. wolmer

    wolmer Member

    Joined:
    12 May 2009
    Messages:
    438
    Likes Received:
    97
    Reputations:
    9
    axe89

    Смотря что нужно, кукисы естественно не получится получить но вот IP получить наверняка получится (при условии что почтовик не заблочит нашу картинку (о JS щас вообще молчу))
    Получение IP жертвы (причем чтобы был IP актуальным для скана портов) многое значит для специалиста в компьютерном мире (не закрытые порты, через них же можно порутать тачку (переполнение буффера, нуллевая сессия (если какой либо порт авторизует юзера для доступа) и т.п.))

    Вопрос по TreeView

    Есть дерево, в котором лежит еще одно дерево
    Как узнать integer первого дерева опираясь на integer второго дерева (integer второго дерева известен)(то есть узнать родителя второго дерева)
     
    #4277 wolmer, 30 Sep 2009
    Last edited: 30 Sep 2009
  18. Nullsleep

    Nullsleep Member

    Joined:
    2 Jun 2009
    Messages:
    67
    Likes Received:
    26
    Reputations:
    0
    TreeView1.Items.Item[0].Item[3]......Count;
    вместо многоточия пиши Item[индекс] столько раз сколько нужно
     
  19. wolmer

    wolmer Member

    Joined:
    12 May 2009
    Messages:
    438
    Likes Received:
    97
    Reputations:
    9
    Это количество дерев/елементов в указаном дереве, но никак не решение моей проблемы (подкоректировал вопрос, чтобы понятнее было)
     
    #4279 wolmer, 30 Sep 2009
    Last edited: 30 Sep 2009
  20. Nullsleep

    Nullsleep Member

    Joined:
    2 Jun 2009
    Messages:
    67
    Likes Received:
    26
    Reputations:
    0
    Ты пиши попонятнее, я отвечу) Что такое "число дерева поддерева"
     
Thread Status:
Not open for further replies.