Паскаль. Помогите с задачами

[MOTOCoder]

В чем его отличие например, от седьмого?
Если в нем есть тип Extended и он крмпилит ассемблер, можно попробовать так:
[syntax='pascal']
program asin;
var x,a:extended;
function ArcTan2(const Y, X: extended):extended;assembler;
asm
FLD Y
FLD X
FPATAN
FWAIT
end;

function ArcSin(const X:real):real;
begin
ArcSin := ArcTan2(X, Sqrt(1 - X * X))
end;
begin

writeln(arcsin(x*x*x-a);
readln;

end.
[/syntax]

[BBB]

Мне надо для паскаля 3

Где ты достал такой раритет!?

В TP 7.0 есть ф-я ArcTan. М/б и в 3-м есть.

В хелпе на нее даны же формулы вычисления через нее arcsin и [/b]arccos[/b]:

ArcSin(x) = ArcTan (x/sqrt (1-sqr (x)))
ArcCos(x) = ArcTan (sqrt (1-sqr (x)) /x)

[Serge_Bliznykov]

а я не верю, что человек достал и пользуется TurboPascal 3.0!!!
Может быть, речь идёт о Borland Delphi 3.0 ??
Так там должны быть обратные тригонометрические функции...
и ещё, похоже, что автор вопроса потерял к нему всякий интерес... ;-(

[Serge_Bliznykov]

добавлю...
Программа "Turbo Pascal v3.02" от 1986 года.
подробнее (и скачать 166 кб TP3.02) можно тут - http://www.sources.ru/pascal/museum/tp302.htm
и ещё, если мне не изменяет память, программа умела генерить только COM файлы ;-)))

и ещё добавлю...
скачал, запустил. С ОГРОМНОЙ НОСТАЛЬГИЕЙ посмотрел на чёрный экран с меню, управляемое исключительно горячими клавишами...эх... молодость, молодость... ;-)
по теме -
BBB, абсолютно прав, в Pascal 3 есть функция ArcTan
через неё и выводить Arcsin...

[BBB]

С ОГРОМНОЙ НОСТАЛЬГИЕЙ посмотрел на чёрный экран с меню, управляемое исключительно горячими клавишами...эх... молодость, молодость... ;-)

Полчаса канался вспоминая/подбирая комбинаци, КАК ВЫЙТИ ИЗ ТЕКСТОВОГО РЕДАКТОРА! Все-таки, в итоге удалось.

Между прочем, а той ссылке, что ты дал, есть еще ссылака, на http://community.borland.com/museum/ (правда, перерасывает на http://dn.codegear.com/museum/)
Там есть TP 1.0. Среда, кстати, такая же, как у TP 3.02. Видимо, в языке различия.

в Pascal 3 есть функция ArcTan

У меня тоже нашлась Причем, в TP 1.0 тоже имеется (проверил).

Код:

Код: Выделить всё

begin
  writeln ('Hello, world!');
  writeln (Arctan (1) / 3.14159 * 180 );
end.

На выходе дает:

Код: Выделить всё

Hello, world!
  4.5000038010E+01

[BBB]

...С ОГРОМНОЙ НОСТАЛЬГИЕЙ посмотрел на чёрный экран с меню, управляемое исключительно горячими клавишами...

Как раз вчера коллега прислал e-mail с, как я понял, цитатой из книги 1989 годы выпуска
(впечатлила фраза "с трудом заставляют себя изучать команды ДОС" ):


Кренкель Т. Э., Коган А. Г., Тараторин А. М.
Персональные ЭВМ в инженерной практике. - М.: Радио и связь, 1989.

Одним из примеров громоздкой и, по мнению авторов, бесполезной надстройки является интегрированная система WINDОWS фирмы Micrоsoft. Эта система занимает почти 1 Мбайт дисковой памяти и рассчитана на преимущественное использование совместно с устройством типа <мышь>.

Таким образом, читатель уже понял, что среди надстроек над ДОС бывают довольно бесполезные системы, которые только выглядят красиво, а на самомделе отнимают время пользователя, память на дисках и оперативную память ЭВМ. Обманчивая красота таких систем, однако, сильно воздействует на неискушенных пользователей, которые не имели практики работы на машине. Инерция мышления бывает столь сильна, что авторам приходилось наблюдать, как люди, начавшие работать с подобной настройкой, впоследствии с трудом заставляют себя изучать команды ДОС. Хочется предостеречь от этой ошибки читателей.

[Serge_Bliznykov]

Полчаса канался вспоминая/подбирая комбинаци, КАК ВЫЙТИ ИЗ ТЕКСТОВОГО РЕДАКТОРА!

:-D :-D :-D
Ctrl-K-D если мне память не изменяет :-)

Одним из примеров громоздкой и, по мнению авторов, бесполезной надстройки является интегрированная система WINDОWS фирмы Micrоsoft.

да... мы с Вами, судя по всему, успели выучить команды DOS до этого ;-)
а я сегодня прочитал анонс про выход windows 7 (Vienna, если не ошибаюсь)
в 2009 году.

[drummer]

alt+x вродь выход из паса

[likyrg]

ага... часто встречается
из того же дебаггера асмовского

[BBB]

alt+x вродь выход из паса

ага... часто встречается из того же дебаггера асмовского

"Эх, как же Вы еще молоды!" ((c) П.Кулешов)
)))))) GUI появилось, если я правильно понимаю, только с 4-й версии TP.

:-D :-D :-D
Ctrl-K-D если мне память не изменяет :-)

Ну да, так и оказалось Все-таки, вымучил эту комбинацию. Напрягся и, видимо, в сочетании рефлекторной памяти с аналитическими размышлениями, получил результат
Вообще, сначала тянуло на ^Q^(что-то) Опять же казалось, что ^X должно присутствовать, но ошибся. Опять же казалось, что ^K^S - выход с сохранением (S - save), но выхода не происходило.

Вообще, хороший такой квест. А что, условия игры "Запустите TP 3.0, войдите в редактор текста. Задача - выйти из него"

да... мы с Вами, судя по всему, успели выучить команды DOS до этого ;-)

В общем-то, особо DOS-команды учить необходимости тогда уже не было, оболочки Norton/Volkov Commander-a давали много возможностей. DOS-команды, пожалуй, используемые в написании bat-файлов. Даже больше можно сказать - используемые в написании autoexec.bat

Вообще, некоторые и сейчас полезны могут быть. Например, команда for.