Репозитории хрень, убунту хрень. Юзайте дебиан.
Платные файлообменники годятся только для маленьких файлов. Такие заливай на народ/майл.
Смотри сам, хочешь, чтоб куб дублировался для каждой пати - запускай как данж, иначе как мир.
На MSSQL BatGM работает отлично.
Для чего вообще нужны циклы? Они нужны для того, чтобы вводить/выводить повторяющуюся информацию не 100 строками кода, 2-мя. Циклы бывают 3-х видов: 1) Параметрический цикл - цикл с заданным кол-вом итераций (Итерация - один проход всех команд в цикле) 2) Цикл с предусловием - будет выполняться, пока будет или не будет выполняться некое условие 3) Цикл с постусловием - то же самое, что и с предусловием, только условие будет проверяться после итерации, а не перед ней. Допустим, нам нужна сумма чисел от 1-го до 30, мы же не будем писать так:sum := 1+2; sum := sum+3; sum := sum+4;и т.д. Намного проще задействовать для этого цикл: - Параметрическийprogram Project1; {$APPTYPE CONSOLE} uses SysUtils; var i,sum:integer; begin sum := 0; for i := 1 to 30 do sum := sum + i; writeln(sum); readln; end. - Цикл с предусловиемprogram Project1; {$APPTYPE CONSOLE} uses SysUtils; var i,sum:integer; begin sum := 0; i := 1; while i <= 30 do begin sum := sum + i; i := i+1; end; writeln(sum); readln; end.Заметьте, что здесь мы выделили каждую итерацию конструкцией begin-end, показывая компилятору тем самым, что с каждой итерацией нужно выполнять более, чем 1-у команду. - Цикл с постусловием:program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i,sum:integer; begin sum := 0; i := 1; repeat sum := sum + i; i := i+1; until (i > 30); writeln(sum); readln; end.В цикле с постусловием не нужно выделять несколько команд конструкцией begin-end, т.к. конструкция вида repeat-until уже предусматривает выполнение нескольких команд (ну это можно понять, взглянув на код). Если Вам нужно прервать цикл в определенной итерации, то Вы должны воспользоваться командой Break:program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i,sum:integer; begin sum := 0; i := 1; repeat sum := sum + i; i := i+1; if i = 15 then Break; until (i > 30); writeln(sum); readln; end.В этом случае выполнение цикла на 15-й итерации прервется. Иногда бывает нужно пропустить некую итерацию, в этом случае мы воспользуемся командой Continue:program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i,sum:integer; begin sum := 0; for i := 1 to 30 do begin if i = 15 then Continue; sum := sum + i; end; writeln(sum); readln; end.Тогда программа пропустит 15-ю итерацию и, соответственно, не прибавит число 15 (т.к. условие стоит до выполнения суммы). Кстати, поскольку теперь в цикле нужно выполнять более одной операции мы выделили их конструкцией begin-end. Но тут все задано программно и неинтересно. Сделаем ввод с клавиатуры (сделаю только с параметрическим циклом, с другими сами разберетесь):program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i,limit,sum:integer; begin Write('Input sum limit: '); Readln(limit); sum := 0; for i := 1 to limit do sum := sum + i; writeln('Sum: ',sum); readln; end. [img] Вот мы и научились пользоваться циклами. Поздравляю! P.S. Вместо такой конструкции i := i+1 или i := i-1 лучше пользоваться фукциями inc(i) и dec(i) соответственно.
apt-get install sun-java5-jdkТебе консоль сказала, что явы не найдено.
Добрый день. Сегодня я покажу Вам, как работать с переменными. Переменная - это отведенный под программу участок памяти, в который по ходу программы будут заноситься разные значения. Создаем новое консольное приложение (как это сделать описано в 1-м уроке) и объявляем переменную командой var (Variable - переменная):program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a:integer; begin end. Тут мы объявили переменную типа Integer, что значит целые числа в пределах от -2147483648 до 2147483647, то есть наша переменная "a" сможет принять значение от -2147483648 до 2147483647, больше, чем достаточно. Что же мы сделаем дальше? Конечно же присвоим значение этой переменной и выведем её на экран. Оператор присваивания в языке паскаль выглядит так " := ":program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a:integer; begin a := 5; writeln(a); readln; end.Тут мы присвоили переменной "a" значение 5, все просто и замечательно. [img] Но ведь одна переменная это не интересно, давайте сделаем простой калькулятор с одним действием. Для этого нам понадобится 3 переменные:a,b,result: integer; //переменные можно называть, как Вашей душе угодно Выведем на экран сумму a и b:program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a,b,result: integer; begin a := 2; b := 3; result := a + b; writeln(result); readln; end.[img] В данном примере мы задали значения a и b программно, но ведь интересней, если мы введем их с клавиатуры, не так ли? Тут нам пригодится Readln:program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a,b,result: integer; begin readln(a); readln(B); result := a + b; writeln(result); readln; end. Теперь программа умеет складывать числа, введенные с клавиатуры, простенький калькулятор готов.[img] Но выглядит это не очень. Делаем вывод красивым: program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a,b: integer; begin write('Input first argument: '); readln(a); write('Input second argument: '); readln(B); write('Total: ',a+B); readln; end. Заметили, что result на самом-то деле не нужен? Теперь немного о Write/Writeln: все аргументы для вывода следует писать через запятую. Со строками немного по-другому, но сейчас не об этом. [img] Калькулятор готов! Поздравляю!
udp-чат тебе нужен
Имхо лучше сделать цикл с предусловием: While (not (eof(tests))) or (i <> line) do begin ... inc(i); end;
Там нет динамических массивов, а так же в будущем буду писать уроки о создании GUI-приложений. Насчет священной ";" Ex3m прав: после каждой команды нужно её ставить, т.к. это подает знак компилятору, что команды отдельные.
Название темы не отображает суть вопроса. var HandleWindow: THandle; ProcessID: DWord; ... HandleWindow :=FindWindow(nil,'Диспетчер задач'); GetWindowThreadProcessId(HandleWindow,@ProcessID); Так можно получить ID процесса по заголовку.
Свои отношения выясняйте в ЛС. Закрываю.
Итак, для начала нам понадобится среда разработки. Я предпочитаю Embarcadero RAD Studio 2010. Скачали? Отлично. Как установить и крякнуть описано в той же теме, тут об этом писать незачем. Внимание: Запускайте Delphi 2010, а не RAD Studio, иначе потом запутаетесь, что относится к C++, а что к Delphi Выбираем File -> New -> Console Application [img] Не нашли? Фигня-война: нажимаем File -> New -> Other [img] Итак, мы видим такой код:program Project1; //Это само название программы, не обязательно вообще, но лучше пусть будет. {$APPTYPE CONSOLE} //директива компилятору, говорит, что выходной тип приложения текущего проекта будет консоль uses SysUtils; //Подключаемые библиотеки, в SysUtils находятся большинство самых необходимых функций и процедур begin //Начало основного тела программы try { TODO -oUser -cConsole Main : Insert code here } except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. //Конец программы. Видите конструкцию try-except? Сносите её куда подальше, объясню позже, мы ведь простой Hello World пишем. Должно получиться вот это: program Project1; {$APPTYPE CONSOLE} uses SysUtils; begin end. Все, теперь у нас есть заготовка под нашу программу. Немного об используемых процедурах: Writeln - вывод на экран переменной, константы с переносом строки Write - аналогично, но переноса не будет Readln - считывание переменной Read - то же самое Что мы хотим от нашей программы? Нет. Вон вы, в первом ряду! Да, почти! Да, именно это: мы хотим вывести на экран строку. Для этого нам понадобится процедура... Правильно, Writeln. Задаем строковый аргумент в процедуру, после чего наш код приобретает следующий вид:program Project1; {$APPTYPE CONSOLE} uses SysUtils; begin Writeln('Hello world!'); end. Немного пояснений: раз мы передаем постоянную строку, т.е. константу, мы задаем её явно в аргументах процедуры. А чтобы компилятор не расценил это как команду мы заключили её в апострофы. Запускаем. Консоль появилась и сразу исчезла. Программа сработала правильно, вывела в консоли наше сообщение, но мы не объяснили компилятору, что до выхода из приложения нужно дождаться нажатия Enter. Для этого дописываем Readln после вывода сообщения:program Project1; {$APPTYPE CONSOLE} uses SysUtils; begin Writeln('Hello world!'); Readln; end. Теперь все замечательно, вот и наша первая программа: [img] Поздравляю Вас! P.S. Что непонятно - спрашивайте, расскажу и покажу.
Не ну ты прям все и сразу хочешь. Вообще шоп лучше всего самому собирать.
F12 -> Выбираешь кнопку, в Object Inspector переключаешься на Events, ищешь нужное событие и тычешь 2 раза по нему, после этого у тебя вобьется тело операции, в которой нужно писать код. Если нужно базовое действие (клик по кнопке, изменение TEdit), просто 2 раза щелкни по компоненту.
ShowMessage('Текст'); Так же больше люблю это: MessageDlg('Текст',type,[Buttons],0); type: - mtInformation - mtError - mtWarning Buttons: (это массив, поэтому пишется в скобках) mbOK mbCancel mbOKCansel mbHelp и т.д. Виктор, вызывать application не обязательно.
Delphi 7 с установленными копонентами Alpha Controls.
Embarcadero CodeGear RAD Studio 2010 рекомендую
Delphi 2010 + Alpha Controls
http://mmorpg-devs.ru/index.php?threads/2538/
Имена участников (разделяйте запятой).
