Требуется в паскале написать программу: N -целые числа. Найти значение выражения: y=x1 +2x2 + 3x3 ... nXn Необходимо использовать только цикл for
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;
Code: y:=0; for i:=1 to n do y:=y+i*i; а вообще непонятно, что такое х. умножение? или есть массив х1, х2 и т.д.
Всем здравья, долголетия и счастья пытаюсь написать google http парсер: PHP: function Parse(const tag1, tag2, source: string): TStrings;varp, p2, len: Integer;beginResult := nil;p := Pos(tag1, source);len := Length(tag1);p2 := PosEx(tag2, source, p + len + 1);if (p = 0) or (p2 = 0) then Exit;Result := TStringList.Create;while (p > 0) and (p2 > 0) do begin if p2 > p then Result.Add(Copy(source, p + len, p2 - p - len)); p := PosEx(tag1, source, p2); p2 := PosEx(tag2, source, p + len + 1); end;end;procedure TForm1.Button2Click(Sender: TObject);varstr:string;strings: TStrings;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 beginmemo3.Lines.Addstrings(strings);strings.Free;end;end;end. Result: Spoiler http://happy-hack.ru/sql/11434-dorki-dlya-google.html http://webcache.googleusercontent.c...tml+&cd=1&hl=ru&ct=clnk&gl=ru http://forum.antichat.ru/threads/425256/ http://webcache.googleusercontent.c...56/+&cd=2&hl=ru&ct=clnk&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&&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">? 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/+&cd=4&hl=ru&ct=clnk&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+&cd=5&hl=ru&ct=clnk&gl=ru http://userhack.ru/threads/dorki.1117/ http://webcache.googleusercontent.c...17/+&cd=6&hl=ru&ct=clnk&gl=ru https://vk.com/topic-65374165_30062185 http://webcache.googleusercontent.c...185+&cd=7&hl=ru&ct=clnk&gl=ru https://uniquecode.ru/threads/3124/ http://webcache.googleusercontent.c...24/+&cd=8&hl=ru&ct=clnk&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+&cd=9&hl=ru&ct=clnk&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+&cd=10&hl=ru&ct=clnk&gl=ru Как можно удалить излишнюю информацию ? Что то вроде "если строка не начинается с http или https удалить!" ?
Доброго времени суток. Подскажите пожалуйста хороший учебник по Delphi 7 , хочу научится делать различного рода программы , с использованием доступа к интернет. Любого рода "отправлялки" сообщений , регистраторы аккаунтов и так далее. Но знания мои на низком уровне. Есть ли литература , которая удовлетворит мои нужды ? Возможно можно сразу перейти к изучению работы с интернет и последовательно изучать еще базовые материалы. Спасибо заранее.
Нет такой литературы. Берешь "учебник для чайников" и "учебник не для чайников" и изучаешь их параллельно.
Если часть строки source, которая начинается с первого символа и имеет длину 4 символа не равна 'http', то выйти из процедуры
А мне надо: "если строки не начинаются с http или https удалить эти строки. Можно так сделать как нибудь ?
Спасибо конечно всё наглядно и просто только я имею вылет программы с ошибкой PHP: vars,str:string;strings: TStrings;i:integer;beginstr:=Webbrowser1.Oleobject.Document.body.innerHTML;strings:= Parse('event)" href="', '" target="_blank">', str);for i:=1 to strings.count doif Copy(strings.Strings[i],1,4)<>'http'then strings.Delete(i);memo3.Lines.Addstrings(strings);end;end. Она жалуется конкретно на это: PHP: strings.Strings[i]
Ну я тебя понял, но это абсолютно ничего не делает разве что создаёт ещё такие же строки PHP: vars,str:string;strings: TStrings;i:integer;beginstr:=Webbrowser1.Oleobject.Document.body.innerHTML;strings:= Parse('event)" href="', '" target="_blank">', str);for i:=0 to strings.count-1 doif Copy(strings.Strings[i],1,4)<>'http'then strings.Delete(i);memo3.Lines.Addstrings(strings);end;end.
Я опять протупил с циклом, ведь при удалении не валидных строк индексы смещаются и поэтому возникает исключение. Все что требуется, это добавить поправку на это смещение. PHP: vardispose:integer=0;for i:=0 to strings.count-1 doif Copy(strings.Strings[i],1,4)<>'http'then begin strings.Delete(i-dispose); inc(dispose); end; Не пейте пиво после коньяка!
Опять тоже самое ничё не проиходит: PHP: vars,str:string;strings: TStrings;i:integer;dispose:integer;begindispose:=0;str:=Webbrowser1.Oleobject.Document.body.innerHTML;strings:= Parse('event)" href="', '" target="_blank">', str);for i:=0 to strings.count-1 doif Copy(strings.Strings[i],1,4)<>'http'then begin strings.Delete(i-dispose); inc(dispose); end;memo3.Lines.Addstrings(strings);end;end.
