[ Delphi / Pascal ] — начинающим: задаем вопросы

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by begin_end, 28 Apr 2015.

  1. Fiorentina

    Fiorentina New Member

    Joined:
    8 Oct 2015
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Требуется в паскале написать программу: N -целые числа. Найти значение выражения: y=x1 +2x2 + 3x3 ... nXn
    Необходимо использовать только цикл for
     
  2. binarymaster

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

    Joined:
    11 Dec 2010
    Messages:
    4,442
    Likes Received:
    9,232
    Reputations:
    117
    Code:
    var
      N, Y, I: Integer;
      X: Array of Integer;
    begin
      N := 100;
      SetLength(X, N + 1); // чтоб индексы с 1
      Y := 0;
      for I := 1 to N do
        Y := Y + I * X[I];
    end;
    
     
  3. Fiorentina

    Fiorentina New Member

    Joined:
    8 Oct 2015
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    что это означает?)
     
  4. binarymaster

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

    Joined:
    11 Dec 2010
    Messages:
    4,442
    Likes Received:
    9,232
    Reputations:
    117
    Обращение к массиву по индексу. Разве это не очевидно?
     
  5. Fiorentina

    Fiorentina New Member

    Joined:
    8 Oct 2015
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    а можно эту задачу решить без массивов?
     
  6. crystalbit

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

    Joined:
    6 Jun 2008
    Messages:
    217
    Likes Received:
    89
    Reputations:
    8
    Code:
    y:=0;
    for i:=1 to n do y:=y+i*i;
    
    а вообще непонятно, что такое х. умножение? или есть массив х1, х2 и т.д.
     
  7. Fiorentina

    Fiorentina New Member

    Joined:
    8 Oct 2015
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    x1 - это первый x
    2*x2 - это 2 умножить на второй x
     
  8. triblekill

    triblekill Member

    Joined:
    21 Aug 2011
    Messages:
    329
    Likes Received:
    64
    Reputations:
    0
    Всем здравья, долголетия и счастья пытаюсь написать google http парсер:
    PHP:
    function Parse(const tag1tag2sourcestring): TStrings;
    var
    pp2lenInteger;
    begin
    Result 
    := nil;
    := Pos(tag1source);
    len := Length(tag1);
    p2 := PosEx(tag2sourcelen 1);
    if (
    0) or (p2 0then
        
    Exit;
    Result := TStringList.Create;
    while (
    0) and (p2 0) do
      
    begin
         
    if p2 p then
           Result
    .Add(Copy(sourcelenp2 len));
         
    := PosEx(tag1sourcep2);
         
    p2 := PosEx(tag2sourcelen 1);
      
    end;
    end;

    procedure TForm1.Button2Click(SenderTObject);
    var
    str:string;
    stringsTStrings;
    begin
    //strings:=Tstringlist.Create;
    str:=Webbrowser1.Oleobject.Document.body.innerHTML;
    strings:= Parse('event)" href="''" target="_blank">'str);
    //if strings <>'http' then delete;
    if strings <> nil then begin
    memo3
    .Lines.Addstrings(strings);
    strings.Free;
    end;
    end;

    end.
    Result:
    http://happy-hack.ru/sql/11434-dorki-dlya-google.html
    http://webcache.googleusercontent.c...tml+&amp;cd=1&amp;hl=ru&amp;ct=clnk&amp;gl=ru
    http://forum.antichat.ru/threads/425256/
    http://webcache.googleusercontent.c...56/+&amp;cd=2&amp;hl=ru&amp;ct=clnk&amp;gl=ru
    http://forum.antichat.ru/threads/323143/
    http://forum.antichat.ru/threads/298808/
    ved="0CDEQuAIwAmoVChMIju_o2tjcyAIVASUsCh2AywpD"><span class="_ygd" style="top: -11px;"><img width="116" height="87" id="vidthumb3" onload="google.aft&amp;&amp;google.aft(this)" alt="Âèäåî ïî çàïðîñó äîðêè" src="data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAUDBAgICAoJCAgICQgICAgKCAgICAgICwkICQgKCQkICQkKCxALBwgOCwkJDSEMDh0dHx8fBxciJCIeJBASExIBBQUFCAcIDwkJDxIMDxAVFxYUFBQWFhQVFhQVFBISEhQUFBUVHhIVEhQSFBQSFBISFBQUHhUVHh4eFB4VFh4UFP/AABEIAFoAeAMBIgACEQEDEQH/xAAdAAABBAMBAQAAAAAAAAAAAAAABAUHCAIDBgEJ/8QASBAAAgECBAIFBgkJBgcAAAAAAQIDBBEABRIhBjETIkFRYQcUFTJCcQhTVoGRlKHR1BYjM1KxweHw8QkkQ2JklRcmRVVjc5L/xAAYAQADAQEAAAAAAAAAAAAAAAAAAwQCAf/EACURAAICAQIFBQEAAAAAAAAAAAABAhEDEiEEEzFRYSJBcYGR8P/aAAwDAQACEQMRAD8Apngx2+bcG00GWQ1y16yyTyxJ5vGqHSXgaWUFxIWEkRCIVK/4ox3/ABb5IuH8srTFUZ5K1GaSlljqY4lkvLUSVS9ERCkltKUuvf433Atliae9GFNEE4MTL+RHBnyiq/qdR+Ex7+Q/BfyirPqdR4/6XwH0+GDlPug1ohnBiaouBuCSOtxJWg9woqg7e/zTGX5CcD/KWt+oVH4XHeV5X6GteSE8eYm0cCcD/KWt+oVH4XB+QnA/ylrfqFR+Fwcryv0Na8kJ4MTX+QnBHymrfqFR+GwfkHwR8pqz/b6n8NjnKfdfoa15IUODE1ngXgj5S1v+31H76fDFxZwPk6QrLlGZVFX+eaOQy07RqpC6wzFkVlQRq7XF/U+fAsTbpUzrkkrIwwYXrSr2lgoIDNa9r38O4cvDCR0HZgeGSBSTMMeYkHjDgSmpMoyzMKWvSofMFRaqnLRKaado9YRdLEtGCHUs9rFO250+YxFNq0aew98ZcJ5vl+U0WZT1vS0OaaOgQTztIhVFnVZY3QKhFlN0J9Tww6eUzgnN8oJocwmWsnl9H1NOaZ5pwYJEzGPYOisGvA5It7Hz4Y+KY62my7LhV01UtHMjz5Z01fFURSDUju5gWPYWkVdLW9f34sX8F/J6/wBLZpS59SRtU01BRdDHUpDVaY2qJtBFpGS1zJsp9s95JolL01a9xMF6vcqt6IqrX82qLXtfoZPW7vV54RY+mx4eof8At1H2f9NiPvt1sLqbhXLdIL0FASe6kp027ipRt8T6SjSfMCjdFkRpE6SNXUvHcrrQMCyahulxcXHfiRM34syGSdZYctKuskdmahohHHAHqXdBSRSLDUyEPSx65r7Rk8wt79z8M5Ugv6No28EpKdj9AjvjyXhjLAtxltFextelpjy8OjxPm4SOVpttUZljvuihlLxXwvHNJKMllfpvOQ6SCJlUTVQdDEhk6OndIrqCgFrW3uThzyfivguGoWofKKqTWag1MEkEEkf5yoSSMRo0/RxCMAsAgGy6DfWXW5x4eo9Wn0fl+9yp8yprAC+zHTYm5X6Pox9AUa+tl1Ad7WSgpx8/JtrX3xzBwUcMtScn8uwji0+7Z81q11MrlTdS7lT0aQ3BYkHo0JWK49heXzY04+mS8P0JG2XUIve16OlFrbHUCnbjWnD1JYnzDLzp1CwoKdSWANit73F7cv6VaTWg+bUVBOyhlhlZWNlZY3IZtWmykCxNyBYYeo6MrlxjqA8F8xi1F42BVTBIC+g2JA3O3dj6HPw9SX0+jqC51aW8xiKgXGkN+b52v9PhbFfvhwZfT01BlnQ00MOuprOk6CGOHVpSMKW0KL7E7n9bFHCRrIhHFRrGypFdHHG4F2lhEh1BGMZkVSOuNSsI2YFhc393YWh9uz5iPAj7B/O2Haokt7xbcHcWHYcaqadAJ+kgExeMhHLODC5kRhN1T1zYMlm+N8BinNFX2E4ZOjr+N+C84y7J8tzWeqibLs1F6SKnmmLU7GIv0bxOqiPqSOOqT+zBhhzjO8xmy6KGaMeYLIRTnRpVZBbWYt7C+gi48f8AMMeYiWpe5SzreKc6lny/L4ayGu6Gnj/uSTIkMXRdQSGCXRrqEICC/Zf6bG/BTzutqM0zKbMYqla3zWjjdau6S9EaiRkJQxJZbySG9v2bV04r8okuY5RluVygdHllgrJAQ7LoKG8hnYSEC22kfZvYn4M/GZzzN8yrCAJfM8ujcdCIhZKmQhv0r6ydbd3LGppJL0pdf77FYm3LqWCnrj1jok9o7TMvLq7ADb1b/PhQmaP8VyH69+236vfhsdpSGNh22ICt7Tfs33+/GUbSn2R2XtYWF9zYDfa/PCrKxcMybY9E/uDkn5hYAnlthTHmcbWGmYE7bog3N7cpOZ/fjVT07AB1drsDuUpgesBzBmuvIbY2wLLcXkY8r3Sk7TY8pibg738Mcs5YkqcxkWwp0EmrUx6d3WwHYNIbubb79m6tzquTrLTRsRa4E0hG6ki66B3/AM2x0+TwnW7PZmZV30oN11KTZGZRfw/hhz6JP1V+gYzmcpQcI+l9zLTvqzkI8wr5CFFPDqIBt07rYgA6bmMC+5FvDC2KDMgm0NLck9WWqmuN7bsIm2sL/Pjo1jUclA9wAxnhiyUkqRmn3ZyzQZqSD0NDt2CsqbdvMebWPPtxXL4d/nAoMr85SFZPOqywhkeRdPRQ2JZ41N732ti22Kv/AA94g1LlpJUaZavYi97xxLYbEA2JN/D3Yp4ablkSSSJ+JuONttspW9KCC53VbBtwCWa9lXntsTfw8RhKKN2RnVSVTdza+kalW7W9UanUXPfhzrbnlva/Z2EXYkW3Pif3YQSNtYcufYd7C+9uXPb+JNeSKJ8eRtD/AMUzv5nSRyUtTArUwFPJKGSFog4lLROqf3rVrW5PLSOekWMP/HXlF9I5Jl+UFSI8pINNL0Ajdup0dpGFQwsFv6o7PfjzEkYuuhU5jlxlmdHJwzQUsFII6ykdHqqgzxsxuHVxoBN9UkiMCp5dnPFgvg9cY0ud51X1dFRx0YGWZVFNGgRQ0y1lS7O2mNQWCSIl/wDxc+6u/FC5BLkmTej4xBmpdY81YT2Ei9GQzyRmUqDq1G+36TxAxZnyAS5M9ZV+hqOGlHRp0xhZmWWNqzVTFQzs2lImKXPaD3gKmU3Pd2Miqe1EuVBkOom1gGsOrzDPbs7sbYekv1iCBzA0i41WsDY2PjjVUK/W6xtZtr/5m7bbY2Ism/W7BzN/a3tsLYUOFlPVBF2RwDe/XhPZ2Xh+wY9gzEk26M+sP8WE7+yv6Hkbfb9CDTJo9b2G7NXIXJI7dtsZ0drqXR9QcDUJVGylWA0mNjsF5fwA5QHSZNLru1iLqNjo5aiN9AC/R/HDnhryK1jYEC3a2r229qwvh0wM4GDBgwAGKt/D/l0U2Vn/AFFV2X/w4sWkxVb+0Ga1LlfcZ6y5sDb81Fbc+oNWkX8cO4eVZExHER1Y2indRKCTpJG5AHIlTe97bd23jhKQpFrAEEm+5uCB1edhax+n3YyckG3u+/Gp2GL5SIIquhhIthz79t9uW/d/TBjU8hO1/D5r3wYU5FCR3Oe8K5elPlb0stSZKqKnOZdKyEQySuiMsSdErJpJOzE+uPebXfB+4Ty7LK2q9H5jJWNPBD0wkeEiAR1ClFjWJFEanpJBpHxWINm4ayKVVjk4mpzGoRlVKvKordGTojaQIrG2kH+QT23k79D8OTM2X8V0kvnaxpManMKCZUWNwVCaZF0eu53+L92I8cG1V38lTaTss5NE5Db89VrFu0tYbdljjOOJ+1u72m3s3q+4jf8Am2Ihn8pNIFunFmTs5FipqKNQCerzE52tvdf6p38qEAK/8z5OxMhDaKqhKqA9g/WmW6kdaxHZ7gd8na9jcZJulZN3SHT+iivpItrqO7YfpL/PghkOoHoYgL98wNua3HSEXBAxC8PlSpXldJOJspRI7aZBU5cokLRs3V0z3FmCrv34UJ5UaFACOKcpOojYz5e+kHb2pTvsP5N8Zjit0gclGNuydsmqlUdcqptyBYi+onbUS3b24cPP4fjB9uK/w+VbL2fQeKspWwj1OfRgW7Al9BEpuF2+nw3yfyp0ALW4qydhtpIfKh36i2qUHsHL+OOaN6OOcfJP3pCH4wfbg9IQ/GL9uK+ReVajL6TxRkwULGS/S5UblmIdVTpNtIF7nvwk/wCL0Io5JxxBkzVKBdFH53lCGQlyptKXIHV624+/HNFHdUfJY70hD8YPtxVT+0MqFajyko1x51V3I/8AVGcdbUeVGiBsnFWTG2q7GXKrXD2UACXe63N/v24HyuV+T8QQwrW8VZafNGmaJaapyyIkzRhHDfnG1AqLfPhuPE072FZZJqtypU07udZZmY82JJN7dpvf+mNTcue/dv4/d9uJiTyd8LE78RwgaSd62gO4W4TbvO18C+T7hgEFeJIgRurefUAsyk25bg7D/wCvA4YJ0nG53kGXQ5FRVkctScxqWmFTA7IY4FSRhFIqrGrxh0VD1yfX91jHbV3AnDop7DiZJNIGmD0ll5XvUKNRtvgxx/RqiBMGDBiIoDBgwYADBgwYADBgwYADBgwYADBgwYADBgwYADBgwYAP/9k=" border="0"></span><span class="vdur _dwc">?&nbsp;16:09</span></a></div></div><div style="margin-left: 125px;"><div class="f kv _SWb" style="white-space: nowrap;"><cite class="_Rm">www.youtube.com/watch?v=L9UZUypLy8c</cite></div><div class="f slp">7 äåê. 2014 ã. - Äîáàâëåíî ïîëüçîâàòåëåì Csh Csh</div><span class="st">SQLi ñàéòà <em>Äîðêè</em>. Csh Csh .... 7:27. êàê äåëàòü ïðèâàò <em>äîðêè</em> è êàê ðàñøèôðîâûâàòü õýøè 2015 - Duration: 7:43. by èëüÿ 687 views. 7:43.</span></div><div style="clear: left;"></div></div></div></div><div class="g"><div class="rc" data-hveid="50"><h3 class="r"><a onmousedown="return rwt(this,'','','','4','AFQjCNEv5QzACAUo1FCyUNgN924v9e2u9Q','','0CDMQFjADahUKEwiO7-ja2NzIAhUBJSwKHYDLCkM','','',event)" href="https://bhf.su/threads/117788/
    http://webcache.googleusercontent.c...88/+&amp;cd=4&amp;hl=ru&amp;ct=clnk&amp;gl=ru
    https://bhf.su/threads/113689/
    https://bhf.su/threads/80598/
    https://bhf.su/threads/75542/
    http://zhacker.net/mysql/2173-google-dorki-dlya-sql-inekciy
    http://webcache.googleusercontent.c...ciy+&amp;cd=5&amp;hl=ru&amp;ct=clnk&amp;gl=ru
    http://userhack.ru/threads/dorki.1117/
    http://webcache.googleusercontent.c...17/+&amp;cd=6&amp;hl=ru&amp;ct=clnk&amp;gl=ru
    https://vk.com/topic-65374165_30062185
    http://webcache.googleusercontent.c...185+&amp;cd=7&amp;hl=ru&amp;ct=clnk&amp;gl=ru
    https://uniquecode.ru/threads/3124/
    http://webcache.googleusercontent.c...24/+&amp;cd=8&amp;hl=ru&amp;ct=clnk&amp;gl=ru
    https://uniquecode.ru/threads/1890/
    https://uniquecode.ru/threads/5578/
    https://uniquecode.ru/threads/7073/
    http://zhyk.ru/forum/archive/index.php?t-1025786.html
    http://webcache.googleusercontent.com/search?q=cache:zSR0wXSLld4J:zhyk.ru/forum/archive/index.php?t-1025786.html+&amp;cd=9&amp;hl=ru&amp;ct=clnk&amp;gl=ru
    https://ru.wikipedia.org/wiki/Дорки
    http://webcache.googleusercontent.com/search?q=cache:7ZSFcgGmoPoJ:https://ru.wikipedia.org/wiki/%D0%94%D0%BE%D1%80%D0%BA%D0%B8+&amp;cd=10&amp;hl=ru&amp;ct=clnk&amp;gl=ru

    Как можно удалить излишнюю информацию ? Что то вроде "если строка не начинается с http или https удалить!" ?
     
    #68 triblekill, 25 Oct 2015
    Last edited: 25 Oct 2015
  9. #colorblind

    #colorblind Elder - Старейшина

    Joined:
    31 Jan 2014
    Messages:
    594
    Likes Received:
    217
    Reputations:
    36
    if Copy(source,1,4)<>'http'
    then exit;
     
  10. DraGuSs

    DraGuSs New Member

    Joined:
    11 Jun 2013
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Доброго времени суток. Подскажите пожалуйста хороший учебник по Delphi 7 , хочу научится делать различного рода программы , с использованием доступа к интернет. Любого рода "отправлялки" сообщений , регистраторы аккаунтов и так далее. Но знания мои на низком уровне. Есть ли литература , которая удовлетворит мои нужды ? Возможно можно сразу перейти к изучению работы с интернет и последовательно изучать еще базовые материалы. Спасибо заранее.
     
  11. #colorblind

    #colorblind Elder - Старейшина

    Joined:
    31 Jan 2014
    Messages:
    594
    Likes Received:
    217
    Reputations:
    36
    Нет такой литературы. Берешь "учебник для чайников" и "учебник не для чайников" и изучаешь их параллельно.
     
  12. triblekill

    triblekill Member

    Joined:
    21 Aug 2011
    Messages:
    329
    Likes Received:
    64
    Reputations:
    0
    А можно пожалуйста разжевать ?
     
    #72 triblekill, 25 Oct 2015
    Last edited: 25 Oct 2015
  13. crystalbit

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

    Joined:
    6 Jun 2008
    Messages:
    217
    Likes Received:
    89
    Reputations:
    8
    Если часть строки source, которая начинается с первого символа и имеет длину 4 символа не равна 'http', то выйти из процедуры
     
  14. triblekill

    triblekill Member

    Joined:
    21 Aug 2011
    Messages:
    329
    Likes Received:
    64
    Reputations:
    0
    А мне надо: "если строки не начинаются с http или https удалить эти строки.
    Можно так сделать как нибудь ?
     
    #74 triblekill, 25 Oct 2015
    Last edited: 25 Oct 2015
  15. #colorblind

    #colorblind Elder - Старейшина

    Joined:
    31 Jan 2014
    Messages:
    594
    Likes Received:
    217
    Reputations:
    36
    for i:=1 to strings.count do
    if Copy(strings.Strings,1,4)<>'http'
    then strings.Delete(i);
     
  16. triblekill

    triblekill Member

    Joined:
    21 Aug 2011
    Messages:
    329
    Likes Received:
    64
    Reputations:
    0
    Спасибо конечно всё наглядно и просто только я имею вылет программы с ошибкой :(

    PHP:
    var
    s,str:string;
    stringsTStrings;
    i:integer;
    begin
    str
    :=Webbrowser1.Oleobject.Document.body.innerHTML;
    strings:= Parse('event)" href="''" target="_blank">'str);
    for 
    i:=1 to strings.count do
    if 
    Copy(strings.Strings[i],1,4)<>'http'
    then strings.Delete(i);
    memo3.Lines.Addstrings(strings);
    end;
    end.
    Она жалуется конкретно на это:
    PHP:
    strings.Strings[i]
     
  17. #colorblind

    #colorblind Elder - Старейшина

    Joined:
    31 Jan 2014
    Messages:
    594
    Likes Received:
    217
    Reputations:
    36
    Писал с бодунища, забыл что в TStrings нумерация идет с 0
    PHP:
    for i:=0 to strings.count-do
     
  18. triblekill

    triblekill Member

    Joined:
    21 Aug 2011
    Messages:
    329
    Likes Received:
    64
    Reputations:
    0
    Ну я тебя понял, но это абсолютно ничего не делает разве что создаёт ещё такие же строки

    PHP:
    var
    s,str:string;
    stringsTStrings;
    i:integer;
    begin
    str
    :=Webbrowser1.Oleobject.Document.body.innerHTML;
    strings:= Parse('event)" href="''" target="_blank">'str);
    for 
    i:=0 to strings.count-do
    if 
    Copy(strings.Strings[i],1,4)<>'http'
    then strings.Delete(i);
    memo3.Lines.Addstrings(strings);
    end;
    end.
     
  19. #colorblind

    #colorblind Elder - Старейшина

    Joined:
    31 Jan 2014
    Messages:
    594
    Likes Received:
    217
    Reputations:
    36
    Я опять протупил с циклом, ведь при удалении не валидных строк индексы смещаются и поэтому возникает исключение. Все что требуется, это добавить поправку на это смещение.

    PHP:
    var
    dispose:integer=0;

    for 
    i:=0 to strings.count-do
    if 
    Copy(strings.Strings[i],1,4)<>'http'
    then begin
            strings
    .Delete(i-dispose);
            
    inc(dispose);
            
    end;
    Не пейте пиво после коньяка!
     
    #79 #colorblind, 26 Oct 2015
    Last edited: 26 Oct 2015
  20. triblekill

    triblekill Member

    Joined:
    21 Aug 2011
    Messages:
    329
    Likes Received:
    64
    Reputations:
    0
    Опять тоже самое ничё не проиходит:
    PHP:
    var
    s,str:string;
    stringsTStrings;
    i:integer;
    dispose:integer;
    begin
    dispose
    :=0;
    str:=Webbrowser1.Oleobject.Document.body.innerHTML;
    strings:= Parse('event)" href="''" target="_blank">'str);
    for 
    i:=0 to strings.count-do
    if 
    Copy(strings.Strings[i],1,4)<>'http'
    then begin
            strings
    .Delete(i-dispose);
            
    inc(dispose);
            
    end;
    memo3.Lines.Addstrings(strings);
    end;
    end.
     
Loading...