Как в паскале реализовать функцию Ln(x) (натуральный логарифм (логарифм с основой e~1.7)).
И как в Турбо паскале вывести на принтер string?

Цитата(Vex @ 02.7.2002, )

И как в Турбо паскале вывести на принтер string?

var f:TextFile;
...
assign(f, prn);
rewrite(f);
writeln(f,'My string');
Close(f);

Или просто копируешь в RichEdit строку и вызываешь RichEdit.Print('111');

Цитата

Или просто копируешь в RichEdit строку и вызываешь RichEdit.Print('111');

Человеку надо на Паскале, а не на Дельфи!

Код

var f:TextFile; ... assign(f, prn); rewrite(f); writeln(f,'My string'); Close(f);

этот код будет печатать только на принтер который к LPT порту присоединен!!!

Все делается через ассемблерную вставку (З.Ы. как именно Паскаль это делает - хз)
FYL2X (Y умножить на логарифм по основанию 2 от X)
ST <- Y*Log2(X) = ST1*Log2(ST)
Эта функция выполняет операцию логарифмирования.  Она берет
логарифм по основанию 2 от содержимого вершины стека и затем
умножает его на элемент ST1.  Команда FYL2X извлекает из стека
число X и замещает результат числом Y.  Исходные числа должны
удовлетворять следующим соотношениям:
0 < X < бесконечности и - бесконечность < Y < бесконечности.
Эта функция позволяет вычислять логарифмы и по основаниям, отличным
от 2.  Следующая формула:
Logn(2) * Log2(X)
вычисляет логарифм числа X по основанию n; значение Logn2
вычисляется как 1/(Log2n).

А вот как дельфи считает
f:= ln (5); =
{
fld tbyte ptr [$0044dbc0]
fldln2
fxch st(1)
fyl2x
fstp st(0)
}

Цитата

этот код будет печатать только на принтер который к LPT порту присоединен!!!

А к чему еще под ДОС? К USB - так там нужно общение с его драйвером...

Цитата(Baa @ 03.7.2002, 18:07)

А вот как дельфи считает f:= ln (5); = { fld tbyte ptr [$0044dbc0] fldln2 fxch st(1) fyl2x fstp st(0) }

Несколько минут тупо смотрел на этот код и думал, ну причем здесь принтер, пока не дошло, что был второй вопрос про логарифм.

1 тема - 1 Вопрос, господа. Скоро к часто нарушающим начну применять репрессивные меры - просто закрывать такие топики!

Так он не написал что ему надо под ДОС печатать!!!
Вобщем есть такие программы которые переводят с LPT (ДОС программы), на любой другой принтер.

Цитата

Так он не написал что ему надо под ДОС печатать!!!

Как это не говорил!!? Он указал что нужна программа на Turbo Pascal, а TP для виндов нет! только для ДОС.

А кто сказал что нет ТP для виндов!!!
Turbo Pascal for Windows есть точно , кажется от борланда!!!

Тока не надо нас дурить! от борланда был продукт, называемый "Borland Pascal for Windows" имеющий весьма малое отношение к Turbo Pascal. Я работал от Turbo Pascal 3.0 до последнего выпущенного Turbo Pascal 7.0 и все они были только для ДОС. Одновременно с Turbo Pascal 7.0 Борланд выпустил Borland Pascal - версию для работы в защищенном режиме и "Borland Pascal for Windows" - для раздаботки програм в среде Windows 3.1 - оба эти продукта были совершенно самостоятельными, хотя и могли продаваться одним пакетом с Turbo Pascal 7.0.

У меня есть диск где белым по черному написано Turbo Pascal for Windows от фирмы Borland, оболочка у него досовская, но есть компилятор для WIN3.1!!!

Думаю мы чуть чуть от темы отвлеклись!!