Вопросы по Turbo Pascal

[ice@]

напомните что такое дисперсия массива, нужно ее вычислить....

[Aurum]

Сообщение от Dreamer

Это с рекурсией?

это комбинированный метод... сам придумал )

function aker(m,n: integer): integer;
begin
    inc(count);
    if mRes[m,n]=0 then 
        begin      
            if m=0 then mRes[m,n]:=n+1
            else if n=0 then mRes[m,n]:=aker(m-1, 1)
            else if (m*n>0) then mRes[m,n]:= aker(m-1, aker(m,n-1));
        end;      
    aker := mRes[m,n];
end;

суть такова: есть масив (mRes) все эл-ты равны 0, каждый раз когда вычисляется функция аккермана(м,н) , значение заносится в mRes[м,н], но при вычислении функции проверяется сначала ячейка массива если она 0 тогда функция вычисляется рекурсией если там уже есть значение то функция равна этому значению... нужен очень большой массив по н!

[Dreamer]

Сообщение от Aurum

это комбинированный метод... сам придумал )

function aker(m,n: integer): integer;
begin
    inc(count);
    if mRes[m,n]=0 then 
        begin      
            if m=0 then mRes[m,n]:=n+1
            else if n=0 then mRes[m,n]:=aker(m-1, 1)
            else if (m*n0) then mRes[m,n]:= aker(m-1, aker(m,n-1));
        end;      
    aker := mRes[m,n];
end;

суть такова: есть масив (mRes) все эл-ты равны 0, каждый раз когда вычисляется функция аккермана(м,н) , значение заносится в mRes[м,н], но при вычислении функции проверяется сначала ячейка массива если она 0 тогда функция вычисляется рекурсией если там уже есть значение то функция равна этому значению... нужен очень большой массив по н!

Однако молоток! Мне нравится

[Muxa]

помогите горю...
1. Функція f з натуральними аргументами і значеннями визначена так: f(0) = 0, f(1) = 1, f (2n) = f(n), f (2n+1) = f (n) + f (n+1). Скласти програму обчислення f (n) за заданим n, яка потребує порядка log n операцій.

[Dreamer]

Я вот этого не понимаю... log n Какое основание логарифма?)

[Dreamer]

Да Мих! Повезло тебе с заданием! Слава Богу мне такое не досталось! Блин а ведь могло... могло!
Рекурсией сделать просто... Я осилю! Но вроде бы вся изюминка в том дабы без неё обойтись! Тема "Циклы". Поэтому хотелось бы видеть здесь алгоритм без рекурсии.

Мне вот недавно досталось биквадратное уравнение! В принципи ход мыслей тут намного более ясен но в процессе реализации возникает много подводных камней. В целом они все обходятся но... код... он всё растёт и растёт... растёт и растёт... В принципи интересно. В целом я остался доволен.
P.S.: И это 1й курс только... Далее будет ещё интереснее

P.P.S.: Лозунги студентов:
Филологов и экономистов: "Сдадим сессию на 4 и на 5!"
Информатиков: "Сдадим сессию... и пересдадим..."

[zwitter]

Сообщение от Dreamer

Я вот этого не понимаю... log n Какое основание логарифма?)

подозреваю что натуральный

[Dreamer]

Сообщение от zwitter

подозреваю что натуральный

Помоги это "горе" без рекурсии реализовать)))

[Dreamer]

Простите за оффтоп... Вопросик юным геометрам! Кто знает как найти длину биссектрисы одного из углов произвольного треугольника НЕ НАХОДЯ никаких arccos'инусов при этом?

Или по теме... Кто знает как напаскалить функцию arccos'инуса кот. возвратит результат в градусах? Если кто-то знает... пусть напаскалит сюда) Родина вас не забудет! ах да... аргумент функции - значение косинуса угла в градусах как вы наверное догадались!

[hermit]

подскажите какая функция в паскале используется для возведения числа в степень

[Dreamer]

Сообщение от nosferatu

подскажите какая функция в паскале используется для возведения числа в степень

Нет такой функции! Это выводится...
a в степени b = Exp(b*Ln(a))

[Dreamer]

Сообщение от Dreamer

Простите за оффтоп... Вопросик юным геометрам! Кто знает как найти длину биссектрисы одного из углов произвольного треугольника НЕ НАХОДЯ никаких arccos'инусов при этом?

Или по теме... Кто знает как напаскалить функцию arccos'инуса кот. возвратит результат в градусах? Если кто-то знает... пусть напаскалит сюда) Родина вас не забудет! ах да... аргумент функции - значение косинуса угла в градусах как вы наверное догадались!

Биссектриса делит противолежащую сторону не просто так... Отношения сторон кот. образуют угол на близлежащие части третьей стороны образованные делением гипотенузы равны Вот отседова нада и следовать... там всё просто))) )

[Надежда]

Сообщение от Dreamer

Да Мих! Повезло тебе с заданием! Слава Богу мне такое не досталось! Блин а ведь могло... могло!
Рекурсией сделать просто... Я осилю! Но вроде бы вся изюминка в том дабы без неё обойтись! Тема "Циклы". Поэтому хотелось бы видеть здесь алгоритм без рекурсии.

Мне вот недавно досталось биквадратное уравнение! В принципи ход мыслей тут намного более ясен но в процессе реализации возникает много подводных камней. В целом они все обходятся но... код... он всё растёт и растёт... растёт и растёт... В принципи интересно. В целом я остался доволен.
P.S.: И это 1й курс только... Далее будет ещё интереснее

