Prooof
عدد المساهمات : 12
نقاط : 5520
تاريخ التسجيل : 21/04/2009
 | موضوع: برنامج حساب مشتق كثير حدود  الأحد مايو 24, 2009 3:54 pm | |
| برنامج حساب مشتق كثير حدود البرنامج بحساب مشتق كثير حدود وقد كان إختبارا في العمل التطبيقي للسنة أولى LMD. .زوروني على: http://membres.multimania.fr/baekoasishttp://baekoasis.ahlamountada.com/{
****************************************************************
****** Dérive d''un polygone de degr‚s n *****
****** réalisé par l''enseignant ben mir abd el kader 2009 *****
****************************************************************
}
program DerivePol;
uses crt;
const m = 30;
var tpol : array[1..m] of integer;
tder : array[1..m] of integer;
i,n : integer;
s : string;
dec, pdeux : integer;
c : char;
begin
repeat
clrscr;
writeln('*******************************************************************************');
writeln('************** D‚riv‚ d''un polygone de degr‚s n *************');
writeln('************** r‚alis‚ par l''enseignant ben mir abd el kader 2009 *************');
writeln('*******************************************************************************');
writeln;
writeln;
write('donner la degr‚s de votre polygone <= 30 :');readln(n);
while (n > 30) or (n < 1) do
begin
write('donner la degr‚s de votre polygone < 30 :');readln(n);
end;
{lecture des coefficients dans un tableau}
n := n +1;
writeln('donner les coefficients de votre polygone');
for i := n downto 1 do
begin
write('donner le coefficient de x puissance ',i-1, ' ');
readln(tpol[i]);
end;
writeln;
for i := 1 to n do
begin
tder[i] := (i-1)*tpol[i]; {derive}
end;
{le polygone est}
write('le polygone est : ');
for i := n downto 1 do
if tpol[i] <> 0 then
begin
s := '+';
if tpol[i] < 0 then
s := '';
if i = n then
s := '';
if i = 1 then
write(s,tpol[i])
else
if i = 2 then
write(s,tpol[i],'X')
else
write(s,tpol[i],'X',i-1);
end;
writeln;
write('le derive est : ');
for i := n downto 2 do
if tder[i] <> 0 then
begin
s := '+';
if tder[i] < 0 then
s := '';
if i = n then
s := '';
if i = 2 then
write(s,tder[i])
else
if i = 3 then
write(s,tder[i],'X')
else
write(s,tder[i],'X',i-2);
end;
writeln;
{pour r‚executer le programme}
write('voulez vous entrez un nombre "o" sinon "n" : ');readln(c);
until c = 'n';
write('appuyer sur une touche');
readln;
end.[left] | |
|
