Гостевая книга - Персональный сайт

843. SOLIDOL (03.04.2005 23:46)

0

Темный сайт!!! Нашел много интересного.

842. Vaso (03.04.2005 13:39)

0

Помогите спрогой, мне нужно написать процедуру, которая, зная какую-то простую функцию (скажем y=cosx) и числа a и b, рассчитывала бы значение этой функции в этих точках и выводила график функции на экран в виде звездочек (на текстовом экране, можно скажем чтобы она рассчитывала каличество пробелов до звездочки, или номер ячейки для звездочки)

Ответ: Вот так может? Пояснения, если нужны, то пиши
uses CRT;
type tFunction = function (xx: real): Real;

procedure TextGraph(func: tFunction; a, b: Real);
var
xi, yi: Integer;
x, step: Real;
begin
ClrScr;
step:=(b-a)/70;
x:=a;
xi:=5;
while x <= b do
begin
yi:=12 - round(10*func(x));
GotoXY(xi, yi); Write(''*'');
x := x + step;
inc(xi)
end
end;

function MyCos(x: Real): Real; far;
begin MyCos:=cos(x) end;

BEGIN
TextGraph(MyCos, 0, 10);
END.

841. Женя (02.04.2005 15:36)

0

Прикольный сайт!!!
спасибо!!!

840. Dmitriy (02.04.2005 11:48)

0

Да, извиняюсь, без тела цикла действительно ничего не поймешь. А вот и оно

Begin
for j:=12 downto 1 do
Begin
If j in Set12(S) then
numb:=numb+power;
power:=power shl 1;
end;

Set12 - это Set of Diap12 (Diap12 =1..12). S -формальный параметр процедуры (просто в ней используются несколько видов множеств Set4,Set3 и т.д. поэтому использую приведение типов). И что самое интересное, что до этого в Case стоит точно такой же оператор но только с Set4 - и все прекрасно работает!

Ответ: Я направил Вам письмо с просьбой уточнить детали, чтобы не заниматься лишними экспериментами. По-прежнему, предположение одно - выход за диапазон, возможно, из-за преобразования типа
Тут важны детали реализации: как объявлено и как используется

839. Dmitriy (01.04.2005 22:19)

0

Добрый день!
У меня к вас слудующий вопрос.
Выполняю я цикл for j:=12 downto 1 do
Копмилятор вылетает с ошибкой Error 201 Range Check Error. Начинаю просмотривать пошагово и обнаруживаю, что мой параметр цикла j интересно изменяется 12,11,10..5 а потом 234 вообщем совсем левое число - в чем проблема?

Ответ: Просто из заголовка цикла невозможно понять, что происходит. Поэтому и тело цикла важно.
Возможные причины:
- изменяете переменную цикла (вряд ли);
- работаете с памятью и нечаянно пишите в переменную j (более вероятно).

838. nikky (01.04.2005 14:53)

0

помогите вычислить бесконечную сумму рекурсией

Ответ: Какую, например? Что будет критерием, по которому следует прекратить суммирование? То есть: это знакоперменный ряд?

837. Vaso (31.03.2005 18:06)

0

Помогите спрогой, мне нужно написать процедуру, которая, зная какую-то простую функцию (скажем y=cosx) и числа a и b, рассчитывала бы значение этой функции в этих точках и выводила график функции на экран в виде звездочек

Ответ: Это значит, что на текстовом экране?

836. Dibl@de (29.03.2005 13:06)

0

Я хочу научиться програмировать но не знаю КАК!!!

Ответ: Недостаточно инфоромации... Где учитесь? Какие книги есть?
Простой ответ прост - откройте учебник и для начала наберите все программы, которые там есть
Если что не понятно будет, можно здесь спрашивать или на www.yourpascal.com или на www.rusfaq.ru

835. Dibl@de (29.03.2005 13:04)

0

Ни одна из игрушек Не ПОШЛА!!!!!!!!!!!!!!!!!!!!!!!!

Ответ: Не исключено, что причина в плохой работе сети, но может быть связано и с хорошим качеством Вашего компьютера. Сообщите, пожалуйста, какие именно игрушки "не пошли". Мы проверим

834. Aid (29.03.2005 09:31)

0

В разделе программы вкралась небольшая ошибка
Подписка на новые исходники, документацию и (м)ногое другое - была пропущена буква.

833. n (29.03.2005 00:02)

0

хороший сайт!
но почему не доступны для скачивания программы в разделе фаилы?

просто необходимы!!!

Ответ: Это проблемы бесплатного хостинга. По этой причине напишите, что именно Вам необходимо - поможем
А платный .... Начали мы кое-что делать на www.youpascal.com

832. Кирилл (25.03.2005 02:21)

0

Решил я как то вечером зделать окно с рамочкой из псевдографики. и вот я вызвал процедуру crt.window; затем начал записывать в окно символы псевдографики.
И настал черёд нижнего правого угла, и когда я туда поставил символ уголка, оно, зараза, перешло на следующую строку и это оставило неизгладимый след у меня на душе.
Помогите, пожалуйста, кто чем меожет, лутчше советом, как знести псевдографический символ в нижний правый угол окна без перевода строки. заранее благодарен.
Кирилл.

Ответ: Можно предложить три основных варианта, кои по сути дела, одно и тоже:
писать прямо в видеобуфер, который ничинается по адресу SegB800:0 = $B800:0 и текстовая страница занимает 4000 байт.
Счет идет с нуля. По четным адресам (и 0) - код символа, по следующему адресу - байт = аттрибут
То есть, самое простое решение:
begin
memw[Segb800:3998]:=$1bb8;
end.

831. Dima (24.03.2005 16:57)

0

Как переключать шрифт??? Все клавишы понажымал, а результата ноль. ПОмогите Please

Ответ: На нашем форуме есть хороший ответ
http://www.yourpascal.com/topic389.html

830. EvLaN (20.03.2005 18:46)

0

>Хорошо. Только давайте уточним, что Вы понимаете под термином "импортировать"? Встроить в виде ресура, просто отобразить? И какие форматы?

Ya piwu programmu, gde mne nado ispolzovat dovolno mnogo izobragenii. Mne kraine slogno, dolgo i neudobno prorisovivat ix v samom pascale. Mne skazali, 4to realno sozdat izobragenie naprimer v formate .bmp, a potom zagnat ego v samu programmu i ispolzovat ego tam. Mne nugno uznat, kak eto osuwestvit...

829. /-/ (19.03.2005 21:00)

0

хм.... и как ни странно но в твоих словах есть доля истины.... )

		Воскресенье, 12.01.2025
	Мой сайт