Форум АНТИЧАТ - Студентам с лабораторными сюда

#11

15.10.2009, 11:43

Dosia

Участник форума

Регистрация: 05.06.2009

Сообщений: 127

Провел на форуме:
1313455

Репутация: 249

Цитата:

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

Паскаль
помогите плиз

//-----------------------
Выполнить табулирование функции в выбранном интервале с шагом h. Сформировать и вывести на экран таблицу значений функции,
график функции с координатными осями в графическом режиме.

При оформлении отчета построить схему алгоритма только для построения таблицы

Пояснения:
1. интервал выбрать самостоятельно, например, от -15 до 15 или от -5 до 10, главное, чтобы в нем присутствовал 0.
2. шаг для табуляции выбрать таким образом, чтобы в таблице было около 15-20 строк (максимум 23, иначе шапка будет не видна).
3. при выводе графика функции шаг выбрать поменьше, например, 0.01, и рисовать его по точкам - в этом случае точки будут
ложиться рядом и график будет плавным.
4. при выводе графика использовать тот же интервал, что и в таблице
---------------------------
формула номер Адын
http://img251.imageshack.us/img251/1218/formulas.jpg
//------------------------------

Код:

program TABULIR_FUNC;

uses graph;

var
mx,my,x,h:real;
intI,x1,x2:integer;
gd,gm:integer;

function xm(x:real):integer;
         begin
              xm:=round(320+mx*x);
         end;

function ym(y:real):integer;
         begin
         ym:=round(240-my*x);
         end;

function  f(a:real):real;
          begin
          f:=2*exp(a)+4;
          end;

procedure linovka;
var x,y:integer;
begin
setcolor(15);{color is white}
x:=5;y:=0;
repeat {draw vertical line}
line(x,0,x,GetMaxY);
x:=x+35;
until x>GetMaxX;
repeat {draw horizontal line}
line(0,y,GetMaxX,y);
y:=y+30;
until y>GetMaxY;
end;

procedure DrawAxis;
begin
setcolor(blue);{color is white}
{draw axis of ordinate}
line(round(GetMaxX/2),0,round(GetMaxX/2),GetMaxY);
line(round(GetMaxX/2),0,round(GetMaxX/2-5),10);
line(round(GetMaxX/2),0,round(GetMaxX/2+5),10);
{draw axis of abscis}
line(round(GetMaxX),round(GetMaxY /2),GetMaxX-10,round(GetMaxY/2-5));
line(round(GetMaxX),round(GetMaxY /2),GetMaxX-10,round(GetMaxY/2+5));
line(0,round(GetMaxY/2),GetMaxX,round(GetMaxY/2));
end;

begin
mx:=10;{Mashtab X}
my:=10;{Mashtab Y}
h:=0.001;
x1:=-10;
x2:=10;

writeln('Tabulirovanie funkzii');
writeln('	X	','Y');
for intI:=x1 to x2 do  writeln('    X = ',intI,'    Y = ',f(intI):6:4);
writeln('Press any key');

readln;
gd:=detect;
initgraph(gd,gm,'D:\user\program\bp\bgi');
linovka;
DrawAxis;

x:=x1;
while (x<=x2) do begin
putpixel(xm(x),ym(f(x)),red);
x:=x+h;
end;

readln;
closegraph;
end.

Результат работы:

Код:

Tabulirovanie funkzii
        X       Y
    X = -10    Y = 4.0001
    X = -9    Y = 4.0002
    X = -8    Y = 4.0007
    X = -7    Y = 4.0018
    X = -6    Y = 4.0050
    X = -5    Y = 4.0135
    X = -4    Y = 4.0366
    X = -3    Y = 4.0996
    X = -2    Y = 4.2707
    X = -1    Y = 4.7358
    X = 0    Y = 6.0000
    X = 1    Y = 9.4366
    X = 2    Y = 18.7781
    X = 3    Y = 44.1711
    X = 4    Y = 113.1963
    X = 5    Y = 300.8263
    X = 6    Y = 810.8576
    X = 7    Y = 2197.2663
    X = 8    Y = 5965.9160
    X = 9    Y = 16210.1679
    X = 10    Y = 44056.9316
Press any key

Ну и график там с осями и разлинованой плоскостью...

Последний раз редактировалось Dosia; 16.10.2009 в 07:08..