1.الگوریتمی بنویسید که ضرایب یک معادله ی درجه ی 2 را از وردودی گرفته و ریشه های این معادله را محاسبه کند و چاپ کند
Program Digree2;
Uses CRT;
Var
a:integer;
b:Integer;
c:Integer;
Delta:Integer;
x1:Real;
x2:Real;
BEGIN
clrscr;
gotoxy(22,3);
Writeln( ' Enter Value for a, b, c:');
gotoxy(10,5);
Write('a: ');
Readln(a);
gotoxy(10,6);
Write('b: ');
Readln(b);
gotoxy(10,7);
Write('c: ');
readln(c);
gotoxy(18,10);
{ Write (a,' ', 'X ^ 2',' ', b,' ', 'X',' ', c);}
Delta:= b * b - 4 * a * c;
Gotoxy(22,15);
Writeln('Delta is:',' ', Delta);
Case Delta of
0..32767: Begin
x1:= ((-b) + SQR(Delta)) / 2 * a;
x2:= ((-b) - SQR(Delta)) / 2 * a;
Writeln('x1 is: ',x1);
Writeln('x2 is: ',x2);
End;
0: begin
x1:=((-b)/a);
Writeln('x is : ', x1);
End;
-32768..0 : Writeln('Root = !@#$%^&*()');
End;
Readln;
END.
2.الگوریتمی بنویسید که ضرایب یک دستگاه دو معادله ، دو مجهول را از ورودی گرفته و ریشه های معادله را به دست آورد و چاپ کند.
يا با كرامر، يا ماتريس، حذفي