| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
1503.
Санёк
(09.01.2008 20:21)
0  
Спасибо.Но тут вот какая проблема.Я скопировал, подключил.Но вместо графического режима вклчаестся текстовый.подскажите,чё делать?
Ответ: IBM... не пользовал, старый он. Вот тут
http://borlpasc.narod.ru/Boris/Lab_11_sources.zip
есть архив, в котором есть все, что нужно - пример выполнения лабораторной работы
|
1502.
Мадина
(09.01.2008 20:09)
0
Большое спасибо за задачу!
|
1501.
Наталья
(09.01.2008 18:57)
0
Вы можете еще помочь мне?
Записная книга. Составить программку о людях (в виде записей с полями: ФИО, город, улица, дом, квартира), и с процедурами 1)Чтоб можно было добавлять записи.
2)Организовать выбор людей, живущих на одной улице, с определенным названием. Полученный список упорядочить по номеру дома. спасибо
Ответ: В каком виде нужно хранить информацию о людях:
1) в виде массива фиксированного размера;
2) в виде списка (одностороннего хватит).
|
1500.
Наталья
(09.01.2008 18:46)
0
Спасибо большое
|
1499.
Санёк
(09.01.2008 01:20)
0
А где тут можно скачать драйвер с расширением 1024х768? Слыхал, он называется IBM8514. 256 цветов!
:)
Ответ: Есть такой: http://borlpasc.narod.ru/Boris/IBM8514.BGI
Но лучше используйте более современные:
http://borlpasc.narod.ru/Boris/svga_bgi.ZIP
http://borlpasc.narod.ru/Boris/bgi256.ZIP
Там есть и описание, как пользоваться
|
1498.
Наталья
(08.01.2008 18:53)
0
А почему моих сообщений тут не видно?
Ответ: Нам пытаются запихнуть громадную кучу всякой гадости - пришлось ввести премодерацию - предварительный просмотр сообщений
|
1497.
Baxtiyor
(07.01.2008 14:26)
0
Здраствуйте Борис. Помогите пожайлуста еще с одной задачкой:
Читаемой файлом кончаюшей c точкой текcт прочитатъ, обратной порядке показиваюшей программу востановит.
В этом текце каждой слово должен смотрется списковим порятке.
Спосибо за помощъ. Бахтиер.
Ответ: Извини, пожалуйста, но я не понял, что нужно сделать.
Напиши пример:
1) каким может быть содержимое исходного читаемого файла;
2) что должно получиться в результате работы программы.
|
1496.
Наталья
(07.01.2008 13:52)
0
А еще:
Описать процедуру, находящую кол-во цифр,данного целого положительного числа к, и их сумму
Ответ: procedure DoNum(source: LongInt; var count, sum: Word);
var st: String;
begin
Str(source, st);
count:=length(st);
sum:=0;
while source <> 0 do begin
sum := sum + source mod 10;
source:= source div 10;
end
end;
VAR
c, s: Word;
w: Longint;
BEGIN
w:=123456;
DoNum(w, c, s);
WriteLn(w,'' '',c,'' '',s);
END.
|
1495.
Тамара Полякова
(05.01.2008 11:58)
0
Игорь Вячеславович! Поздравляю Вас от всей души с Новым годом и Рождеством! Желаю Вам здоровья крепкого, удачи и счастья в Новом 2008 году.
Спасибо за помощь!!!
|
1494.
Baxtiyor
(05.01.2008 11:06)
0
Здраствуйте Борис. Помоги пожайлуста еще с одной задачкой:
Читаемой файлом кончаюшей c точкой текcт прочитатъ, обратной порядке показиваюшей программу востановит.
В этом текце каждой слово должен смотрется списковим порятке.
Спосибо за помощъ. Бахтиер.
|
1493.
Мадина
(04.01.2008 16:52)
0
Здравствуйте!!! Вот такая задачка у меня непростая!!! Помогите ,пожалуйста, решить её!!! Дана строка состоящая из русских слов разделённых пробелами. Вывести строку содержащию эти же слова разделённых символов "точка". В конце строки точку не ставить. Вот!!! Help PLZ!!
Ответ: Вот самое простое решение:
========
VAR
s: String;
BEGIN
s:=''asdhfg asfhghj g HHASDF adsfhj '';
WriteLn(s);
while POS('' '', s) <> 0 do s[POS('' '', s)] := ''.'';
while (s[length(s)] = ''.'') and (s <> '''') do delete(s,length(s), 1);
WriteLn(s);
END.
|
1492.
Наталья
(29.12.2007 17:38)
0
Здравстуйте! Можете мне помочь с программированием? Несколько задач не могу сделать(но говорят, что легкие:)) Вот одна из них: "Дана строка из русских слов, разделенных пробелами (одним или несколькими). Найти длину самого короткого слова."
Ответ: const source: String = ''слово фыв ывав авыыр жсжсж ух '';
VAR
s, buf: String; {будет самое короткое}
i: Integer; {положение в строке}
BEGIN
i:=1;
s:='''';
while i <= length(source) do begin
while (source[i] = '' '') and (i < length(source)) do inc(i);
if i = length(source) then Break;
buf:='''';
while (i <= length(source)) and (source[i] <> '' '') do
begin
buf:=buf + source[i]; inc(i)
end;
if s = '''' then s:=buf
else
if length(buf) < length(s) then
s:=buf
end;
WriteLn(source);
WriteLn(s)
END.
|
1491.
Янис
(28.12.2007 23:20)
0
Тут какнибудь самому моно добавлять программы?
Ответ: Сейчас уже нет - хулиганы завелись. Присылайте
|
1490.
Санёк
(28.12.2007 22:15)
0
Добрый день!Как там дела?У меня вопросик-как созавать папки?(В досе(Тр7))?Кстати,писмо не дошло.Плиз,отправте его ещё разок на Mezhova_djsmart@mail.ru ...
Зарание сенкс!
Ответ: Папку создает MkDir
----
Я лучше дам прямые ссылки на твои игрушки (честнее будет), но обрати внимание на две вещи:
1) в конце страницы апостроф "вмешался" и стал виден комментарий;
2) liner ссылается на Hunter
----
Сейчас добавлю, что займусь после нового года - сессия, надо зачеты-экзамены ставить
С Наступающим Новым Годом, желаю озарений прекрасных
---
С большим уважением, Борис
|
1489.
ha7y
(28.12.2007 11:02)
0
"Вычислениедня недели", по дате.
"в алгоритме небольшое" упущение, попробуйте вычислить день недели 1 октября 2007 года и сравните с календарем. А потом и 2, и 3, и 4. Проследите изменение дней недели =)
мне кажется, несколько строчек кода нужно модифицировать на такие:
w := (trunc(2.6*m - 0.2) + d + y div 4 + y + c div 4 - 2*c) mod 7;
if w < 0 then
w := w + 7;
Имхо. Удачи!
Ответ: Я посмотрел файл http://borlpasc.narod.ru/prog/days.pas
Он выдает правильно
Может еще есть? Я не писал их, потому и не знаю доподлинно все. Когда у меня возникла подобная задача - с нуля писал
|
|
|
|
