ANTICHAT — форум по информационной безопасности, OSINT и технологиям

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.

class Payment {

    private:
        
        string Name;
        string LastName;
        float Salary;
        int EntranceYear;
        float Bonus;
        float Tax;
        int RealActiveDays;
        int ActiveDays;
        float AmountCharged;
        float RetentionMoney;
        
        float PensionFund;
        int CurrentYear;
        
    public:
        
        float get_amount_charged ();
        float get_retention_money ();
        float get_paid ();
        int get_experience ();     
        
};


Payment::get_amount_charged () {
    
    return (( Salary / ActiveDays ) * RealActiveDays * ( 1 + Bonus )); // Я хз как оно вычисляется на самом деле
    
}

Payment::get_retention_money () {

    return (( AmountCharged * PensionFund ) + ( AmountCharged * Tax ));
    
}

Payment::get_paid () {

    return ( AmountCharged - RetentionMoney );

}

Payment::get_experience () {
    
    return ( CurrentYear - EntranceYear );

}

for i:=1 to 5 do write (M[i]:5);
writeln
for j:=1 to 3 do write (M[j]:3);
writeln

for i:=1 to 5 do
begin
writeln;
end;
for j:=1 to 3 do write(M[i;j]:15);

for i:=0 to N do
begin
    writeln ("Enter ", i+1, "number: ");
    readln (N[i]);
end;

for i:=0 to N do
    write (N[i], " ", sqr(N[i]), " ", sqrt(N[i]), "\n");