Гостевая книга - Персональный сайт

498. Glider (18.04.2004 13:24)

2 А. Koтов:
юзайте на здоровье

program mousehook;
uses crt;
var s: string;
b: boolean;

procedure MH;interrupt;
begin
{Обработчик прерывания мыши.}
end;

procedure MSet;
begin
{Установка обработчика}
asm
mov ax, 000Ch
mov cx, 00001010b
mov bx, seg MH
mov es, bx
mov dx, offset MH
int 33h
end;
end;

procedure MUnset;
begin
{Снятие обработчика}
asm
mov ax, 000Ch
mov cx, 00000000b
mov bx, seg MH
mov es, bx
mov dx, offset MH
int 33h
end;
end;

begin
MSet;
{Какие-то действия}
MUnset;
end.

Будут вопросы - обращайтесь =)
rglider{at}newmail{dot}ru

ЗЫ: сайт неплохой, но маловато инфы по работе с системой :( (типа тех же прерываний, дисков, устройств, резидентов и др. )

Ответ: Один мой знакомый отвечал в таких случаях: "Сам такой". Один раз даже и директору школы ...
Это я о том, что на Вашем сайте бывали, но о Вас больше не узнали ...
А замечание дельное. Учтем

497. А.Котов (18.04.2004 01:57)

Можно ли в играх, которые были сделанны на Pascal 7.0
поставить мышь.Что бы она двигалась и при нажатии на какой-либо объект что-нибудь происходило?

Ответ: Если у Вас есть исходный код программы, то точно ДА. Действуют через прерывание $33 - "мышиное".
Если нет исходного кода, то тут уже дело сложнее и однозначного ответа дать нельзя. Уточните, что нужно

496. Randy (17.04.2004 20:08)

Спасибо за исчерпывающий ответ на мой прошлый вопрос...
Может кто - нибудь мне подскажет,можно ли в Pascal вносить изображения ,сделанные ,cкажем в Photoshop,и если можно ,то как и какие форматы там поддерживаются?

Ответ: В Pascal никакие форматы графических файлов не поддерживаются :((
Так что надо брать описание формата, анализировать файл и выводить попиксельно

495. -=antonio=- (17.04.2004 04:31)

Хочу поблагодарить создателей сайта за отличный проект! Приятно, очень много полезной информации! Молодцы, вы главное продолжайте в том же духе и всё будет!
И есть у меня один вопросик к вам. Думаю, вы должны знать... Мне интересно, почему Паскаль неправильно считает синусы и косинусы? Это причина того, что результатом является значение, выраженное в радианах или что-то другое? Никак не пойму... Допустим, вместо вполне определённого sin(90)=1, он выдает 0,8939... Как это исправить? Заранее благодарен, Антон.

Ответ: Да, именно так, аргумент берется в радианах. Если нужно в градусах, то используйте простое
r := sin(Grad_fi * pi/180);
А еще лучше, определите константу
CONST deg_rad = pi/180;

494. ничегонезнаю (16.04.2004 13:00)

Здравствуйте, помогите пожалуйста (если не сложно) :)
Подскажите, как написать функцию определяющую минимальные(максимальные) числа в определённой строке заданной матрицы? Заранее очень благодарна...

Ответ: Для краткости, даю только для колонки:
type
WhatFind = (FindMax, FindMin);

function ExtremumInColumn(Col: Integer; What: WhatFind): Integer;
var
i, loc_min, loc_max: Integer;
begin
loc_min:= MaxInt;
loc_max:=-MaxInt;
for i:=1 to row_max do begin
if matrics[i, col] > loc_max then loc_max:= matrics[i, col];
if matrics[i, col] < loc_min then loc_min:= matrics[i, col];
end;
if What = FindMax then ExtremumInColumn:=loc_max
else ExtremumInColumn:=loc_min
end;
Пишите адрес, чтобы можно было давать более подробный ответ. Мой адрес на сайте (Boris)

493. [DN5] ReFlex (13.04.2004 22:59)

Помогите пожалуйста найти программу "Электронные часы", которая в полноэкранном режиме показыват текущее время, конечно же шрифтом как на электронных часах...

Пожалуйста! Очень вас прошу... заранее СПАСИБО!i!

Ответ: А в чем проблема? Такие часто встречаются. Как только попадутся - ссылку пришлю. Даже было что-то у меня раньше, но потом я пришел к выводу, что только напрасно таким ярким скринсейвером гжу монитор, и поставил простой черный :))

