Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


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

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

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

Шичко Игорь
Статус: Студент
Рейтинг: 284
∙ повысить рейтинг >>
Николай Владимирович / Н.В.
Статус: Академик
Рейтинг: 68
∙ повысить рейтинг >>
Genia007
Статус: 10-й класс
Рейтинг: 66
∙ повысить рейтинг >>

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

Выпуск № 1223
от 05.11.2008, 19:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 403, Экспертов: 52
В номере:Вопросов: 3, Ответов: 4

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 149039: Добрый вечер уважаемые эксперты! Помогите пожалуйста разобраться со следующим заданием: 1.Для заданной матрицы размером 8 на 8 найти такие К, что К-я строка матрицы совпадает с К-м стобцом ( надо оформить в виде процедуры.) 2Найти сумму...


Вопрос № 149046: уважаемые, поясните пожалуста в общем (на примерах), как создать направлениие в своей программе для подключения к одной из двух установленных (в материнской плате) звуковых карт. Если нужно более детально то жду встречных вопросов Василий ...
Вопрос № 149116: Создать форму для ввода с клавиатуры целого числа. Выполнить для него такие действия: определить, входит ли в него произвольная цифра (также задаваемая с клавиатуры); поменять порядок цифр числа на обратный; переставить первую и последнюю цифры числ...

Вопрос № 149.039
Добрый вечер уважаемые эксперты! Помогите пожалуйста разобраться со следующим заданием:

1.Для заданной матрицы размером 8 на 8 найти такие К, что К-я строка матрицы совпадает с К-м стобцом ( надо оформить в виде процедуры.)

2Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент ( оформить в виде функции) ;Помогите ПОЖАЛУЙСТА!
Отправлен: 30.10.2008, 20:43
Вопрос задал: Пожидаев Сергей Сергеевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Genia007
Здравствуйте, Пожидаев Сергей Сергеевич!
По второму заданию можно предложить такое направление:

Приложение:

Ответ отправил: Genia007 (статус: 10-й класс)
Ответ отправлен: 30.10.2008, 22:46

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 149039 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 5
    Комментарий оценки:
    Большое спасибо, а на счет первого вопроса нет идеи? (


    Вопрос № 149.046
    уважаемые, поясните пожалуста в общем (на примерах), как создать направлениие в своей программе для подключения к одной из двух установленных (в материнской плате) звуковых карт.
    Если нужно более детально то жду встречных вопросов
    Василий
    Отправлен: 30.10.2008, 21:42
    Вопрос задал: Василий Валерьевич (статус: Посетитель)
    Всего ответов: 1
    Мини-форум вопроса >>> (сообщений: 7)

    Отвечает: PavelGM
    Здравствуйте, Василий Валерьевич!

    Если хотите написать свой видеоплеер, способный контролировать вывод звука на разные платы, то следует обратить внимание на DirectShow (для Delphi - удобно использовать пакет DSPack http://www.progdigy.com). При построении графа в DirectShow надо будет просто менять оконечное устройство вывода звука вместо Default на нужную звуковую плату. Windows MediaPlayer использует именно эту подсистему -> все что может проигрывать стандартный плеер проиграет и самодельный.
    Ответ отправил: PavelGM (статус: Студент)
    Ответ отправлен: 01.11.2008, 10:24

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 149046 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Вопрос № 149.116
    Создать форму для ввода с клавиатуры целого числа. Выполнить для него такие действия: определить, входит ли в него произвольная цифра (также задаваемая с клавиатуры); поменять порядок цифр числа на обратный; переставить первую и последнюю цифры числа; приписать по единице в начало и конец записи числа. Помогите плз!
    Отправлен: 31.10.2008, 15:41
    Вопрос задал: Горгола Валерий Валерьевич (статус: Посетитель)
    Всего ответов: 2
    Мини-форум вопроса >>> (сообщений: 3)

    Отвечает: 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 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!


    Отвечает: Genia007
    Здравствуйте, Горгола Валерий Валерьевич!
    Вот мой вариант ответа:

    Приложение:

    Ответ отправил: Genia007 (статус: 10-й класс)
    Ответ отправлен: 02.11.2008, 10:54

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 149116 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
  • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценка за ответ: 4


    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

    Отправить вопрос экспертам этой рассылки

    Приложение (если необходимо):

    * Код программы, выдержки из закона и т.п. дополнение к вопросу.
    Эта информация будет отображена в аналогичном окне как есть.

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!

    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


    Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
    Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.


    © 2001-2008, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.10 от 5.11.2008

    Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru

    В избранное