Программирование Turbo Pascal 7 и Delphi 7, Обращайтесь кто интересуется Опции

[DAN]

Можете сдесь задавать свои вопросы по этой теме.

[Amp]

Давай уж сразу напрямки: "Не выпедривайся, салага." Нечего нас разгильдяев жалеть.

Симаков(а это лабы по его курсу) точно не пожалеет. Зачем писать все? Пусть человек сам посидит и повозится. Ему же больше пользы.

[SiMM]

В программе ошибок нет.

Отсутствие синтаксических ошибок не означает отсутствия ошибок вообще. Как минимум, значение k при определённых условиях было неопределено (например, если x*x+y*y >= 1, или x > 0).

[Daniilka]

Отсутствие синтаксических ошибок не означает отсутствия ошибок вообще. Как минимум, значение k при определённых условиях было неопределено (например, если x*x+y*y >= 1, или x > 0).

пойду повешусь

[Bjorndalen]

А можно ли написать эту же программу, но чтобы операторы решения содержали только одно условие (не использовать булевые операции OR, AND)?

А ты думаешь, что это реально? По моему, по-любому нужен AND или OR, даже если работаешь с булевыми переменными

[Гость_mix_*]

А ты думаешь, что это реально? По моему, по-любому нужен AND или OR, даже если работаешь с булевыми переменными

Если это задачки с первого курса факультета ИВТ, специальности ПО, то не можно, а нужно, по заданию, сделать как с использованием булевых операций, так и без. Разумеется количество условных операторов будет меняться.

[Bjorndalen]

Если это задачки с первого курса факультета ИВТ, специальности ПО, то не можно, а нужно, по заданию, сделать как с использованием булевых операций, так и без. Разумеется количество условных операторов будет меняться.

Может тогда скажешь непросвещённым умам, как это сделать, не используя OR и AND?

[SiMM]

Может тогда скажешь непросвещённым умам, как это сделать, не используя OR и AND?

Условиями
A OR B

Код

if a then
  action;
else if b then
  action;
end;

A AND B

Код

if a then
  if b then
    action;
  end;
end;

[Bjorndalen]

Условиями
A OR B

Код

if a then
  action;
else if b then
  action;
end;

A AND B

Код

if a then
  if b then
    action;
  end;
end;

Но ведь в таком случае получится не один условный оператор, а несколько А в условии задачи говорится, что нужен один условный оператор и без использования OR и AND

[Amp]

Но ведь в таком случае получится не один условный оператор, а несколько А в условии задачи говорится, что нужен один условный оператор и без использования OR и AND

Про количество условных операторов сказано не было. Была фраза "одно условие". Т.е. автор пытался сказать, что надо по одному элементарному условию на условный оператор )

Сообщение отредактировал Amp - Sep 20 2007, 18:57

[Bjorndalen]

Про количество условных операторов сказано не было. Была фраза "одно условие". Т.е. автор пытался сказать, что надо по одному элементарному условию на условный оператор )

Что-то всё равно какая-то лажа получается, программа запускается, но выдаёт неправильные значения. Но в любом случае спасибо, не знал, что с if'ом можно так делать

[Bjorndalen]

Народ, скажите пожалуйста, как с помощью Паскаля можно вычислить десятичный логарифм числа?

[Amp]

log10() из юнита math

Сообщение отредактировал Amp - Sep 22 2007, 15:58

[Bjorndalen]

log10() из юнита math

То есть нужно писать примерно так?

Код

Program ghkk;
uses math;
var...

Сообщение отредактировал Bjorndalen - Sep 22 2007, 17:10

[Amp]

То есть нужно писать примерно так?

Код

Program ghkk;
uses math;
var...

Да.

[Bjorndalen]

Да.

Пишет, что нет такого файла - MATH.TPU... Другие способы не знаете? Просто, даже если такой файл будет у меня дома, то в универе такой файл вряд ли есть...

[Amp]

Другие способы не знаете?

Разложить логарифм в ряд.
P.S. Тут мне говорят, что в турбо паскале нет модуля math )) Тогда считай логарифм по основанию 10 через любой другой, какой там есть.

Сообщение отредактировал Amp - Sep 22 2007, 17:38

[Bjorndalen]

Разложить логарифм в ряд.
P.S. Тут мне говорят, что в турбо паскале нет модуля math )) Тогда считай логарифм по основанию 10 через любой другой, какой там есть.

Спасибо, но вот насчёт ряда, как его раскладывать? В методичке разложены и синус, и косинус, и натуральный логарифм, а вот разложение десятичного нету...

[Гость_xmm_*]

натуральный логарифм...

Кста, есть встроенная функция Ln(X:real)... Дальше: вспоминаем школьную формулу перехода к другому основанию для логарифмов . Применяем ее и получаем десятичный логарифм.

[Amp]

Логарифм по основанию 10 можно посчитать через натуральный логарифм. Математика, 10-ый класс.

[Daniilka]

Она самая.... что-то типа: ln(x)/ln(10)