| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
768.
Сергей
(23.01.2005 20:16)
0  
Здраствуйте. Я начал изучать Turbo Pascal и у меня сразу появилась небольшая проблема: я хочу печатать
русскими буквами в редакторе Turbo Pascal, а он не
печатает. Переключение раскладок не действует, программы для русификации под DOS не помогают. Приходится писать транслитом или по-английски, что не очень нравится мне. Пожалуйста, помогите мне решить эту проблему. Спасибо.
Ответ: Привет!
Одно решение проблемы можно найти на http://www.yourpascal.com/topic389.html Там есть файл, который надо скачать ...
Второе решение мое: в любом редакторе набираете текст - в карман (Ctrl+C). Иногда может придется перейти на английскую раскладку. -
Потом BP - в оконном варианте (Alt+ENTER) - в системном меню, через который через иконку приложения в самом левом верхнем углу - выбираете "Правка - Вставить"
|
767.
X
(23.01.2005 14:05)
0
Сайт хороший, но немного долговато грузится на модеме.
|
766.
алексей
(23.01.2005 05:51)
0
Извините за этот дурацкий вопрос, но что значит этот значек $ в паскале? Заранее спосибо!
Ответ: Это значит, что дальше пойдет число в шестнадцатиричном представлении:
var i: Integer;
i:=$0A; {аналог: i:=10; }
|
765.
Alex
(22.01.2005 11:54)
0
Здравствуйте! Помогите, пожалуйста: мне срочно нужно написать программу вот для этой задачи:
Вычислить количество каждой из букв латинского алфавита в файле A и определить самую часто встречающуюся букву: а) для нетипизированных файлов, б) для текстовых файлов.
Ответ: Вот вариант:
program LettersInFile;
const
FileName = ''let_in_f.pas'';
a = ord(''A'');
z = ord(''z'');
lets: set of Char = [''A''..''Z'',''a''..''z''];
var
t: Text;
lettrs: array[a ..z] of Integer;
i, max: Integer;
S: String;
BEGIN
for i := a to z do lettrs[i]:=0;
Assign(t, FileName);
Reset(t);
while NOT eof(t) do begin
ReadLn(t, s);
for i:=1 to length(s) do
if s[i] in lets then
inc(lettrs[ord(s[i])]);
end;
Close(t);
max:=a;
for i := a to z do
if lettrs[i] > lettrs[max] then max := i;
WriteLn(''В файле '',FileName,'' чаще всех встречается буква '',
chr(max),'', '',lettrs[max],'' раз'');
END.
|
764.
Кирилл
(19.01.2005 19:36)
0
Ну как же открыть точечный рисунок- то?
|
763.
Andrew
(18.01.2005 23:59)
0
У мненя тут проблема возникла: обработка исключительных ситуаций в Turbo pascal. Никак не могу найти инфу по этому поводу. А вообще возможна ли обработка этих ситуациий в Turbo?
И еще вопросик: можно ли программе при запуске передать строковый параметр, да так, чтобы она могла с ним работать?
|
762.
Alligator
(11.01.2005 07:05)
0
Hi, хороший сайт, я вот тут учусь програмировать, помогите, как сделать так чтобы паскаль проигрывал midi?
Ответ: Естественно, воспользоваться форматом этого файла. Чуть позднее сделаю .... Времени пока нет
|
761.
ЛЁХА
(11.01.2005 02:09)
0
Как написать эту прогу:
Описать массив - телефонный справочник - и обеспечить поиск номера по фамилии абонента.
Заранее спасибо.
Ответ: Решение найдешь на
http://www.borlpasc.narod.ru/Boris/mad_doc.zip
Не понятно будет - пиши. Там кое-что недоделано, но ...
|
760.
Антон
(10.01.2005 22:10)
0
эй ребята!ну вы мне поможите рещить то ету прогу?по дубовуму решите,так и надо,я и так дуб дубом.хы,заранее спасибо.
начальное состояние матрицы задаётся(например используйте операцию присваивания в программе)
Соседние элементы двумерного массива назовем элементами стоящимим рядом по вертикале,горизонтали,диагонали
таким образом у каждого элемента массива имееться 8 или меньше соседей.
Задание:
квадратная матрица состоит из 0 и 1 ,необходимо найти в ней прямоугольник
максимальной площади,состоящий из 0(внимание!матрицы размера 12х12 должны обрабатываться за рельано время)
|
759.
(09.01.2005 23:14)
0
Спасибо!!!
|
758.
Spirit49
(06.01.2005 23:01)
0
Ээээ. Парни у вас там касичёк есть на страничке программы, вот такого рода {Подписка на новые исходники,документацию и НОГОЕ другое}
Касак конешно не большой но все же лучше исправить....
|
757.
Askold
(04.01.2005 21:32)
0
Privet.
Need help, ja tut slishal o takom prikole kak mishka v BP, tipa nado mouse.tpu
ili chota takoja. Est li utebja takaja proga kade est kak zdelana v BP mouse
(kak sam mouse vigledit)i v programme sprashivajut naprimer You have mouse i dva
otveta Yes
No i mishkai na nih mozno nazat i programma chota delajet dalshe.
Zdu otveta.
Ответ: Ответ выслал. Предлагаю использовать мой модуль
|
756.
Насыров Ю.Г.
(04.01.2005 14:11)
0
Предлагаю разместить на Вашем сайте
одну или больше моих программ (IGRNEFT.NAROD.RU)
на Ваш выбор. Рад буду и за ссылку.
|
755.
Vopis
(04.01.2005 01:45)
0
Навигация у сайта никудышная! при таких объемах инфо задумайтесь о хорошей навигации
если интересно то у меня есть по этому поводу мысль используйте выпадающие списки либо заведите нормальную карту сайта. удачи! пишите придумаю для вас
Ответ: Мы задумались и уже предпринимаем шаги, чтобы перейти на платный хостинг. Пока у нас там (www.yourpascal.com) только форум
|
754.
Кирюша
(03.01.2005 01:19)
0
Нужно организовать три вещи:
1.
Записать в массив строк имена файлов-
содержимого определенной директории диска.
Если кто-нибудь может-
пожалуйста помогите написать для сего действия небольшую програмку.
Желательно бнз
Uses Wincrt, Windos;
Потому, что, как всегда Windos.tpu i Wincrt.tpu но фаунд.
2.
Нужно рисунок *.bmp нарисовать на экране, начиная с позицири x, y.
3. можно как- нибудь открыть exe програму
в окне моей.
И еще вот:
Я иногда нажимаю на файл правой кнопкой мыши>
открыть с помощью...
и выбираю приложение.
Или в командной строке пишу например:
A:tp7turbo.exe tralala.pas
Можно таким способом открыть файл моей програмой?
Зарание благодарен.
Кирилл.
|
|
|
|
