| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
798.
Сан Саныч
(28.02.2005 10:16)
0  
Добрый день! Гуру, пожалуйста, помогите. Поставил я дома для занятий ребенку по информатике Pascal for Windows. Все нормально, но только при запуске Debuggera из среды самого Паскаля он выдает "Can''t load WINDEBUG.DLL".
Указанный DLL находится в том же каталоге, что и сам турбо паскаль, я на всякий случай включил этот каталог в PATH,поместил WINDEBUG.DLL в c:Windows, но эффект тот же.
Пожалуйста, помогите, ибо без отладчика - мрак. Информация о компьютере Win 98 SE Russian, 256 Мб, P-IV
Жду Ваших компетентных ответолв здесь или по почте
|
797.
Тамор
(25.02.2005 18:19)
0
Спасибо сайту за то, что он есть! И спасибо тем, кто его держит!
Помогите пожалста! Я пишу игру на паскале, но у меня не идет графика. Возможно, это из-за того, что у меня вин2К. Pascal for Windows не хочет запускать графику.
:( Что делать?
Ответ: Ну во-первых, Вы действительно пишете в BPW? И как? Оставьте адрес - я дам свой. Тогда только сможем разобраться
|
796.
S@T
(25.02.2005 15:48)
0
Чувак прикольный сайт
|
795.
Vitiok
(25.02.2005 10:51)
0
Это супер сайт просто.Для студентов лучше нет.Единственный цайт,где есть программы для начинащих,ооочень большой спектр разнообразных программ,то есть на разные темы.Побольше бы таких сайтов и таких щедрых лиудей,которые не пожалели бы времени для размещения программ в Интернете,то есть для всех.
Витёк из Литвы.
|
794.
Макс
(23.02.2005 20:29)
0
нужен модуль WINDOS
мой email вас есть
Ответ: Я меняю клички-ники на реальные имена. А по ним трудно найти Вас. Так что .... Или прочтите то, что внизу
----------------------
А WinDos есть у Вас :))
Он находится в библиотечном файле TPP.DLL. Извлечь можно утилитой TPUMOVER.EXE - она входит в комплект поставки BP (всех).
И подключается только, если ОЧЕНЬ нужно. А так все, что нужно для работы, есть в DOS (он включен в библиотечный файл TURBO.TPL).
Все в папке BIN - если сохранили стандартные имена
|
793.
вася
(22.02.2005 20:50)
0
недьзя ли выставить в разделе игр мою разработку ОДНОРУКИЙ БАНДИТ?
я её посылал вам.
Ответ: Послали? А по какому адресу? Оставьте свой, чтобы мог связаться с Вами. Дело в том, что я изменяю у себя ники на реальные имена, а искать - времени маловато.
Или пришлите на личный
|
792.
ZoLTeR
(21.02.2005 11:26)
0
Ребяяяяята!!!!Сайт-просто RuLeZZZZZZZZZZZZZZZZ.Побольше бы таких сайтов было на просторах нашего интернёта.
|
791.
Spoiler
(21.02.2005 02:30)
0
Сайт супер! Программы написаны грамотно!!!!!!!
А особенно мне понравился так называемая программа вирус! Все мои пароли полетели как юзера недобитого
а так всё супер!!!!
|
790.
SScout
(18.02.2005 23:07)
0
Здорово!!!
Сайт конечно может быть и неплохой, как люди пишут, но, если честно, я бы предложил все-таки свою инфу выкладывать, а не перепечатывать книжки и, не уверен но тоже может быть, другие сайты.
И насчет гостевой люди правы, ее почистить не помешает. 8-Р.
P.S. А вообще удачи... Надеюсь сообщение будет пропущено цензурой, а я это проверю... Интересно, насколько модератор честен?!
Ответ: Здравствуйте.
Сообщения в гостевой книги удалятся не будут.
Если Вы хоть не много бы пооткрывали странички сайта, то не задавали бы таких вопросов.
|
789.
aleksey
(18.02.2005 20:11)
0
Помогите,пожалуйста, решить задачу. Вот условие: преобразовать одномерный массив из n вещественных элементов таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине-элементы, стоявшие в нечетных позициях.
|
788.
psih-olog
(18.02.2005 16:33)
0
Where is игорь.
Ответ: Igor тама
|
787.
Dmitry
(18.02.2005 15:27)
0
Ребят, помогите, пожалуйста, решить задачу. Очень срочно надо.
Вот условие:
Найти число из диапазона [a,b] 1<=a<=b<=10000, c наибольшим количеством делителей.
Ответ: Вот посмотри. Но проверь работу сам - я не тестировал
-------------
function DivsCount(aValue: Integer): Integer;
var i, count: Integer;
begin count:=0; for i:=1 to aValue do if aValue mod i = 0 then Inc(count);
DivsCount:=count end;
var
a, b, n, max, value, maxcount: Integer;
BEGIN
ReadLn(a, b);
maxcount:=0; Value:=a;
for n:=a to b do begin
max:=DivsCount(n); if max > maxCount then
begin Value:=n; maxCount:=max end;
end; WriteLn(value,'' '', maxcount);
END.
|
786.
Anatoly
(17.02.2005 20:25)
0
Пемогите создать теймер с обратным отсчетом к примеру на 50 минут.
Ответ: Вот без объяснений (они потом - сейчас некогда)
{некоторая проблема в том, чтобы и считать время и не загружать сильно процессор Один из варинатов решения проблемы - переписать обработчик прерывания 1Сh - оно для этого и создано, чтобы было проще ...}
--------------------------------------
uses DOS;
const
time: longint = 0;
procedure DoTime; interrupt; {лучше б писать на ассеблере}
begin if time <=0 then Exit; dec(time) end;
procedure SetTimer(min, sec: word);
var
r: Registers;
begin
if(min=0) and (sec=0) then begin
{Удаляем свой обработчик - ставим системный}
r.dx:=$0ff53; r.ax:=$0f000; r.ds:=r.ax; r.ax:=$251c;
MsDos(r); Exit end;
Time:=round((min*60 + sec)/ 0.055);
if Time <=0 then begin Time:=0; Exit end;
begin r.ax:=$251c; r.dx:=ofs(DoTime); r.ds:=Cseg; MsDos(r); end;
end;
begin
SetTimer(0, 30);
repeat
WriteLn(time);
until time = 0;
SetTimer(0, 0); {Это желательно делать!!}
end.
|
785.
Cruelwar
(17.02.2005 19:02)
0
Огромное спасибо вашему сайту!!! особенно за раздел "Программы".
От души благодарность.
|
784.
Адольф
(16.02.2005 23:53)
0
как поменять язык в TP7(с английского на русский)
Ответ: Вот посмотрите - недавно отвечал:
2005-02-04 21:19:31 Эдик
Но лучше использовать не turbo.exe, а bp.exe - turbo = досовский и под Виндами плохо работает
|
|
|
|
