расчет функций

[Wedzmin]

Доброго всем времени суток, прошу помощи в двух данных задачах:
1.Цех малярной продукции за одну смену производит: синтетической шпаклевки А(т), шпаклевки масляной В(т), грунтовки глиноземной С(т), Пасты меловой D(т), замазки меловой Е(т), замазки суриковой F(т), масляных окрашивающих составов G(т), водно-масляной эмульсии Н(т).
Составить алгоитм и программу для расчета количества выпускаемой продукции за месяц, если в первую декаду цех работал в одну смену, во вторую - в полторы смены, в третью - в две смены. результат вывести на печать.


2)Составить алгоритм и программу для расчета функции y=10*sin*d*x/1+sqr(d)+sqr(x), если х изменяется от 0.1 до 10 с шагом х=0.13 , а d от 1.2 до 5.4 с шагом d=1.1

Заранее спасибо.

[phomm]

Вам тоже Доброго времени суток!
Вопросов 3 : На чём ? сумма ? если не сумма, то какие ваши наработки ?

[Stilet]

Раз автор не указал язык то мы вольны выбирать по вкусу:
вторая задача:

MODULE m;
IMPORT StdLog,Math;


PROCEDURE do*;
VAR x,d,y:REAL;
BEGIN

 StdLog.Clear;
 x:=0.1;WHILE x<=10 DO
  d:=1.2;WHILE d<=5.4 DO
   y:=10*Math.Sin(d)*x/1+d*d+x*x;
   StdLog.RealForm(y,3,5,0,' ');StdLog.Tab;
   d:=d+1.1;
  END;StdLog.Ln;
  x:=x+0.13;
 END;


END do;


END m.

кстати формула рассчета в топе никого не заинтриговала? Там есть любопытнейший момент, ломающий концепцию математики )))

[phomm]

делить на 1 ? ну я думаю, что ТС переписывал дробь с числителем и знаменателем, и при указании формы деления - слеша /, забил на скобки, посему, ему надо было писать, наверное, так : y=10*sin*d*x/(1+d^2+x^2) ну а если у него sqr это корень (хотя корень - sqrt) то возводить в степень не 2 а 0,5 , ну или использовать встроенную в ЯП функцию корня

Стилет, у Вас в коде неточность, ТС просил инкремент х 0,13 а у Вас просто 0,1. И ещё, не просвятите, что за ЯП такой ?

оО ещё заметил sin*d ))) ну наверное это было sin(d)

[Obey-Kun]

Это Oberon.

[Stilet]

phomm

Данке шон, колега
Кстати насчет формулы меня не деление смутило а синус... Он от чего?

[Wedzmin]

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

Раз автор не указал язык то мы вольны выбирать по вкусу:

кстати формула рассчета в топе никого не заинтриговала? Там есть любопытнейший момент, ломающий концепцию математики )))

ЯП - Паскаль

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

делить на 1 ? ну я думаю, что ТС переписывал дробь с числителем и знаменателем, и при указании формы деления - слеша /, забил на скобки, посему, ему надо было писать, наверное, так : y=10*sin*d*x/(1+d^2+x^2) ну а если у него sqr это корень (хотя корень - sqrt) то возводить в степень не 2 а 0,5 , ну или использовать встроенную в ЯП функцию корня

Стилет, у Вас в коде неточность, ТС просил инкремент х 0,13 а у Вас просто 0,1. И ещё, не просвятите, что за ЯП такой ?

оО ещё заметил sin*d ))) ну наверное это было sin(d)

нет, нет, у меня все написано правильно) слеш - черта деления первой стороны на другую, да скобки забыл))
sqr - квадрат вроде как)
а * пометил умножение)
вот)