‘орум программистов, компьютерный форум, киберфорум
Ќаши страницы
Pascal (ѕаскаль)
¬ойти
–егистраци€
¬осстановить пароль
 
–ейтинг 4.67/3: –ейтинг темы: голосов - 3, средн€€ оценка - 4.67
maalinka
0 / 0 / 0
–егистраци€: 03.03.2009
—ообщений: 7
#1

ѕо данным разработать алгоритм и программу вычислени€ функции ”

04.03.2009, 12:55. ѕросмотров 555. ќтветов 3
ћетки нет (¬се метки)

1.) ѕо данным разработать алгоритм и программу вычислени€ функции ” (’ вводитс€ с клавиатуры при работе программы). ƒанные:
”={((ј(¬+1)^2)/(ј^2 (ј^2+1)); ј>¬
¬^2/(¬(ј+¬)); ј≤¬)

ј= (е^(х-0,05) )^2
¬= (2х)^3

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program kr1;
Var
   x:real;
   A,B,y:real;
   Begin
   Writeln('vvedite x');
   Read(x);
     A:=sqr(exp(x-0.05));
     B:=2*sqr(x)*x;
        if A>B then y:=(A*sqr(B+1))/(sqr(A)*(sqr(A)+1))
        else if A<=B then y:=(sqr(B))/(B*(A+B));
        writeln('y=',y:5:2)
    End.

2.) » ещЄ что-то не получаетс€:
ѕо предыдущим данным разработать циклический алгоритм и программу вычислени€ функции ”. (’ мен€етс€ от 1 до 10 с шагом 1). –езультат вывести на экран в виде таблицы с заголовком.
0
Ќадоела реклама? «арегистрируйтесь и она исчезнет полностью.
Similar
Ёксперт
41792 / 34177 / 6122
–егистраци€: 12.04.2006
—ообщений: 57,940
04.03.2009, 12:55
ќтветы с готовыми решени€ми:

–азработать алгоритм и составить программу вычислени€ таблицы значений функции
–азработать алгоритм и составить программу вычислени€ таблицы значений функции, заданной в виде...

–азработать алгоритм и программу вычислени€ функции дл€ элементов блока квадратной матрицы [A]
ƒана задача, не могу пон€ть, что в ней надо сделать:wall: –азработать алгоритм и программу...

–азработать алгоритм дл€ вычислени€ значени€ функции
–азработать алгоритм дл€ вычислени€ значени€ функции y(x)= |arcsin(x+5)|. ѕрошу помочь.

–азработать алгоритм вычислени€ выражени€, использу€ процедуры и функции
–азработать алгоритм вычислени€ выражени€, использую процедуры и функции sinbx+(e/y^2)...

—оздайте программу дл€ вычислени€ значени€ функции p по данным формулам
—оздайте программу дл€ вычислени€ значени€ функции p по формулам: ...

3
schdub
Ёксперт —++
3030 / 1374 / 419
–егистраци€: 19.01.2009
—ообщений: 3,664
«авершенные тесты: 1
04.03.2009, 20:18 #2
ѕо первой программе:

¬ вашей программе неверно вычисл€лось B:
 од
¬=(2х)^3
это тоже самое, что 
¬=2*х*2*х*2*х
или
¬=sqr(2*х)*2*х
а у ¬ас
B:=2*sqr(x)*x;
“ак же
Pascal
1
2
if A>B then y:=(A*sqr(B+1))/(sqr(A)*(sqr(A)+1))
else if A<=B then y:=(sqr(B))/(B*(A+B));
второй if не нужен, т.к. если A не больше B, то ј меньше или равно ¬.

¬от подправленна€ ¬аша программка
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program kr1;
 
uses CRT;
var x,y,A,B:real;
 
Begin
  ClrScr;
 
  Write('x = ');
  ReadLn(x);
 
  A := sqr(exp(x-0.05));
  B := (2*sqr(x))*2*x;
 
  if A>B then
     y:=(A*sqr(B+1))/(sqr(A)*(sqr(A)+1))
  else
     y:=(sqr(B))/(B*(A+B));
 
  WriteLn('y =',y:5:2);
 
  WriteLn('ƒл€ продолжени€ нажмите любую клавишу...');
  ReadKey;
End.
¬тора€ ¬ам очень нужна?
1
maalinka
0 / 0 / 0
–егистраци€: 03.03.2009
—ообщений: 7
05.03.2009, 08:56  [“—] #3
ƒа и втора€ задача очень нужна, если можно помогите!!!
0
schdub
Ёксперт —++
3030 / 1374 / 419
–егистраци€: 19.01.2009
—ообщений: 3,664
«авершенные тесты: 1
05.03.2009, 19:01 #4
¬тора€
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses CRT;
 
var A,B     :real;
    x       : integer;
    results : array[1..10] of REAL;
 
Begin
  ClrScr;
 
  for x:=1 to 10 do {x измен€етс€ от 1 до 10}
  begin
    A := sqr(exp(x-0.05));
    B := (2*sqr(x))*2*x;
 
    if A>B then
      results[x]:=(A*sqr(B+1))/(sqr(A)*(sqr(A)+1))
    else
      results[x]:=(sqr(B))/(B*(A+B));
  end;
 
  Write('вФМвФАвФАвФАвФАвФА'); for x:=1 to 10 do Write('вФђвФАвФАвФАвФАвФА'); WriteLn('вФР');
  Write('вФВ  X  '); for x:=1 to 10 do Write('вФВ ',x:4); WriteLn('вФВ');
  Write('вФЬвФАвФАвФАвФАвФА'); for x:=1 to 10 do Write('вФЉвФАвФАвФАвФАвФА'); WriteLn('вФ§');
  Write('вФВ  Y  '); for x:=1 to 10 do Write('вФВ',results[x]:2:3); WriteLn('вФВ');
  Write('вФФвФАвФАвФАвФАвФА'); for x:=1 to 10 do Write('вФівФАвФАвФАвФАвФА'); WriteLn('вФШ');
 
  WriteLn('ƒл€ продолжени€ нажмите любую клавишу...');
  ReadKey;
End.
1
MoreAnswers
Ёксперт
37091 / 29110 / 5898
–егистраци€: 17.06.2006
—ообщений: 43,301
05.03.2009, 19:01

—оставить алгоритм и программу вычислени€ функции
ѕожалуйста помогите составить программу, заранее спасибо! —оставить алгоритм и программу...

—оставить алгоритм и программу вычислени€ функции
—оставить алгоритм и программу вычислени€ функции, x, y Ц вводитс€ с клавиатуры ...

—оставить алгоритм и программу вычислени€ значени€ функции
ѕожалуйста помогите составить программу, заранее спасибо! ¬ычислить y=min{a,b,c}+max{d,f}, где...


»скать еще темы с ответами

»ли воспользуйтесь поиском по форуму:
4
ќтвет —оздать тему
ќпции темы

 ибер‘орум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
–ейтинг@Mail.ru