| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
1533.
Baxtiyor
(08.02.2008 17:06)
0  
Здравствуйте Борис. Помогите пожайлуста задачку решить в Delphi7.
Определитъ h-полное количество часов и m-полное количество минут, прощедщих от начала суток до того момента(в первой половине дня), когда часовая стрелка повернуласъ на f градусов(0<=f<360,f-вещественное число)
Зарание спосибо.Бахтиер.
Ответ: Ответил письмом с проектом - решением задачи. Получили?
|
1532.
Денис
(06.02.2008 15:24)
0
Доброго времени суток! Необходима помощь в решении 3-х задач, сам ломал голову, но так и не смог решить. Вот сами задачи:
1). Задание
Реализовать в виде модуля набор подпрограмм для выполнения следующих задач:
• Добавление записей в массив записей.
• Вывод на экран полученного массива.
• Упорядочение массива по заданному полю.
Все выводимые на экран результаты должны быть оформлены в виде таблиц.
Записная книга. Составить программу формирования данных о людях: Ф.И.О., город, улица, дом, квартира. Организовать выбор людей, живущих на одной улице с определенным названием.
2). Описать рекурсивную функцию NOD(A, B) целого типа, находящую наибольший общий делитель (НОД) двух натуральных чисел A и B, используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B <> 0; НОД(A, 0) = A.
3). Дано целое число K (> 0) и строковый файл. Создать два новых файла: строковый, содержащий первые K символов каждой строки исходного файла, и символьный, содержащий K-й символ каждой строки (если длина строки меньше K, то в строковый файл записывается вся строка, а в символьный файл записывается пробел).
|
1531.
Валера
(05.02.2008 23:32)
0
Привет! Почему ты не выложил программы которые я отправлял тебе в архиве? Помнишь? Там были DES.PAS, TEXTUAL.PAS, VESA.PAS и иные...
|
1530.
Санёк
(31.01.2008 22:57)
0
Доброго времени суток!
Я к вам с вопросом.
Можно ли реализовать Вывод картинки через Турбо-Ассемблер?
Понимаете, выводить рисунки вроде и не занимает времени, но при их большом количестве игра "ЗАВИСАЕТ"!
Код, как выводить рисунок, я уже выкладывал.Даже по этому поводу модуль создал.
Но помогите, и хоть раз отведте на мой вопрос.
С уважением, Санёк.
Ответ: Ну вот, можно подумать, что ни разу не отвечал :(
Конечно можно и нужно делать на ассемблере. Модуль не разглядывал пока - машину менял, переносил, переустанавливал и времени совсем не было
Посмотрю и подскажу конкретнее. Но вопрос: о какой программе именно идет речь? О новой?
|
1529.
Валера
(31.01.2008 16:37)
0
Привет, афтар! А где у тебя выложен Stony Brook Pascal о котором ты писал в http://archives.maillist.ru/88343/64004.html? Хотел бы на него позыреть...
Ответ: Не я писал этот выпуск. Сам в первый раз слышу, и не пробовал ни разу, ессно. У нас на сайте быть его не может, поскольку он коммерческий
Google выдал такие ссылки:
http://pascal.sources.ru/tmt/net.htm
Далее - все одна ссылка, которую нужно склеить - просто слишком длинной получается строка и не удобно работать
http://translate.google.com/translate?hl=ru
&sl=en&u=http://hopl.murdoch.edu.au/
showlanguage.prx%3Fexp%3D3297%26language%3
DSB-Pascal&sa=X&oi=translate&resnum=5&ct=result
&prev=/search%3Fq%3DStony%2BBrook%2BPascal%26start
%3D10%26complete%3D1%26hl%3Dru%26newwindow%3D1%
26client%3Dfirefox-a%26rls%3Dorg.mozilla:ru:official
%26sa%3DN
|
1528.
Iner
(31.01.2008 16:24)
0
ок, не понятно следующие:
что такое prod: Longint; и count
а так, вроде, всё понимаю)
Ответ: В prod храню произведение цифр. На всякий случай объявил его как Longint, хотя, если посчитать наибольший случай (все девятки), то и Integer хватит.
А count - это счетчик найденных числе. Ввел для того, что, если изменить интервал поиска, то может ни одного числа не будет найдено - тогда пустой экран получил, и не ясно: программа зависла или нет ничего.
-=-
ЗЫ: обрати внимание, что в произведение не включаю нули!!
|
1527.
Санёк
(29.01.2008 19:42)
0
Поздравляю сам себя! Я написал новую прогу на ЧИСТО досовсеом паскале. Это чат.Если просто интересно, или захотите скачать, обращайтесь!
Мыло вон ^^^^.
|
1526.
Iner
(28.01.2008 20:51)
0
Полностью согласен, что сайт отличный.
вот очень простая задача, котораю не могу решить.
если можете, решите ее по простому)
В каких двузначных числах удвоенная сумма цифр равна их произведению?
Ответ: Вот как это можно сделать :))
С помощью операции MOD (остаток от деления) находим цифры, а дальше ... если не понятно что, то спрашивайте
===========
var i, k, b, count: Integer;
sum, prod: Longint;
BEGIN
WriteLn;
count :=0;
for i:=10 to 999 do begin
k:=i;
sum:=0; prod:=1;
while k <> 0 do begin
b:= k mod 10;
sum:=sum + b;
if b <> 0 then prod:=prod*b;
k:=k div 10
end;
if sum*2 = prod then begin
Write(i:4,'' '',sum:4,'' '', prod:4,'', '');
inc(count)
end;
end;
WriteLn;
if count = 0 then WriteLn(''Таких чисел нет'');
END.
|
1525.
валера
(27.01.2008 23:16)
0
отличный сайт
Ответ: Спасибо за высокую оценку. Если возникнет необходимость - приходите - поможем :))
|
1524.
Хнык
(25.01.2008 18:07)
0
нарооод! чем отличается борладн паскаль от турбо паскаля?
Ответ: BP.EXE лучше работает под Windows. Именно в нем и надо рекомендовать работать под Windows. В нем лучше реализованы некоторые функции, например, Format
TURBO.EXE - это ЧИСТО DOS-овская программа. Возможны даже глюки (хотя следует отметить, что нечасто такое бывает)
|
1523.
Инер
(21.01.2008 20:44)
0
ломал. ломал голову..
так и не довёл до конца..
как решить?
Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9.
Ответ: Проще всего решается задача, если написать функцию, которая возвращает сумму чисел (здесь число считается десятичным, но можно в любой системе счисления).
---
function SumOfDigits(s: Integer): Integer;
var sum: Integer;
begin
sum:=0;
while s <> 0 do begin
sum := sum + (s mod 10);
s:= s div 10
end;
SumOfDigits:=sum;
end;
var i: Integer;
BEGIN
For i:=10 to 99 do
if (SumOfDigits(i) = SumOfDigits(i*2)) and
(SumOfDigits(i) = SumOfDigits(i*3)) and
(SumOfDigits(i) = SumOfDigits(i*4)) and
(SumOfDigits(i) = SumOfDigits(i*5)) and
(SumOfDigits(i) = SumOfDigits(i*6)) and
(SumOfDigits(i) = SumOfDigits(i*7)) and
(SumOfDigits(i) = SumOfDigits(i*8)) and
(SumOfDigits(i) = SumOfDigits(i*9)) then Write(i:5);
WriteLn;
END.
|
1522.
Санёк
(20.01.2008 14:57)
0
Куку.Это я и как всегда мне чегото непонятно.Я с вопросом.Как исскуственно переключить раскалатку?
Я написал программу-чат, интересная штука.
Она росчитана на игру по локалке, и количество учасников не ограничено.Единая неувазка.Каждый раз надо переключать раскладку.(Редактор-Прога-редактор-прога).Плиз, HELP!
Зы: Кому надо, скину.Мыло вон ^^^.
|
1521.
Катя
(20.01.2008 13:55)
0
Всем здравствуйте!
Обращаюсь к Вам с просьбой, точнее с предложением. Нужно написать диплом, программу на Паскале. Тема диплома еще не выбрана, можете предложить свою тему!Кого моё предложение заинтерисовало - пишите(ася 440061553)в долгу не останусь...
|
1520.
Санёк
(19.01.2008 18:44)
0
Доброго времени суток!
У меня очередной вопрос.Но он немножко не в тему.
Возможно подключение двух устройств(Комп и например фотик) к одному накопителю.Имеется в виду накопитель - флэшка внутри фотика.Короче принцип таков:
А) Фотик автоматически фоткает, сохраняет наверное кудато.
Б) В это время к фотику подключен комп, на котором работает паскаль.Он сканирует, нет ли новой фотки.
В) Если есть, то копирует(И замещает) файл на сервер народа(Это возможно?).
Г)А на странице работает автоматическое обновление 5 сек.
В общем получается Веб камера.
Помогите, как это зделать с програмной стороны.
Очень признателен.
Заранее спасибо. :)
|
1519.
Санёк
(18.01.2008 15:30)
0
Добрый день!
Я с удовольствием выкладываю свое новое творение.
Это игра FIGHTCUR.
Советую попробывать, это так сказать тренировщик мыши.
12 уровней.
Исходники есть.Там модуль для мыши.
Ссылка выше. ^^^
Ответ: С неменьшим удовольствием выложил сие творение на
http://borlpasc.narod.ru/progclognie.htm №34
|
|
|
|
