Вопрос № 166288: 1.Задана квадратная матрица Y(5,5).Определить,где больше четных элементов,выше или ниже главной диагонали. > 2.Заполнить квадратную матрицу В(10,10)единицами в шахматном порядке,начиная с верхнего левого угла.Соседние клетки заполнить нулями.<b...
Вопрос № 166326: Уважаемые Эксперты,помогите мне сделать для кнопки <b>Результат</b> прописать код,чтобы он считал правельные и не правельные ответы...в этой
работе есть начало,но у меня ничего не полусается обновить код,добавить ещё вопросы чтобы дальше считал..и ещ...Вопрос № 166327: Уважаемые эксперты! Простой вопрос меня поставил в тупик.... for k := 0 to StringGrid1.RowCount - 1 do ShellExecute(Handle,'open',pchar(StringGrid1.Cells [1,k]),nil,nil,SW_SHOWNORMAL);// Из стринггрида подставляем значения url<br...
Вопрос № 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.
#thank 248553 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 166.326
Уважаемые Эксперты,помогите мне сделать для кнопки Результат прописать код,чтобы он считал правельные и не правельные ответы...в этой работе есть начало,но у меня ничего не полусается обновить код,добавить ещё вопросы чтобы дальше считал..и ещё мне нужно написать в поле ввода написать скрипт,чтобы туда помещать ответ(Это часть В)
вот сама работа...http://depositfiles.com/files/tt29xlusc
Отвечает: 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 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 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)
Приложение:
Ответ отправил: Armad (статус: 3-й класс)
Ответ отправлен: 03.05.2009, 13:08
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 248570 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.