Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/16: Рейтинг темы: голосов - 16, средняя оценка - 4.88
Bizzaro
1

Составить программу табулирования функции

02.04.2010, 01:06. Показов 3135. Ответов 2
Метки нет (Все метки)

Помогите проверить задачу (Составить программу табулирования функции ln (x + √ (x + y)) в прямоугольнике [a, b] x [c, d] с шагом табуляциы h. a=0;b=2;c=1;d=2;h=0.1) Вот моя программа
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
30
31
32
33
34
35
36
37
38
39
program aa;
uses crt;
 const  a=0;
    b=2;
    c=1;
    d=2;
    h=0.1;
 
   var  x,y,f,k,l:real;
      i,j,m,n,q: integer;
   begin
   clrscr;
   writeln('programa vuvodit zna4enie funkcuuf,f:=ln(x+sqrt(x+y)) z hagom 0.1');
   writeln('najmite lubuju klavihu');
   k:=(b-a)/h;
   q:=0;
   l:=(d-c)/h;
   n:=round(k);
   m:=round(l);
   x:=a;i:=0;y:=c;j:=0;
   for i:=0 to n do
   begin
   for j:=0 to m do
   begin
   f:=ln(x+sqrt(x+y));
   writeln('f[',x:5:2,';',y:5:2,']=',f:5:2);
   y:=y+h;
   q:=q+1;
    if q=11 then
   begin
   writeln('prodolgit');
   readln;
   q:=0;
   end;
   end;
   x:=x+h;
   y:=c+h;
   end;
   end.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2010, 01:06
Ответы с готовыми решениями:

Составить программу табулирования функции
сейчас очень нужно.. составить программу табулирования функции y = x2 - 0.2x + 2.13 , x є , ...

Составить программу табулирования функции
Составить программу табулирования функции y=f(x) на заданном промежутке xє с заданным шагом h....

Составить программу табулирования функции
Вычислите таблицу значений функции y=\begin{cases}\frac{\operatorname{tg}^2(a+x)-a}{e^^{a-x}}...

Составить программу табулирования функции
Всем привет помогите пожалуйста на паскале составить программу табулирования функции ...

__________________
2
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,087
02.04.2010, 07:29 2
Я бы чуть поправил.
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
30
31
32
33
34
35
36
program aa;
uses crt;
const  a=0;
       b=2;
       c=1;
       d=2;
       h=0.1;
       t=0.0001;{точность попадания в конечный интервал, иначе его может не посчитать,
кстати у Вас и не считает}
var x,y,f:real;
    q: integer;
begin
clrscr;
writeln('programa vuvodit zna4enie funkcuuf,f:=ln(x+sqrt(x+y)) z hagom 0.1');
writeln('najmite lubuju klavihu');
readkey;{раз уж написали жми, то и команда нужна}
x:=a;q:=0;
while x<=b+t do
 begin
  y:=c;
  while y<=d+t do
   begin
    f:=ln(x+sqrt(x+y));
    writeln('x=',x:0:1,'  y=',y:0:1,'  f=',f:5:2);
    y:=y+h;
    q:=q+1;
    if q mod 22=0 then{можно и пореже жать на клавишу}
     begin
      writeln('prodolgit');
      readkey;
     end;
   end;
   x:=x+h;
 end;
readkey
end.
1
2 / 2 / 4
Регистрация: 03.11.2012
Сообщений: 5
03.11.2012, 22:27 3
Цитата Сообщение от Bizzaro Посмотреть сообщение
Помогите проверить задачу (Составить программу табулирования функции ln (x + √ (x + y)) в прямоугольнике [a, b] x [c, d] с шагом табуляциы h. a=0;b=2;c=1;d=2;h=0.1) Вот моя программа
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
30
31
32
33
34
35
36
37
38
39
program aa;
uses crt;
 const  a=0;
    b=2;
    c=1;
    d=2;
    h=0.1;
 
   var  x,y,f,k,l:real;
      i,j,m,n,q: integer;
   begin
   clrscr;
   writeln('programa vuvodit zna4enie funkcuuf,f:=ln(x+sqrt(x+y)) z hagom 0.1');
   writeln('najmite lubuju klavihu');
   k:=(b-a)/h;
   q:=0;
   l:=(d-c)/h;
   n:=round(k);
   m:=round(l);
   x:=a;i:=0;y:=c;j:=0;
   for i:=0 to n do
   begin
   for j:=0 to m do
   begin
   f:=ln(x+sqrt(x+y));
   writeln('f[',x:5:2,';',y:5:2,']=',f:5:2);
   y:=y+h;
   q:=q+1;
    if q=11 then
   begin
   writeln('prodolgit');
   readln;
   q:=0;
   end;
   end;
   x:=x+h;
   y:=c+h;
   end;
   end.
Обьясни пожалуйста, что такое l и k? А q это вместо цыкла?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2012, 22:27

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Составить программу табулирования функции y=Ln(Abs(x-4))
Составить программу табулирования функции y=Ln(Abs(x-4)) на интервале x ϵ , (delta)х=0.1 ...

Составить программу табулирования значения функции
Составить программу табулирования значения функции. Задается начальное значение аргумента 'а',...

Составить программу табулирования функции. На завтра нужно
Составить программу табулирования функции: y=x^2-0,2*x+2,13 , x є, h=0,4 На завтра нужно..

С помощью рекурсивного определения описать функцию f и составить программу табулирования этой функции
С помощью рекурсивного определения описать функцию f и составить программу табулирования этой...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.