LMD OUARGLA

LMD OUARGLA
 
الرئيسيةاليوميةس .و .جبحـثالتسجيلدخول

شاطر | 
 

 برنامج حساب مشتق كثير حدود

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Prooof



عدد المساهمات : 12
نقاط : 3172
تاريخ التسجيل : 21/04/2009

مُساهمةموضوع: برنامج حساب مشتق كثير حدود   الأحد مايو 24, 2009 3:54 pm

برنامج حساب مشتق كثير حدود
البرنامج بحساب مشتق كثير حدود
وقد كان إختبارا في العمل التطبيقي للسنة أولى LMD.

.زوروني على:

http://membres.multimania.fr/baekoasis
http://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]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
برنامج حساب مشتق كثير حدود
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
LMD OUARGLA :: رياضيات و إعلام آلي :: قســــم البرمجة-
انتقل الى: