Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Влaдимир Статус: 8-й класс Рейтинг: 224 ∙ повысить рейтинг >>

Тимошенко Дмитрий Статус: 9-й класс Рейтинг: 103 ∙ повысить рейтинг >>

Бизин Михаил Анатольевич Статус: 6-й класс Рейтинг: 30 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1363
от 08.05.2009, 07:05

Вопрос № 166288: 1.Задана квадратная матрица Y(5,5).Определить,где больше четных элементов,выше или ниже главной диагонали. > 2.Заполнить квадратную матрицу В(10,10)единицами в шахматном порядке,начиная с верхнего левого угла.Соседние клетки заполнить нулями.<b...

Вопрос № 166.288

1.Задана квадратная матрица Y(5,5).Определить,где больше четных элементов,выше или ниже главной диагонали. > 2.Заполнить квадратную матрицу В(10,10)единицами в шахматном порядке,начиная с верхнего левого угла.Соседние клетки заполнить нулями. > 3.Задан треугольник АВС длинами своих сторон. Определить его медианы(медиана,проведенная к стороне А равна 0,5(2в2+2с2-а2)). > 4.Даны три одномерных массива А(15),В(10),С(20).Вывести на экран их значения в порядке возрастания. > 5.Написать прогу для решения уравнения ху+х+у=1000. > 6.Задана последовательность ,состоящая из нулей и единиц.Определить кол-во М-значных чисел,входящих в указанную последовательность,которые делятся на 2. > 7.Мяч упал с высоты Н=243см и ,ударяясь о землю,отскакивает вновь,поднимаясь каждый раз на 2/3 высоты,с которой он упал.Определить,через сколько ударов мяч поднимется на высоту р=32см. Очень прошу,помогите!!! контрольная горит

