IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> логорифм
fox
сообщение 2.06.2007 20:49
Сообщение #1


Гость






решите (2*с+lg(d)*51)/(d-a-1) надо решить чтоб была хоть одна подпрограмма.Здесь надо вычислить это арифметическое выражение для данных в форматах real (переменные a,b) и integer все остальные переменые.
 К началу страницы 
+ Ответить 
Артемий
сообщение 2.06.2007 20:53
Сообщение #2


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Все у тебя надо!Свою дублированную тему не читал?
Цитата
переменные a,b

а где там b задействовано?..

Сообщение отредактировано: Артемий - 2.06.2007 20:55


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
fox
сообщение 2.06.2007 20:54
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  -1  +


Цитата(Артемий @ 2.06.2007 20:53) *

Все у тебя надо!Свою дублированную тему не читал?
мне её закрыли за неинформативность
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 2.06.2007 21:00
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
мне её закрыли за неинформативность


С неинформативностью с грехом пополам ты вроде разобрался, а вот с приказным тоном не особо. Здесь тебе никто ничего не должен, сам-то хоть пробовал сделать ?


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
fox
сообщение 3.06.2007 8:32
Сообщение #5


Гость






Цитата(klem4 @ 2.06.2007 21:00) *

С неинформативностью с грехом пополам ты вроде разобрался, а вот с приказным тоном не особо. Здесь тебе никто ничего не должен, сам-то хоть пробовал сделать ?

пробевал но не получилось а чего незнаю а за приказной тон извените просто практика прикумарила задачи тяжёлые. wacko.gif
 К началу страницы 
+ Ответить 
Артемий
сообщение 3.06.2007 8:55
Сообщение #6


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Вот и покажи что напробовал, а мы исправим..


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
fox
сообщение 3.06.2007 9:52
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  -1  +


Цитата(Артемий @ 3.06.2007 8:55) *

Вот и покажи что напробовал, а мы исправим..

хорошо
а как в рамачку прогу вывести
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Артемий
сообщение 3.06.2007 10:05
Сообщение #8


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Теги [code][code]
(перед вторым code слэш поставь)
Прочти второй пункт правил раздела.

Сообщение отредактировано: Артемий - 3.06.2007 10:06


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
fox
сообщение 3.06.2007 10:07
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  -1  +


[quote name='Артемий' post='105160' date='3.06.2007 10:05']
Теги
Код
[code]
[/quote]
спасибо поня ша накатаю :wink:  :wink:

[size=1][b]Добавлено через [/b] 18 мин. [/size]
вот чё я наделал:
[code=pas]program ei3;
var
c,k:integer;
a,d:real;
procedure nod(c,d,a:integer;var k:integer);
begin
k:=(2*c+lg(d)*51)/(d-a-1);
writeln(выражение равно k', k);
readln(k);
end;
begin
writeln('ввести a,d,c');
read(a,d,c);
nod(c,d,a,k);
readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Артемий
сообщение 3.06.2007 14:51
Сообщение #10


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


procedure nod(c,d,a:integer;var k:integer);

Ты ж сам говорил,что а и d должны быть real!

Добавлено через 1 мин.
k:=(2*c+lg(d)*51)/(d-a-1);

В pascal нужно ln(d)

Сообщение отредактировано: Артемий - 3.06.2007 14:53


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
fox
сообщение 3.06.2007 15:36
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  -1  +


а как из lg в ln перевести nea.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 3.06.2007 16:00
Сообщение #12


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


fox, не надо по 10 одинаковых сообщений отправлять.
Думаешь, модераторы получат удовольствие от удаления их?

чисто математически:
lg(x)=ln(x)/ln(10)


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Гость
сообщение 4.06.2007 20:35
Сообщение #13


Гость






Цитата(мисс_граффити @ 3.06.2007 16:00) *

fox, не надо по 10 одинаковых сообщений отправлять.
Думаешь, модераторы получат удовольствие от удаления их?

чисто математически:
lg(x)=ln(x)/ln(10)

спасибо
 К началу страницы 
+ Ответить 
fox
сообщение 4.06.2007 20:37
Сообщение #14


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  -1  +


а задачку сможеш решить
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 18.07.2025 0:16
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"