Полная версия: логорифм
решите (2*с+lg(d)*51)/(d-a-1) надо решить чтоб была хоть одна подпрограмма.Здесь надо вычислить это арифметическое выражение для данных в форматах real (переменные a,b) и integer все остальные переменые.
Все у тебя надо!Свою дублированную тему не читал?
а где там b задействовано?..
Цитата
переменные a,b
а где там b задействовано?..
Цитата(Артемий @ 2.06.2007 20:53) 
Все у тебя надо!Свою дублированную тему не читал?
Цитата
мне её закрыли за неинформативность
С неинформативностью с грехом пополам ты вроде разобрался, а вот с приказным тоном не особо. Здесь тебе никто ничего не должен, сам-то хоть пробовал сделать ?
Цитата(klem4 @ 2.06.2007 21:00)
С неинформативностью с грехом пополам ты вроде разобрался, а вот с приказным тоном не особо. Здесь тебе никто ничего не должен, сам-то хоть пробовал сделать ?
пробевал но не получилось а чего незнаю а за приказной тон извените просто практика прикумарила задачи тяжёлые.
Вот и покажи что напробовал, а мы исправим..
Цитата(Артемий @ 3.06.2007 8:55)
Вот и покажи что напробовал, а мы исправим..
хорошо
а как в рамачку прогу вывести
Теги [code][code]
(перед вторым code слэш поставь)
Прочти второй пункт правил раздела.
(перед вторым code слэш поставь)
Прочти второй пункт правил раздела.
[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.
[/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.
procedure nod(c,d,a:integer;var k:integer);
Ты ж сам говорил,что а и d должны быть real!
Добавлено через 1 мин.
k:=(2*c+lg(d)*51)/(d-a-1);
В pascal нужно ln(d)
а как из lg в ln перевести 
fox, не надо по 10 одинаковых сообщений отправлять.
Думаешь, модераторы получат удовольствие от удаления их?
чисто математически:
lg(x)=ln(x)/ln(10)
Думаешь, модераторы получат удовольствие от удаления их?
чисто математически:
lg(x)=ln(x)/ln(10)
Цитата(мисс_граффити @ 3.06.2007 16:00)
fox, не надо по 10 одинаковых сообщений отправлять.
Думаешь, модераторы получат удовольствие от удаления их?
чисто математически:
lg(x)=ln(x)/ln(10)
спасибо
а задачку сможеш решить
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.