سورس نتیجه معادله به صورت گرافیکی به زبان پاسکال
در این پست شما می توانید سورس نتیجه معادله به صورت گرافیکی را از ما دریافت کنید. توی این برنامه معادله ای نمایش داده شده در تصویر به صورت گرافیکی رسم می شود.
جهت مشاهده جزئیات کامل سورس نتیجه معادله به صورت گرافیکی به زبان پاسکال لطفا به ادامه مطلب مراجعه فرمائید.
تکه کد سورس نتیجه معادله به صورت گرافیکی به زبان پاسکال:
جهت دریافت کد کامل این برنامه لطفا از بخش خرید محصول اقدام کنید
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;