Формулы в ТурбоПаскале

[Trazzy]

Задали сестре в школе по информатике написать программку в ТурбоПаскале, что вычисляет по следующим формулам (привожу отсканированое задание). Я в шоке, раньше все сам ей решал, но в этот раз "жопа"(сори за выражение).. Решить не удается.. Помогите кто силен в математике...

[ViNT]

Первая будет

Y:=abs(cos(2*x*x*x)+2*sin(x/1.2-3.4))+10.51*cos(abs(3*x)); 


Вторая

Y:=18.4*(cos(abs(x)))*sin(x*x-2.5); 


А в третьей не прочитать, что написано.

[impersonalis]

Возможно нужно провести коррекцию угла (градусы-ту-радианы) для тригнометрических фунЕций.
Третье:
в два цикла считаем a & b с кол-вом итераций i+8 и i+5 (i=11), соответственно, затем производим две простых операции и получаем финал в Z.

[Trazzy]

2*x*x*x

а не так случайно: 2*(x^3) ???

в два цикла считаем a & b с кол-вом итераций i+8 и i+5 (i=11), соответственно, затем производим две простых операции и получаем финал в Z.

Код в студию! Если не трудно))

[ViNT]

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

а не так случайно: 2*(x^3) ???

В паскале оператора возведения в степень нет.
Можно для больших степеней функцию писать (что-то с логарифмами, так сходу не вспомню), а вданном случае проще перемножить, поскольку степень небольшая.
А "^" это указатель (Pointer).

[Trazzy]

Пока только сложил программку из того что есть:

program krutaya;
  uses crt;
  var v, x: integer;
  const i=11;
begin
  clrscr;
   writeln('Vyberite formulu:');
   writeln(' 1) abs(cos(2*x*x*x)+2*sin(x/1.2-3.4))+10.51*cos(abs(3*x))');
   writeln(' 2) 18.4*(cos(abs(x)))*sin(x*x-2.5)');
   writeln(' 3) ---');
   write('Vvedite nomer vybranogo varianta: ');
   readln(v);
   if v=1 then
     begin
       clrscr;
       write('x=');
       readln(x);
       writeln(abs(cos(2*x*x*x)+2*sin(x/1.2-3.4))+10.51*cos(abs(3*x)));
       readln;
     end;
   if v=2 then
     begin
       clrscr;
       write('x=');
       readln(x);
       writeln(18.4*(cos(abs(x)))*sin(x*x-2.5));
       readln;
     end;
   if v=3 then
     begin
       clrscr;
       {...}
     end;
end.

А как же быть с последней формулой(ами) ???

[Trazzy]

А "^" это указатель (Pointer).

а, точно))) гг) протупил))

Вот то, что я смог понять с третего:
(и то не знаю правильно ли.. сомнительное обведено)

[ViNT]

А что такое fi и тем более 6(x)?

[Trazzy]

А что такое fi и тем более 6(x)?

это наверное не fi, а fi или f1...
...а 6(х) - это 6*х

[Trazzy]

И тишина..

мне кажется что это не так, никто не пишет как в посте №7
скорее всего i+5 и i+6 это номер функции

тогда получим что-то типа (свободная нотация ^_^ ) :
Z = E(x=[11,19])(f(16,x)) - 2*P([x=11,16])(f(17,x))

развернув получим :
Z = f(16,11)+f(16,12)+...+f(16,18)+f(16,19) - 2*f(17,11)*f(17,12)*...*f(17,15)*f(17,16)

где первый параметр функции это её номер, а второй это X, теперь непонятно как их посчитать потому что нету самой f, может это первые две, но они не зависят от i

в общем условие неполное

[ABTOMAT]

ArtikZ, задавали именно формулой?
Просто сигма и произведение - явно намёк на циклы

[Trazzy]

теперь непонятно как их посчитать потому что нету самой f

возможно предполагалось что f будет вводиться пользователем в программе..

ArtikZ, задавали именно формулой?

я и сам даже не знаю что к чему.. малая небыла тогда в школе, а задание переписала у однокласницы.. и теперь и сам не пойму что да как (т.к. в математике не силен) и еще и других запутал.. ))))

Надо что-нибудь придумывать.. во вторник надо уже сдать.. это ппц!

[Trazzy]

Подсказали такой код. Можно так? (срочняк)

program my;
  uses crt;
  const i=11;
  var a, z, b, d, f: real;
       x: integer;
begin
  clrscr;
   d:=1;
   s:=0;
   for x:=1 to 19 do
   f:=18.4*cos(abs(x))*sin(sqr(x)-2.25);
   s:=s+f;
   x:=x+1;
   a:=s;
   for x:=1 to 16 do
   f:=abs(cos*2(exp(3)*ln(x)+2*sin(x/1.2-3.4))+10.5*cos*abs(3*x);
   d:=d-f;
   b:=d;
   x:=x+1;
   z:=a-2*b;
   writeln('z=', z:5:2);
readln;
end.

Поправьте где ошибки..