Вопрос № 149039: Добрый вечер уважаемые эксперты! Помогите пожалуйста разобраться со следующим заданием: 1.Для заданной матрицы размером 8 на 8 найти такие К, что К-я строка матрицы совпадает с К-м стобцом ( надо оформить в виде процедуры.) 2Найти сумму...
Вопрос № 149046: уважаемые, поясните пожалуста в общем (на примерах), как создать направлениие в своей программе для подключения к одной из двух установленных (в материнской плате) звуковых
карт. Если нужно более детально то жду встречных вопросов Василий ...Вопрос № 149116: Создать форму для ввода с клавиатуры целого числа. Выполнить для него такие действия: определить, входит ли в него произвольная цифра (также задаваемая с клавиатуры); поменять порядок цифр числа на обратный; переставить первую и последнюю цифры числ...
Вопрос № 149.039
Добрый вечер уважаемые эксперты! Помогите пожалуйста разобраться со следующим заданием:
1.Для заданной матрицы размером 8 на 8 найти такие К, что К-я строка матрицы совпадает с К-м стобцом ( надо оформить в виде процедуры.)
2Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент ( оформить в виде функции) ;Помогите ПОЖАЛУЙСТА!
Отвечает: Genia007
Здравствуйте, Пожидаев Сергей Сергеевич! По второму заданию можно предложить такое направление:
Приложение:
Ответ отправил: Genia007 (статус: 10-й класс)
Ответ отправлен: 30.10.2008, 22:46
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 149039 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Большое спасибо, а на счет первого вопроса нет идеи? (
Вопрос № 149.046
уважаемые, поясните пожалуста в общем (на примерах), как создать направлениие в своей программе для подключения к одной из двух установленных (в материнской плате) звуковых карт. Если нужно более детально то жду встречных вопросов Василий
Отвечает: PavelGM
Здравствуйте, Василий Валерьевич!
Если хотите написать свой видеоплеер, способный контролировать вывод звука на разные платы, то следует обратить внимание на DirectShow (для Delphi - удобно использовать пакет DSPack http://www.progdigy.com). При построении графа в DirectShow надо будет просто менять оконечное устройство вывода звука вместо Default на нужную звуковую плату. Windows MediaPlayer использует именно эту подсистему -> все что может проигрывать
стандартный плеер проиграет и самодельный.
Ответ отправил: PavelGM (статус: Студент)
Ответ отправлен: 01.11.2008, 10:24
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 149046 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 149.116
Создать форму для ввода с клавиатуры целого числа. Выполнить для него такие действия: определить, входит ли в него произвольная цифра (также задаваемая с клавиатуры); поменять порядок цифр числа на обратный; переставить первую и последнюю цифры числа; приписать по единице в начало и конец записи числа. Помогите плз!
Отвечает: SHERRY
Здравствуйте, Горгола Валерий Валерьевич! Для корректного выполнения кода, бросьте на форму два поля ввода (Edit1 и Edit2) и элемент TListBox (ListBox1). Поле Edit1 будет служить для ввода числа, Edit2 - для ввода цифры, ListBox1 - для вывода результатов. Выделите Edit2 на форме. В окне Object Inspector найдите свойство MaxLength и задайте ему значение, равное единице (чтобы обеспечить ввод единственной цифры). Выделите на форме поле Edit1. В окне Object Inspector перейдите к вкладке Events и найдите
событие OnChange. Сделайте двойной клик левой кнопкой мыши по полю ввода справа от названия события. В появившемся окне прописываем следующий код:
Код:
procedure TForm1.Edit1Change(Sender: TObject); var s, s2: string; i: integ
er; ch: char; begin s := Edit1.Text; s2 := Edit2.Text; // проверка на ввод нецифровых символов for i:=1 to length(s) do if not (s in ['0' .. '9']) then delete(s, i, 1); Edit1.Text := s; if not (s2[1] in ['0' .. '9']) or (Edit2.Text = '') then s2 := '0'; edit2.Text := s2; // чистим поле вывода ListBox1.Clear; // если введено какое-либо число, то приступим if s <> '' then begin
// определим позицию указанной цифры в числе if pos(s2, s) > 0 then ListBox1.Items.Add('Цифра ' + s2 + ' входит в число ' + s) else ListBox1.Items.Add('Цифра ' + s2 + ' не входит в число ' + s); s := ''; // меняем порядок цифр в числе for i:=1 to length(Edit1.Text) do s := Edit1.Text[i] + s; ListBox1.Items.Add('Обратный порядок цифр: ' + s); // меняем
местами первую и последнюю цифры s := Edit1.Text; ch := s[1]; s[1] := s[length(s)]; s[length(s)] := ch; ListBox1.Items.Add('Меняем местами первую и последнюю цифры: ' + s); s := Edit1.Text; // приписываем единичку вначале и вконце числа s := '1' + s + '1'; ListBox1.Items.Add('Приписываем единичку в начале и в конце числа: ' + s); end; end;
Также рекоменду прописать команду [i]Edit1Change(Sender); в событии Edit2Change и FormCreate. Если возникнут трудности, отписывайте в мини-форум или ЛС. Свериться с проэктом можно зДеСь. Best regard's!
--------- Самурай без меча подобен самураю с мечом, только без меча..
Ответ отправил: SHERRY (статус: Студент)
Ответ отправлен: 31.10.2008, 19:57
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 149116 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Genia007
Здравствуйте, Горгола Валерий Валерьевич! Вот мой вариант ответа:
Приложение:
Ответ отправил: Genia007 (статус: 10-й класс)
Ответ отправлен: 02.11.2008, 10:54
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 149116 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 4
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.