Играем мелодию на системном динамике
Post Views: 3 150 Текст задания : Необходимо проиграть мелодию на системном динамике. Решение :
Подсчет числа оценок без использования условного оператора
Post Views: 4 605 Текст задания : Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку “5”? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.
В одном шаге от счастья
Post Views: 3 274 Текст задания : Вова купил билет в трамвае 13-го маршрута и сразу посчитал суммы первых трёх цифр и последних трёх цифр номера билета (номер у билета шестизначный). Оказалось, что суммы отличаются ровно на единицу. «Я в одном шаге от счастья», — подумал Вова, — «или предыдущий или следующий билет точно счастливый». Прав ли он?
Вывести в таблицу локальные максимумы и минимумы функции y=sin(a*x^2)
Post Views: 2 129 Текст задания : Вывести значение аргумента при изменении которого от нуля до данного значения, число локальных минимумов и максимумов функции y=sin(a*x^2) достигнет 20. Решение :
Формирование строки подключения во время запуска программы
Post Views: 2 442 В Windows7 компонент ADOConnection при переносе на другие компьютеры готового исходника, сбрасывает строку подключения на собственную “C:\Windows\system32″ или подобную. Выхода и данной ситуации может быть два. Или переносить файл с базой данных в эту папку, или поставить ниже следующий костыль. Данный костыль формирует строку подключения во время запуска программы, а именно создания… Читать далее »
Займись чтением!
Чехов. Lets Read – что в переводе на русский “Давай читай” или просто “Читай”
20 причин читать больше
Закладка в Dataset
Post Views: 2 129 Задача : Поcтавить закладку, пробежаться по всей таблице и вернуть курсор на место закладки. Решение : [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] procedure TForm1.SomeDBOperations; var b: string; begin b := myGrid.DataSource.DataSet.Bookmark; myGrid.DataSource.DataSet.DisableControls; {какие-то операции с Table1} ….. ….. myGrid.DataSource.DataSet.EnableControls; myGrid.DataSource.DataSet.Bookmark := b; end; [/cc]
Переворот строки
Post Views: 2 908 Задача : Поменять местами символы в строке, так чтобы она развернулась в обратном порядке. Решение : Строка в Delphi представляет собой массив символов. К каждому символу можно обращаться по его индексу. Все что от нас требуется это пройтись в цикле по строке в обратном порядке и записать этот обратный порядок в новую… Читать далее »
Вывести 10 дат начиная с сегодня (pl/sql)
Post Views: 2 324 Задание : “Вывести 10 дат начиная с сегодняшней СУБД Oracle язык Pl/SQL” Решение Вариант №1 Через рекурсивный запрос [cc lang=”plsql” tab_size=”2″ line_numbers=”false” no_links=”false” escaped=”true”] select trunc(sysdate+level-1) date1 from dual connect by level
Установка времени и даты на локальном компьютере
Post Views: 2 001 Устанавливаем год на компьютере – GetLocalTime(tm); tm.wYear:= 2000; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем месяц на компьютере – GetLocalTime(tm); tm.wMonth:= 01; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем день на компьютере – GetLocalTime(tm); tm.wDay:= 01; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем часы на компьютере – GetLocalTime(tm); tm.wHour:= 0; SetLocalTime(tm); // var tm: TSystemTime;… Читать далее »