492. Юшка (11.04.2004 05:55)

Скажите, пожалуйста, в каком паскале можно использовать имена файлов более 8 символов в имени?

Ответ: Идентификатор в Turbo/Borland Pascal может иметь любую длину, но распознаются только первые 63 символа. И это уже давно ... . По крайней мере в версии 5.5 (первой "человеческой") уже так было.
TMT не использовал, но судя по всему, и там также

491. Юшка (11.04.2004 05:47)

Сайт только что нашёл, закачал кучу всего. Посмотрим. Есть вопрос, в Pascal for Windows можно ли использовать имена файлов более 8 символов?

Ответ: Да, в Pascal for Windows вызываются для работы функции Windows (API-функции), которые "знают" длинные имена

490. Blaze (10.04.2004 03:23)

Очень благодарен.

Ответ: :)) Для тех, кто не понял, расшифровка:
Юстас Юджину
....! ...? ...; ... ! Очень благодарен .......

489. Blaze (10.04.2004 03:22)

Спасибо, помогли.

Ответ: Пожалуйста, конечно .... Но кто и кому? :))

488. Tweety (06.04.2004 15:35)

Привествую создателя сайта!
Все здесь конечно классно, но только вот нашей преподше, кажется, понравился этот сайт настолько, что дает нам задачки отсюда.
Мы сначала не знали, что вообще нам делать. Пока не додумались залезть сюда. Представляете наше состояние! Кстати задачи из "средних" :)))
Удачи!

Ответ: Это дает Вам шанс догнать и перегнать своих учителей, чтобы они Вами гордились :))

487. Танюшка (05.04.2004 00:01)

Помогите, пожалуйста, решить задачки...
Нужно составить программу на языке Паскаль, которая:
№1: вычисляет логарифм по основанию 2 от суммы первых двенадцати элементов числовой последовательности: 1/12; 2/14; 3/16; 4/18; 5/20; …
№2: по введённым с клавиатуры 16-ти целых чисел, выводит на экран утроенное произведение второго, восьмого и девятого по счёту чисел.

Ответ: Выслал на личный

486. Denis (04.04.2004 03:00)

Просьба к администрации!
Пожалйста проверяйте все архивы! а то я скачал архив ТОЛЬКО открыл Winrar и комн завис и больше не включался что делать?Помогите!

Ответ: Уважаемый Denis. Мы тщательно проверяем архивы - вирусы и нам здорово мешают. Пожалуйста, пишите, какой это архив, чтобы мы могли проверить все. Ведь никогда нет полной уверенности, что сделал все ... :((
С другой стороны, может быть, что просто были сбои в сети ...
Мы не снимаем с себя ответственности, просто ищем способ сделать Вашу жизнь удобней

485. lara (03.04.2004 21:56)

Помогите разобраться с принципами работы с видеотерминалом. В литературе не смогла найти ответ. "Видеотерминал" - что это?
Заранее спасибо.

Ответ: Video Display Terminal - видеотерминал - состоит из экрана на ЭЛТ и клавиатуры. Синоним - монитор. Это несколько устаревшее название. "Раньше" действительно,
то, что сейчас просто монитор ("показыватель") выполнял функции ввода и вывода - и это название "видеотерминал" подчеркивало сложность его

484. pauk (03.04.2004 17:03)

Есть около сотни готовых методичек (от института). Много о паскале. Полностью курс обучения по специальности 220400, даже госы. Народ должен это видеть.
Правда, хочу знать, законно ли в данном случае сеять разумное, доброе, вечное без ИХ разрешения...
Если это не запрещено, могу как-то отправить сюда на сайт. Пусть люди читают:)

Ответ: Мы тоже считаем, что "народ должен видеть". И Вы совершенно правы - нехорошо будет, если опубликовать результаты чужой работы без ссылок на авторов и, тем более, без их разрешения.
Наверно, лучше всего поступить так: Вы скажите о своем предложении хотя бы одному и авторов, и передайте нашу просьбу связаться с нами. Возможно, что Ваше предложение их заинтересует :)).
Мы будем рады любому сотрудничеству

		Четверг, 17.10.2024
	Мой сайт