Вопрос № 160751: Здравствуйте уважаемые эксперты! Мне очень нужна Ваша помощь! Задача на двумерный массив... матрица (10х10) для каждой колонки найти сумму элементов, что размещены ниже главной диагонали. Подсчитать кол-во рядков которые содержат отрицательные элеме...
Вопрос № 160799: Доброго времени суток, уважаемые эксперты! Начал изучать архитектуру компьютеров и нуждаюсь в Вашей помощи: необходимо на Pascal определить количество установленных
принтеров, но я не могу понять как проанализировать 14-15 биты слова конфигурации по ...Вопрос № 160843: Помогите пожалуйста дописать программу на Pascal Надо дописать процедуру перевода из 8-ой системы счисления в 10-ю....
Вопрос № 160.751
Здравствуйте уважаемые эксперты! Мне очень нужна Ваша помощь! Задача на двумерный массив... матрица (10х10) для каждой колонки найти сумму элементов, что размещены ниже главной диагонали. Подсчитать кол-во рядков которые содержат отрицательные элементы. Если знаете, помогите пожалуйста!
Алгоритм программы : заполняем матрицу , причем число положительных элементов значительно больше распечатываем матрицу, при этом попутно считаем строки и столбцы с отрицательными элементами а также находим сумму всех элементов, у которых номер строки больше номера столбца. выводим результат на экран.
Исправлено по просьбе автора ответа.
--------
∙ Отредактировал: Зенченко Константин Николаевич, Профессор
∙ Дата редактирования: 19.02.2009, 13:01 (время московское)
Приложение:
Ответ отправил: Andersen (статус: 6-й класс)
Ответ отправлен: 18.02.2009, 10:05
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 243917 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Огромнейшее спасибо, конечный вариант совершенно верный! Чесно сказать я и не надеялся вы меня очень выручили))) СПАСИБО!
Вопрос № 160.799
Доброго времени суток, уважаемые эксперты! Начал изучать архитектуру компьютеров и нуждаюсь в Вашей помощи: необходимо на Pascal определить количество установленных принтеров, но я не могу понять как проанализировать 14-15 биты слова конфигурации по адресу $0040:$0010. Спасибо.
Преобразовывает адрес в виде сегмент:смещение в указатель. Объявление: Function Ptr(Seg, Ofs : Word) : Pointer; Режим: Windows,
Real, Protected Замечания: Seg и Ofs - выражения типа Word. Результат - указатель, показывающий на адрес Seg:Ofs. Результат, возвращаемый Ptr, совместим со всеми типами указателей (как и NIL). Например: If Byte(Ptr($40, $49)^) = 7 Then WriteLn('Видеорежим - монохром');
в программе это будет так:
Код:
var adrLpt:^word; datLpt:word; begin adrLpt:=ptr($40,$10); datLpt:=adrLpt^; end.
Теперь у Вас есть число, думаю нужные биты извлечь труда не составит. вопросы задавайте в мини-форум. Удачи!
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 18.02.2009, 13:12
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 243931 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 160.843
Помогите пожалуйста дописать программу на Pascal Надо дописать процедуру перевода из 8-ой системы счисления в 10-ю.
Отвечает: Verena
Здравствуйте, Торицын Виталий Евгеньевич! Например, можно воспользоваться схемой Горнера. Это упрощает программное вычисление, исключая из него степени. Алгоритм преобразования такой: 203128 = (((2*8+0)*8+3)*8+1)*8+2 = 839410 Поскольку в Вашем коде используется строковое представление числа, привожу пример процедуры, реализующей данных подход со строкой:
Код:
procedure Conv8to10 (a: string; var b: string); {Процедура преобразования числа а в 8-ричной системе в число b d 10-чной} Var i, k: integer;{Счётчик, сумма} begin k:= (Ord(a[1])-48); {Запоминаем первую цифру} for i:=2 to lengt
h(a) do {В цикле по остальным цифрам} k:= (k*8+(Ord(a[i])-48)); {Домножаем текущее значение на 8 и прибавляем следующую цифру} str (k, b); {Преобразуем к строке} end;
Это чисто сам алгоритм, для своей конкретной задачи можете что-то поменять. Удачи!
--------- Эта история - не для истории, понимаешь?
Ответ отправила: Verena (статус: Специалист)
Ответ отправлен: 18.02.2009, 23:39
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 243990 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
