| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
558.
max
(03.06.2004 22:15)
0  
Слушайте на алимпиаде задали одному задачу:
Вывести весь исходник его проги (той которую он пишет)
он ей не решил, да и я думал, но не додумался.
Если не лень скиньте исходник на мыло.
Заранее спасибо.
А сайт мне очень понравился, не люблю лишние навороты.
Ответ: Ну ё! И зачем он туда пошел, родимый? Вот три из возможных вариантов:
program MySource1;
var t: Text; s: String;
begin Assign(t, ''sourc1.pas''); Reset(t);
While not eof(t) do begin ReadLn(t, s); WriteLn(s) end; Close(t)
end.
------------------
program MySource2;
var t: file of char; s: char;
begin
Assign(t, ''sourc2.pas''); Reset(t);
While not eof(t) do begin Read(t, s); Write(s) end; Close(t)
end.
-------------
program MySource3;
var t: file; s: pointer; size, c: Word;
begin
Assign(t, ''sourc3.pas''); Reset(t, 1); size:=FileSize(t);
GetMem(s, Size); BlockRead(t, s^, size, c);
for c:=0 to size-1 do Write(chr(mem[seg(s^):ofs(s^)+c]));
FreeMem(s, Size); Close(t)
end.
|
557.
Мурат (Новосибирск)
(03.06.2004 16:19)
0
Сайт у Вас очень полезный! Я изучаю Турбо Паскаль в качестве языка для начинающих. И очень много ценного ещё давно скачал на Вашем сайте. У меня на сайте я разместил переписку с профессиональным программистом. Рекомендую почитать начинающим программистам (см. ссылку на тот раздел)
Ответ: Нет, начинающим я бы не советовал читать ответы этого "профессионала". Его знания отстают лет на .... , в частности касательно Delphi. Сейчас это практически С++ (Builder), лишь немоного отстает по времени выхода (так уж повелось в Borland Gr.Int. - сначала они выпускают С++, а потом "Паскалевский")
Хотя, сознаюсь, что все не прочитал ...
|
556.
Rus
(03.06.2004 10:12)
0
Помогите решить задачу: нужно наути определитель матрицы A[n,n] методом Гаусса
Vanozimin@mail.ru
|
555.
Nick
(03.06.2004 10:02)
0
People!!!I need help!!!! Помоготе, как отсортировать массив по убыванию методом бинарной вставки??? За ранее спасибо.
hasta_la_vistaa@mail.ru
Ответ: Всякие методы знаю, но что именно понимаете под "методом бинарной вставки"? Уверен, что все остальные знают его под другим именем
|
554.
Heldar
(02.06.2004 20:59)
0
Супер сайт (честно без лести). Зашёл случайно, но нашёл здесь всё что искал и даже больше. Долгой Жизни проэкту Счасть и Удачи связаным с ним людям !!!!!
|
553.
Денис
(01.06.2004 02:11)
0
Сайт довольно неплохой. Скачал у вас игрушку "минёр", сейчас опробую. Кстати, я тоже создаю своё сайт по Турбо Паскалю. Можно обменяться информацией. НО! Воровать и публиковать у себя на сайте, конечно, не буду, ведь мы живём в цивилизованной стране. Сайт пока на разработке, но всё же..... www.pasturbo.narod.ru
|
552.
XXX-XXX
(30.05.2004 15:45)
0
Да и ещё: просьба отправить эту программу по
адрессу : sv48@rambler.ru
|
551.
XXX-XXX
(30.05.2004 15:44)
0
ольшая просьба!
Кому не лень напишите пожалуйсто следующую програмку
на Паскале : "Очередь: циклический массив с буферным элементом (стандартный набор)".
Ответ: Не знаю, что такое "стандартный набор". Циклический массив - это тоже Ваш термин. Так что без уточнения, Вам и делать
|
550.
Dmitriy
(27.05.2004 21:56)
0
Добрый день. Сложилась такая ситуация(долго объяснять),что нужен TP под систему Linux. Существует ли такой вообще и где его можно достать
Ответ: "Придется" использовать FreePacsal - он это может. А взять можно и у нас http://www.borlpasc.narod.ru/freepascal.htm
|
549.
jFish
(23.05.2004 17:35)
0
Спасибо за модуль, все работает. Но объясните еще раз, как получить из *.pas *.tpu или *.tpp.
С уважением, jFish.
Ответ: Установите Compile - Target - Real, затем Alt+F9 - получаете файл .TPU
Установите Compile - Target - Protected, затем Alt+F9 - получаете файл .TPP
|
548.
Овца
(22.05.2004 15:02)
0
Очень прикольный сайт. Очень много полезной инфы. У меня как раз сейчас в школе практика на pascal, очень помогает. Если есть инфа про модуль graph, то пришли если не сложно.
Ответ: Что именно Вы хотите узнать об этом модуле?
Шлю главу из описания. Если что-еще нужно, то пишите
|
547.
***COLOMBO***
(22.05.2004 13:56)
0
помогите решить задачку!!!!!!!!!
Создать текстовое окно с кнопкой ‘exit’
Ответ: Делал я аналогичное. Высылаю. Если подойдет, то измените. Не сумеете - пишите
|
546.
Дюшес
(22.05.2004 13:21)
0
Здравствуйте!
Сайт Ваш очень хороший и большой, мне он очень понравился. Вот только бы пополнить рубрику "Игры"...
Такой у меня вопрос: Вы когда-то выкладывали в разделе Turbo Pascal ссылочку на новый модуль Crt. Я его уже скачал, но некоторые люди ещё сидят без него. А ссылка пропала. Подскажите, пожалуйста, где взять новый модуль (в Интернете).
Ответ: Извните, но не вспомню, что это был за CRT :((
Хорошая болезнь склероз - каждый день узнаешь что-то новое
Пожалуйста напомните, чего такого НОВОГО было, или, по крайней мере, когда
|
545.
Igi(t)32
(22.05.2004 08:02)
0
Спасибо большое за этот сайт, очень много нужного и интересного... В общем примите от меня самые лучшие пожелания, чтоб Вы долго жили и процветали (это я про этот сайт), ведь Pascal будет еще жить долго и щастливо =)...
Ответ: Конечно и нам (людям, а не сайту) хотелось бы пожить столько, сколько живет язык программирования Паскаль, но что-то никто этого не хочет :))
Как-то даже 300 рублей за него предложили ...
|
544.
KOT BeGeMoT
(20.05.2004 22:23)
0
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!горю-!!!!!Если найдется тот кто захочет помочь -мыльте zippo@list.ru пожалуйста!!!!!!!!очень прошу!!
1.Нарисовать узор из 20 прямоугольников.Длины сторон прямоугольников и расстояние от центра узора до левого верхнего угла прямоугольника изменять по закону,который обеспечит приемлемый декоративный эффект
2.Дано число R и текстовый файл.Удалить из файла строку с номером R(строки нумеруются от 0).Если строки с таким номером нет, то оставить файл без изменения.
Ответ: Задание для первой части нечеткое. Но что-то попробую сделать :)), а примус, батенька, все же брось...
|
|
|
|