Отправлен: 02.05.2009, 12:17 Вопрос задал: Misterx (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Misterx! Код первой задачи: Код: program Project2; {$APPTYPE CONSOLE} uses Windows; const //Рамер массива N = 5; //Нормальный цвет текста в консоли NormCol = FOREGROUND_BLUE + FOREGROUND_GREEN + FOREGROUND_RED; var //Счетчики для цикла i, j: integer; //Матрица Y: array [1..N, 1..N] of integer; //h - четные выше диагонали, l - ниже h, l: integer; //Указатель на консоль hcon: Thandle; begin h := 0; l := 0; randomize; hcon := GetStdHandle(STD_OUTPUT_HANDLE); //Создаем массив. Элементы главной диагонали выводятся красным, четные элементы, не лежащие на ней, зеленым, остальные обычним цветом / /Вывод с цветом сделан для наглядности, если не надо, то удалите строки выделеные жирным шрифтом WriteLn('Матрица: '); for i := 1 to N do begin for j := 1 to N do begin Y[i, j] := random(20) - 10; if i = j then SetConsoleTextAttribute(hcon, FOREGROUND_RED) else if not Odd(Y[i, j]) then SetConsoleTextAttribute(hcon, FOREGROUND_GREEN); Write(Y[i, j]:4); SetConsoleTextAttribute(Hcon, NormCol); end; writeln; end; //Элементы выше диагонали for i := 1 to N - 1 do for j := i + 1 to N do if Not Odd(Y[i, j]) then inc(h); //Ниже for i := 2 to N do for j := 1 to i - 1 do if Not Odd(Y[i, j]) then inc(l); //Выводим результат if h >= l then write('Выше') else write('Ниже'); readln; end. Удачи!!!

Ответ отправил: Абельхарисов Руслан/Marked One (статус: Практикант) Ответ отправлен: 02.05.2009, 23:09 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248553 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 166.326

Уважаемые Эксперты,помогите мне сделать для кнопки Результат прописать код,чтобы он считал правельные и не правельные ответы...в этой работе есть начало,но у меня ничего не полусается обновить код,добавить ещё вопросы чтобы дальше считал..и ещё мне нужно написать в поле ввода написать скрипт,чтобы туда помещать ответ(Это часть В) вот сама работа...http://depositfiles.com/files/tt29xlusc

Отправлен: 02.05.2009, 21:25 Вопрос задал: Беляков Петр Иванович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Genia007 Здравствуйте, Беляков Петр Иванович! Создавать все формы автоматически во время запуска программы вовсе необязательно, это можно делать по мере надобности в форме, при большом количестве форм это сократит время запуска программы. Предлагаю Вам доработанный код для кнопки "Результат": Код: procedure TForm1.ButtonrezultClick(Sender: TObject); var i: word; x: Integer; // количество неправильных ответов n: Integer; // оценка неправильных ответов p: Integer; //оценка правильных ответов o: Integer; // общая оценка begin Resultat:= 0; x:= 0; for I := 1 to 17 do begin if TButton(Form1.FindComponent('Button'+inttostr(i))).Tag = 1 then Resultat:= Resultat + 1 else< br> x:= x + 1; end; n:= x * 2; p:= Resultat * 5; o:= Floor((n + p) / Questions); LbResultat.Caption:= 'Правильных ответов - ' + IntToStr(Resultat) + ' из ' + IntToStr(Questions); LbItog.Caption:= 'Оценка - ' + IntToStr(o); end; Я её переименовал для удобства. Так же пришлось доработать и код для кнопки "Сброс": Код: procedure TForm1.BtResetClick(Sender: TObject); var i:word; begin for i := 1 to 17 do begin TButton(Form1.FindComponent('Button'+inttostr(i))).Enabled:= True; TButton(Form1.FindComponent('Button'+inttostr(i))).Tag:= 0; end; LbResultat.Caption:= ''; LbItog.Caption:= ' 9;; Resultat:= 0; end; весь доработанный проект находится здесь URL >>. Могу добавить, что Вам необязательно хранить результат ответа на вопрос в свойстве tag кнопки, можно просто взять две глобальных переменных и при проверке ответа увеличивать на единицу ту или иную переменную в зависимости от результата. --------- Помогли тебе, помоги и ты.

Ответ отправил: Genia007 (статус: Студент) Ответ отправлен: 03.05.2009, 15:36 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248575 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 166.327

Уважаемые эксперты! Простой вопрос меня поставил в тупик.... for k := 0 to StringGrid1.RowCount - 1 do ShellExecute(Handle,'open',pchar(StringGrid1.Cells [1,k]),nil,nil,SW_SHOWNORMAL);// Из стринггрида подставляем значения url Задача:Надо чтобы поочередно открылось 1 окно браузера...задержка....закрылось окно,далее 2-ое окно...задержка...закрылось,далее 3 окно..... итд....пока не пройдут все значения....

Отправлен: 02.05.2009, 21:35 Вопрос задал: Vadimka (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Armad Здравствуйте, Vadimka! ShellExecute просто дает команду системе выполнить определенную операцию. В Ваше случае нужно так - for k := 0 to StringGrid1.RowCount - 1 do begin ShellExecute(Handle,'open',pchar(StringGrid1.Cells [1,k]),nil,nil,SW_SHOWNORMAL); sleep(10000) // или по таймеру определяем прошла секунда или нет //затем по хендлу ищем открытое окно и отсылаем ему сообщение на закрытие end; Управление чужими окнами - в приложении (из Delphi World) Приложение: Взаимодействие с чужими окнами -------------------------------------------------------------------------------- Представьте себе, глупый пользователь сидит как ни в чём небывало с умным видом уже в какой раз пытается составить документ в Microsoft Word'e, но вдруг окно начинает бешено скакать по экрану, в его заголовке выводятся непристойные сообщения, оно то сворачивается, то разворачивается, меняя постоянно свои размеры, а под конец совсем исчезает, унося в небытиё весь текст, который с таким трудом набил ламерюга... а если так себя в любой момент может повести любая программа... впечатления от этого останутся на долго!!! Для того, чтобы сделать что-нибудь над каким-либо окном нужно сначала получить его дескриптор, т.е. его положение в оперативной памяти. Для этого нужно использовать функцию FindWindow. Ей нужно указать всего два параметра: сначала класс искомого окна, затем его заголовок. Ну с заголовком проблем вообщем-то нет - его мы видим, но вот как определить класс... ведь он скрыт от глас пользователя. В действительности мы может указать только заголовок окна, а вместо класса ставим nil. Для начала запустите стандартную программу "Блокнот" - и что же мы видим? В блокноте в заголовке окна отслеживается имя текущего файла. Изначально, т.к. файла нет в использовании, заголовок блокнота выглядит так: "Безымянный - Блокнот". Постараемся по этому критерию найти окно блокнота. Выглядеть это будет так: if FindWindow(nil, 'Безымянный - Блокнот') <> 0 then ShowMessage('Окно найдено') else ShowMessage('Окно НЕнайдено'); Как мы видим из кода, если наша программа найдёт окно блокнота, мы увидим сообщение, гласящее об этом. Далее попробуем передвинуть это окно var h: HWND; begin h := findwindow(nil, 'Безымянный - Блокнот'); if h <> 0 then SetWindowPos(h, HWND_BOTTOM, 1, 1, 20, 20, swp_nosize); end; Опять находим блокнот. Его дескриптор помещаем в переменную класса HWND[С английского Handle Window - дескриптор окна]. Далее используем функцию SetWindowPos для задания позиции. В качестве параметров нужно указать: Дескриптор окна, которое хотим переместить Идентификатор окна, которое предшествует перемещаемому окну в Z-последовательности. Z-последовательность это порядок, в котором формировались окна. Данный параметр указывает с какого именно окна необходимо начинать писк. В качестве значений может принимать либо дескриптор какого-либо окна в системе, либо одно из нижеследующих значений: HWND_BOTTOM Начало Z-последовательности HWND_NOTOPMOST Первое окно которое располагается не "поверх все окон" HWND_TOP Вершина Z-последовательности HWND_TOPMOST Первое окно которое располагается "поверх все окон" Позиция окна по горизонтали Позиция окна по вертикали Ширина окна Высота окна Спецификаторы изменения позиции и размеров окна[флаги]. Для задания значения можно комбинировать следующие константы SWP_DRAWFRAME Прорисовка фрейма вокруг окна. SWP_FRAMECHANGED Посылает сообщение WM_NCCALCSIZE окну, даже если размер его не был изменён. Если этот флаг не указан, сообщение WM_NCCALCSIZE будет посылаться, только после изменения размеров окна. SWP_HIDEWINDOW Скрывает окно. SWP_NOACTIVATE Не активизирует окно. Если же этот флаг не будет поставлен, окно активизируется и будет перемещено поверх всех окон. А вот встанет ли окно даже выше тех окон, которым задано HWND_TOPMOST или нет зависит от параметра hWndInsertAfter. SWP_NOCOPYBITS Если этот спецификатор не будет установлен, тогда содержимое клиентской области окна будет скопировано и вставлено во вновь отобразившееся окно после его перемещения. SWP_NOMOVE Сообщает, что нужно игнорировать параметры задания позиции окну. SWP_NOOWNERZORDER Сообщает, что не следует изменять позицию окна владельца в Z-последовательности. SWP_NOREDRAW Не перерисовывает окно. SWP_NOREPOSITION Такой же как и SWP_NOOWNERZORDER. SWP_NOSENDCHANGING Мешает окну получить сообщение WM_WINDOWPOSCHANGING. SWP_NOSIZE Сообщает, что нужно игнорировать параметры задания размеров окну. SWP_NOZORDER Сохраняет текущее положение в Z-последовательности (игнорирует сообщение hWndInsertAfter parameter). SWP_SHOWWINDOW Отображает окно. Если данная функция выполнится успешно, она возвратит отличное от нуля значение. Ну, вот, теперь мы можем передвигать и изменять в размерах чужие окна!!! Для того, чтобы изменить заголовок окна напишем следующий код: SetWindowText(FindWindow(nil, 'Безымянный - Блокнот'), 'Дарова, ламерюга, типа ты попал... '); Функции setwindowtext нужно указать только два параметра: это дескриптор нужного окна и новое значение для заголовка. Вот вообщем-то и всё! Есть ещё одна интересная функция ShowWindow, которая позволяет скрывать или отображать окна. Использовать её нужно так:: ShowWindow(FindWindow(nil, 'Безымянный - Блокнот'), sw_hide); В скобках указываем сначала над каким именно окном хотим издеваться, а затем что именно мы хотим с ним сделать. В качестве возможных действий можем указать: SW_HIDE Скрывает окно и активизирует другое. SW_MAXIMIZE Разворачивает окно. SW_MINIMIZE Сворачивает окно. SW_RESTORE Активизирует и выводит окно. Если окно было развёрнуто или свёрнуто - восстанавливает исходный размер и позицию. SW_SHOW Активизирует и выводит окно с его оригинальным размером и положением. SW_SHOWDEFAULT Активизирует с установками, заданными в структуре STARTUPINFO, которая была передана при создании процесса приложением запускающим нужную программу. SW_SHOWMAXIMIZED Выводит окно в развёрнутом виде. SW_SHOWMINIMIZED Выводит окно в виде пиктограммы на панели задач. SW_SHOWMINNOACTIVE Выводит окно в свёрнутом виде на панели задач и не передаёт ему фокус ввода, т.е. окно, которое до этого было активно остаётся активно по прежнему. SW_SHOWNA Отображает окно в его текущем состоянии. Активное окно остаётся активным по прежнему. SW_SHOWNOACTIVATE Выводит окно в его последнем положении и с последними используемыми размерами. Активное окно остаётся активным по прежнему. SW_SHOWNORMAL Выводит окно. Если оно было свёрнуто или развёрнуто - восстанавливает его оригинальные размеры и позицию Но вся сложность действий заключается в том, что в заголовке Блокнота отслеживается имя текущего файла и использовать значение "Безымянный - Блокнот" мы можем не всегда : (. Тем более это не только в случае с блокнотом... Но есть выход: ведь функции FindWindow для поиска окна мы указываем не только заголовок нужного окна, но ещё его класс. Какой же это выход скажете вы, заголовок окна мы видим, значит знаем, что указывать - а класс окна... в действительности тоже может найти приложив немного усилий! В пакет Delphi входим специальная утилита для отслеживание всех активных процессов, она называется WinSight32. Вот ею мы и воспользуемся. Запустите её, покопайтесь в списке процессов, ищите строку где значится текущий заголовок нужного окна, например Блокнота, и в левой части этой строки в фигурных скобках вы найдёте имя класса окна. Для блокнота это будет "Notepad". Теперь зная имя класса окна мы можем переписать поиск окна таким способом: ShowWindow(FindWindow('Notepad', nil), sw_hide); Теперь мы вместо заголовка окна указываем значение nil, игнорируя данный параметр. Есть ещё один замечательный способ передачи команд окнам.- функция PostMessage. Ей в качестве параметров нужно указать: Дескриптор окна, которому посылается сообщение или следующие значения: HWND_BROADCAST Сообщение будет послано всем окнам верхнего уровня системы, включая неактивные и невидимые окна, overlapped-окна, и PopUp-окна, но сообщение не будет посылаться дочерним[Child] окнам. NULL Ведёт себя как функция PostThreadMessage с переданным ей dwThreadId параметром. Посылаемое сообщение Первый параметр сообщения Второй параметр сообщения Например, если послать сообщение wm_quit блокноту - окно будет закрыто без вывода всяких сообщений о необходимости сохранения! PostMessage(FindWindow('Notepad', nil), wm_quit, 0, 0);

Ответ отправил: Armad (статус: 3-й класс) Ответ отправлен: 03.05.2009, 13:08 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248570 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru