forum.boolean.name - Формулы в ТурбоПаскале

forum.boolean.name (http://forum.boolean.name/index.php)

- Математика (http://forum.boolean.name/forumdisplay.php?f=85)

- - Формулы в ТурбоПаскале (http://forum.boolean.name/showthread.php?t=9372)

Trazzy

07.10.2009 23:14

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

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

ViNT	07.10.2009 23:53

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

Первая будет

PHP код:




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

Вторая

PHP код:




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

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

impersonalis

08.10.2009 00:17

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

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

Trazzy

08.10.2009 04:41

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

Цитата:

2*x*x*x

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

Цитата:

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

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

ViNT	08.10.2009 10:44

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

Цитата:

Сообщение от ArtikZ (Сообщение 120965)

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

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

Trazzy

08.10.2009 14:47

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

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

Код:

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

08.10.2009 15:36

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

Цитата:

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

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

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

ViNT	08.10.2009 15:38

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

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

Trazzy

08.10.2009 16:14

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

Цитата:

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

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

Trazzy

10.10.2009 07:42

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

И тишина..

jimon

10.10.2009 08:44

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

мне кажется что это не так, никто не пишет как в посте №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

11.10.2009 02:14

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

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

Trazzy

11.10.2009 06:21

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

Цитата:

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

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

Цитата:

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

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

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

Trazzy

13.10.2009 02:00

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

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

Код:

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.

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

Часовой пояс GMT +4, время: 08:36.