решите (2*с+lg(d)*51)/(d-a-1) надо решить чтоб была хоть одна подпрограмма.Здесь надо вычислить это арифметическое выражение для данных в форматах real (переменные a,b) и integer все остальные переменые.
Автор: Артемий 3.06.2007 0:53
Все у тебя надо!Свою дублированную тему не читал?
Цитата
переменные a,b
а где там b задействовано?..
Автор: fox 3.06.2007 0:54
Цитата(Артемий @ 2.06.2007 20:53)
Все у тебя надо!Свою дублированную тему не читал?
мне её закрыли за неинформативность
Автор: klem4 3.06.2007 1:00
Цитата
мне её закрыли за неинформативность
С неинформативностью с грехом пополам ты вроде разобрался, а вот с приказным тоном не особо. Здесь тебе никто ничего не должен, сам-то хоть пробовал сделать ?
Автор: fox 3.06.2007 12:32
Цитата(klem4 @ 2.06.2007 21:00)
С неинформативностью с грехом пополам ты вроде разобрался, а вот с приказным тоном не особо. Здесь тебе никто ничего не должен, сам-то хоть пробовал сделать ?
пробевал но не получилось а чего незнаю а за приказной тон извените просто практика прикумарила задачи тяжёлые.
Автор: Артемий 3.06.2007 12:55
Вот и покажи что напробовал, а мы исправим..
Автор: fox 3.06.2007 13:52
Цитата(Артемий @ 3.06.2007 8:55)
Вот и покажи что напробовал, а мы исправим..
хорошо а как в рамачку прогу вывести
Автор: Артемий 3.06.2007 14:05
Теги [code][code] (перед вторым code слэш поставь) Прочти второй пункт правил раздела.
Автор: fox 3.06.2007 14:07
[quote name='Артемий' post='105160' date='3.06.2007 10:05'] Теги
[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.
Автор: Артемий 3.06.2007 18:51
procedure nod(c,d,a:integer;var k:integer);
Ты ж сам говорил,что а и d должны быть real!
Добавлено через 1 мин.
k:=(2*c+lg(d)*51)/(d-a-1);
В pascal нужно ln(d)
Автор: fox 3.06.2007 19:36
а как из lg в ln перевести
Автор: мисс_граффити 3.06.2007 20:00
fox, не надо по 10 одинаковых сообщений отправлять. Думаешь, модераторы получат удовольствие от удаления их?
чисто математически: lg(x)=ln(x)/ln(10)
Автор: Гость 5.06.2007 0:35
Цитата(мисс_граффити @ 3.06.2007 16:00)
fox, не надо по 10 одинаковых сообщений отправлять. Думаешь, модераторы получат удовольствие от удаления их?