سورس نتیجه معادله به صورت گرافیکی به زبان پاسکال

دوشنبه ۴ آذر ۱۳۹۲
بازدید ۷۰۲ نفر
نوآوران گرمی
(80 امتیاز از 22 رای)
Loading...

سورس نتیجه معادله به صورت گرافیکی به زبان پاسکال

در این پست شما می توانید سورس نتیجه معادله به صورت گرافیکی را از ما دریافت کنید. توی این برنامه معادله ای نمایش داده شده در تصویر به صورت گرافیکی رسم می شود.

جهت مشاهده جزئیات کامل سورس نتیجه معادله به صورت گرافیکی به زبان پاسکال لطفا به ادامه مطلب مراجعه فرمائید.

تکه کد سورس نتیجه معادله به صورت گرافیکی به زبان پاسکال:

<span style="color: #ff0000;"><strong>جهت دریافت کد کامل این برنامه لطفا از بخش خرید محصول اقدام کنید</strong></span>
program Mohadele;
uses graph;
Const
    TabLine = 200;
    TabNumber = 15;
    CountNumber = 12;
var
   grDriver,grMode,MenuSel:integer;
   X,A,B,C,D:integer;
   X0,Y0:integer;
   i,tempx,tempy:integer;
   StrX,StrA,StrB,StrC,StrD:string;
{****************************************}

function ShowMenu:integer;
var
   Num:integer;
begin
  repeat
    writeln('-------------------- Select Menu ----------------------');
    writeln('1- Y= ax + b.');
    writeln('2- Y= ax^2 + b.');
    writeln('3- Y= ax^3 + bx^2 + cx + d.');
    writeln('4- Sin.');
    writeln('5- Cos.');
    writeln('6- Exit Program.');
    writeln;
    write('Choice Number:');
    readln(Num);
    writeln('------------------------------------------------------');
  until (Num > 0) and (Num < 7);
    ShowMenu:=Num;
end;
                   {---------------------}
procedure GetM1(Var X,A,B:integer);
begin
     writeln('********    Mohadele 1(Y= ax+b)     ***********');
     write('Enter X:');
     readln(X);
     write('Enter A:');
     readln(A);
     write('Enter B:');
     readln(B);
end;
                    {---------------------}
procedure GetM2(Var A,B:integer);
begin
     writeln('********    Mohadele 2(Y= ax^2+b)     ***********');
     write('Enter A:');
     readln(A);
     write('Enter B:');
     readln(B);
end;
procedure GetM3(Var X,A,B,C,D:integer);
begin
     writeln('********    Mohadele 3(Y= ax+bx+cx+d)     ***********');
     write('Enter X:');
     readln(X);
     write('Enter A:');
     readln(A);
     write('Enter B:');
     readln(B);
     write('Enter C:');
     readln(C);
     write('Enter D:');
     readln(D);
end;

<span style="color: #ff0000;"><strong>جهت دریافت کد کامل این برنامه لطفا از بخش خرید محصول اقدام کنید</strong></span>

program Mohadele;

uses graph;

Const

TabLine = 200;

TabNumber = 15;

CountNumber = 12;

var

grDriver,grMode,MenuSel:integer;

X,A,B,C,D:integer;

X0,Y0:integer;

i,tempx,tempy:integer;

StrX,StrA,StrB,StrC,StrD:string;

{****************************************}

function ShowMenu:integer;

var

Num:integer;

begin

repeat

writeln('-------------------- Select Menu ----------------------');

writeln('1- Y= ax + b.');

writeln('2- Y= ax^2 + b.');

writeln('3- Y= ax^3 + bx^2 + cx + d.');

writeln('4- Sin.');

writeln('5- Cos.');

writeln('6- Exit Program.');

writeln;

write('Choice Number:');

readln(Num);

writeln('------------------------------------------------------');

until (Num > 0) and (Num < 7);

ShowMenu:=Num;

end;

{---------------------}

procedure GetM1(Var X,A,B:integer);

begin

writeln('******** Mohadele 1(Y= ax+b) ***********');

write('Enter X:');

readln(X);

write('Enter A:');

readln(A);

write('Enter B:');

readln(B);

end;

{---------------------}

procedure GetM2(Var A,B:integer);

begin

writeln('******** Mohadele 2(Y= ax^2+b) ***********');

write('Enter A:');

readln(A);

write('Enter B:');

readln(B);

end;

procedure GetM3(Var X,A,B,C,D:integer);

begin

writeln('******** Mohadele 3(Y= ax+bx+cx+d) ***********');

write('Enter X:');

readln(X);

write('Enter A:');

readln(A);

write('Enter B:');

readln(B);

write('Enter C:');

readln(C);

write('Enter D:');

readln(D);

end;

آموزش زبان روسی به روش نصرت در 90 روز (دانلود رایگان)

آموزش برنامه سازی 2 سی شارپ به صورت فیلم همراه با سورس کد هر فصل

فیلم آموزش برنامه سازی 1 سی شارپ به همراه سورس کد هر فصل

آموزش پروژه محور مدیریت داروخانه به زبان سی شارپ به همراه سورس کد پروژه

آموزش زبان انگلیسی نصرت به صورت MP3 و متن کامل مکالمه

فروش ویژه فیلم آموزش تصویری نرم افزار NS2 به زبان فارسی

دانلود فیلم آموزش php از مبتدی تا پیشرفته به صورت ساده و روان

سورس نتیجه معادله به صورت گرافیکی به زبان پاسکال

سورس نتیجه معادله به صورت گرافیکی به زبان پاسکال