P.P.S.: Лозунги студентов:
Филологов и экономистов: "Сдадим сессию на 4 и на 5!"
Информатиков: "Сдадим сессию... и пересдадим..."

А Я ХАЛЯВЩИУЦА МНЕ ПОВЕЗЛО

[Dreamer]

Сообщение от Надежда

А Я ХАЛЯВЩИУЦА МНЕ ПОВЕЗЛО

Классно! А ты откуда?)

З.Ы. А у нас халявщикам не повезло... Им грозит сессия

[TAVI$K@R()N]

люди падскажите плиз как в файл типа запись записывать значения полей? например есть такой файл
db : file of record
name, stat : string[30];
namb : byte;
end;

и есть например переменые там а='шото' и в=1
как мне записать эти значения в поля name и namb файла? заранее пасиба
и еще просьба выложите плиз модуль для работы паскаля с досом DOC.TPU ))

[Dreamer]

Сообщение от TAVI$K@R()N

люди падскажите плиз как в файл типа запись записывать значения полей? например есть такой файл
db : file of record
name, stat : string[30];
namb : byte;
end;

и есть например переменые там а='шото' и в=1
как мне записать эти значения в поля name и namb файла? заранее пасиба
и еще просьба выложите плиз модуль для работы паскаля с досом DOC.TPU ))

1) Никак. В файл можно записывать только записи целиком. Формируй запись - переменную тип которой совпадает с типом данных типизированного файла а затем записывай её в этот файл
2) Может DOS.TPU? На самом деле этот модуль отдельно не поставляется. Он встроен в TURBO.TPL Как и CRT Поэтому доступен всем и всегда (естественно если он не был предварительно удалён из TURBO.TPL утилитой TPUMOVER.EXE)
Если хочешь использовать данный модуль в разделе инициализации используемых модулей добавь: uses DOS;

[TAVI$K@R()N]

ну нетак написал ну падумаеш. юсес я писал, нафиг мне иначе дос?, а паскаль пишет шо dos.tpu ненайден. был бы он я б непрасил. а нащет файла то эт как. саздам я например запись. заполню ее. а как патом в файл ее записать? файл должен быть имено типа запись. такое условие

[Dreamer]

По поводу модуля DOS...
Не будем голословны... Всё запускается
З.Ы.: Файла DOS.TPU в директориях Turbo Pascal'я у меня нет

[Dreamer]

По поводу файлов звписей
Делается так...
В разделе Type описываем тип кот. базируется на записе:
Type
Rec=record
x:boolean;
...
end;
Потом в разделе Var описываем переменную описаного ранее типа и файл (файловую переменную) элементы которого описаного ранее типа:
Var
R:Rec;
F:File of Rec;
В разделе реализации присваиваем значения полям записи R:
R.x:=True;
...
Связываем файловую переменную с файлом на диске. Создаём файл и открываем его для записи. Записываем в него R. Закрываем файл:
Assign(F,'File.rec');
Rewrite(F);
write(F,R);
Close(F);
Вот и всё...
Ясно?

[TAVI$K@R()N]

пасиба большое!! а паскаль всетаки с досом работать нехочет расшарь плиз свой в дц а то у меня он каличный наверно какойто

[Dreamer]

Сообщение от TAVI$K@R()N

пасиба большое!! а паскаль всетаки с досом работать нехочет расшарь плиз свой в дц а то у меня он каличный наверно какойто

В дц редко сижу... Качай здесь http://192.168.1.70/rupload/download.php?file=669646

[TAVI$K@R()N]

человеческое тебе спасиба))

[Dreamer]

Сообщение от TAVI$K@R()N

человеческое тебе спасиба))

Ой да ради Бога... Обращяйся...

[TIGR]

Сообщение от TAVI$K@R()N

ну нетак написал ну падумаеш. юсес я писал, нафиг мне иначе дос?, а паскаль пишет шо dos.tpu ненайден. был бы он я б непрасил. а нащет файла то эт как. саздам я например запись. заполню ее. а как патом в файл ее записать? файл должен быть имено типа запись. такое условие

ты попробуй пути правильные выставить, мож из за этого у тебя косяки, в опциях раздел Directories, бывает пральное задание этих папок помогает )

[Dreamer]

Сообщение от TIGR

ты попробуй пути правильные выставить, мож из за этого у тебя косяки, в опциях раздел Directories, бывает пральное задание этих папок помогает )

Нет. Дело не в этом. Смотри. Если у него компилируется прога кот. не использует никаких явно подключаемых модулей то значит TURBO.TPL (он хранит в себе модуль SYSTEM (кот. используется всегда), DOS, CRT, PRINTER и OVERLAY) на месте. Следовательно компилятор находит TURBO.TPL. Наверное из TURBO.TPL утилитой TPUMOVER.EXE был удалён модуль DOS или... или я не знаю

[TAVI$K@R()N]

или просто каличный паскаль))

[Lelichek]

Сообщение от BenQ

Но не знать его стыдно

хм... а что стыдного в незнании Паскаля.. вот я его немного знаю.. и знаешь.. мне от этого не холодно, не жарко... скажу даже больше. я задачки эти терпеть немогу...

[Dreamer]

Сообщение от Lelichek

хм... а что стыдного в незнании Паскаля.. вот я его немного знаю.. и знаешь.. мне от этого не холодно, не жарко... скажу даже больше. я задачки эти терпеть немогу...

Как тебе сказать... Его стыдно незнать тому кто называет себя специалистом в области информационных технологий

[zwitter]

канонично. а зачем ?

[Debian]

а как в порты ввода-вывода в паскале писать? и читать?