| ← Ноябрь 2003 → | ||||||
|
2
|
||||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
7
|
8
|
||
|
10
|
12
|
15
|
16
|
|||
|
17
|
18
|
19
|
20
|
21
|
||
|
24
|
27
|
28
|
29
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RusFAQ.ru: Программирование на языке Pascal
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на языке Pascal
Выпуск № 194
от 06.11.2003, 21:10
| Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков |
О рассылке: Задано вопросов: 338 Отправлено ответов: 1176 Активность: 347.9 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Boriss Статус: Опытный Общий рейтинг: 139.58 Телефон: (8342) 324312 [Подробней >>] |
sir henry Статус: Опытный Общий рейтинг: 157.06 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 335. Здравствуйте! Поможите пожалуста задачки решить по Turbo Pascal’у 7.0: 1.Ввести цену (в рублях) и ко... (ответов: 2)
Вопрос № 336. Хаюшки, уважаемые эксперты! Как узнать или достать RGB разложение стандартной палитры драйвера svga2... (ответов: 1)
Вопросов: 2, ответов: 3
| Вопрос № 335 |
Здравствуйте! Поможите пожалуста задачки решить по Turbo Pascal’у 7.0:
1.Ввести цену (в рублях) и количество для двух товаров. Определить, общую стоимость покупки.
2.Ввести координаты точки X и Y. Определить, попадает ли точка в заштрихованную область(за координаты 1;-1 по оси х и за теже координаты по оси у).
3.Вычислить 0,1 x + 0,3 x +0,5 x + … + 2,2 x
4.Одномерный массив заполнить с клавиатуры. Поменять местами первый и последний элементы.
5.Заполнить двумерный массив 5,4 с клавиатуры. Вывести на экран элементы 4 строки.
Заранее большое спасибо!
Вопрос отправлен: 02.11.2003, 20:01
Отправитель: Hellraiser
[Следующий вопрос >>] [Список вопросов]
Отвечает Boriss
Приветствую Вас, Hellraiser!
Ну это ж все очень элементарно и неточно сформулировано. Есть ошибки в задании. Ну так уж и быть, отвечаю, чтоб никто не говорил, что здесь не помогут:
Приложение:
Ответ отправлен: 04.11.2003, 17:48
Отправитель: Boriss
Отвечает sir henry
Здравствуйте, Hellraiser!
1. ReadLn(Tovar1); ReadLn(Tovar2); WriteLn(Tovar1+Tovar2);
2. Read(X); Read(Y); Какова область штриховки? Если задать:
Type
Xshtrih = set of -1..1;
Yshtih = set of -1..1;
Var
Xs : Xshtrih;
Ys : Ystrih;
то попадание в область можно проверить:
If X In Xs Then
{X Попадает}
Else
{X Не попадает}
If Y In Ys Then
{Y Попадает}
Else
{Y Не попадает}
3. WriteLn(0.1*x+0.2*x+0.3*x+0.5*x...+2.2*x);
4. Задать массив и командой Read(массив[индекс]) заполнить его с помощью цикла.
Задать дополнительную переменную того-же типа, что и элементы массива. Присвоить этой переменной значение последнего элемента массива. Присвоить последнему элементу массива значение первого элемента массива. Присвоить первому элементу массива значение переменной.
5. Заполнение аналогично пункту 4. Вывод в цикле с помощью команды Write(массив[индекс_строки, индекс_колонки])
Ответ отправлен: 03.11.2003, 14:03
Отправитель: sir henry
| Вопрос № 336 |
Хаюшки, уважаемые эксперты!
Как узнать или достать RGB разложение стандартной палитры драйвера svga256.bgi?
Где хранится палитра цветов при работе программы (и стандартная палитра Windows)?
Буду рад любой полезной информации об установке, считывании и работе с палитрой в 256 цветов
в Паскале.
Заранее благодарен
Вопрос отправлен: 03.11.2003, 21:04
Отправитель: zaknafeyn
[Следующий вопрос >>] [Список вопросов]
Отвечает Boriss
Добрый день, zaknafeyn!
У меня где-то были электронные описания, может и сохранились. Если никто не поможет, то поищу. Напишим surin_bp@mail.ru
Есть справочник электронный (могу перслать весь, в архиве 216 К, могу главу по 10-му прерыванию)
Есть специательные функции 10h=$10 прерывания для считывания, изменения палитр:
1) устанновить палитру - значит установить значения регистров DAC (Digital to Analog Converter). DAC имеет 256 регистров. Каждый регистр содержит 18 бит: 6 - яркость красного, 6 - зеленого, 6 - синего. Номер цвета в видеопамяти = номер регистра.
Установка:
AH = $10 - номер функции
AL = $10 - номер подфункции
BX = номер устанавливаемого регистра
DH = яркость красного (0 - $3F)
CH = зеленого
CL = синего
Вызов $10 прерывания.
Подфункция $12 - изменение нескольких регистров из таблицы.
Считать всю палитру - подфункция 9
Считать один регистр - подфункция $15.
Ответ отправлен: 04.11.2003, 19:08
Отправитель: Boriss
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (32) C / C++ (26) Perl (3) Builder / Delphi (22) Pascal (20) Basic / VBA (6) Java / JavaScript (8) PHP (13) Криптография (9) WinAPI (14) |
Пользователю Windows 95/98/Me (46) Windows NT/2000/XP (63) "Железо" (40) Поиск информации (28) |
Администратору Windows NT/2000/XP (39) Linux / Unix (16) |
Юристу Гражданское право (10) Семейное право (7) Трудовое право (7) КоАП (7) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
