منتدى الرياضيــات كل من اختار سلك الرياضيات هنا تجد مبتغاك

قديم 01-04-2009, 06:57 AM
  #351
worod94
 
تاريخ التسجيل: 29-03-2009
المشاركات: 52
worod94 عضو يستحق التميز
افتراضي

من جد وجد و من زرع حصد
worod94 غير متواجد حالياً  
قديم 01-04-2009, 07:15 AM
  #352
khelef
VIP_MEMBRE
 الصورة الرمزية khelef
 
تاريخ التسجيل: 29-05-2008
المشاركات: 1,024
khelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداع
افتراضي

بارك الله فيك اخي worod94 على المرور
__________________
كن حذرا اليوم مما تزرع لتحصد غدا

وعلى قدر عطائك في الحياة تأتيك ثمارها


رب ضاحك والألم يعتصر كبده، وآخر هادئ الجنان والسعادة والحبور تحمله على جناحيها وتطير به في عوالمها.
khelef غير متواجد حالياً  
قديم 01-04-2009, 07:34 AM
  #353
worod94
 
تاريخ التسجيل: 29-03-2009
المشاركات: 52
worod94 عضو يستحق التميز
افتراضي

جزاك الله خيرا
worod94 غير متواجد حالياً  
قديم 01-04-2009, 10:57 AM
  #354
خويلد
 الصورة الرمزية خويلد
 
تاريخ التسجيل: 27-01-2008
المشاركات: 5
خويلد عضو يستحق التميز
افتراضي ارجو كم سلعدوني في حل التمرين


ecrire unlgoritem qui calcule le degre des aiguilles des minutes avec celle des heures en tenant compte du changement des secendes d une monter analogique.par exempel a 3:00:00 deg=90
خويلد غير متواجد حالياً  
قديم 01-04-2009, 11:35 AM
  #355
kh-s2008
 
تاريخ التسجيل: 11-05-2008
المشاركات: 7
kh-s2008 عضو يستحق التميز
Question أرجو المساعدة في حل هذه التمارين

السلام عليكم
إن الله في عون العبد مادام العبد في عون أخيه
إخواني أرجو المساعدة في حل هاذه التمارين في شكل خوارزمية أو بلغة الباسكال

وهي كالتالي

exercice 1

a l'issue d'un concours ,on souhaite éditer pour chaque candidat: son nom, sa moyenne ,puis la moyenne de tous les candidats.

on donne le nombre de candidat ,et pour chaque candidat, son nom suivi de sis 10 notes
exercice 2
ecrire un algorithme qui affiche tous les nombre parfaits de 1 à 1000.
Un nombre parfait s'il est égal à la somme de ses diviseurs.
exercice3
ecrire un algorithme qui vérifie si un nombre n est premier
unnombre premier,s'il est divisible uniquement par 1 et par lui_meme
indication:diviser le nombre N par tous les nombre compris entre 2et n/2.
exercice4
ecrire un algorithme qui calcule et affiche la somme des 100 premier termes de la suite:
-1/2+1/4-1/6+1/8-1/10..................1/100

هذه هي التمارين أرجوا الحل في أقرب وقت

وبارك الله فيكم مسبقا

التعديل الأخير تم بواسطة kh-s2008 ; 01-04-2009 الساعة 11:38 AM
kh-s2008 غير متواجد حالياً  
قديم 01-04-2009, 01:35 PM
  #356
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي


ex2: conversion d'un montant en lettres

achraf.mouni غير متواجد حالياً  
قديم 01-04-2009, 02:02 PM
  #357
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

exercice3
ecrire un algorithme qui vérifie si un nombre n est premier
unnombre premier,s'il est divisible uniquement par 1 et par lui_meme
indication:diviser le nombre N par tous les nombre compris entre 2et n/2.
اليك الرابط:

http://www.mis.u-picardie.fr/~richomme/Initiation/Annales/correctionUE1Exam20002001.html
achraf.mouni غير متواجد حالياً  
قديم 02-04-2009, 03:48 PM
  #358
moh09-2009
 الصورة الرمزية moh09-2009
 
تاريخ التسجيل: 27-12-2008
الدولة: الجزائر-بسكرة
المشاركات: 25
moh09-2009 عضو يستحق التميز
افتراضي

السلام عليكم أنا عضو جديد وأنا سعيد بالإنضمام إلى هذا المنتدى
أنا طالب سنة أولى رياضيات وإعلام آلي سمعت عن شعبة Recherche Operationnelle ولا أعلم ماهي ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟
__________________
سبحان الله والحمد لله والله أكبر
moh09-2009 غير متواجد حالياً  
قديم 02-04-2009, 04:11 PM
  #359
moh09-2009
 الصورة الرمزية moh09-2009
 
تاريخ التسجيل: 27-12-2008
الدولة: الجزائر-بسكرة
المشاركات: 25
moh09-2009 عضو يستحق التميز
افتراضي

لا ردود
__________________
سبحان الله والحمد لله والله أكبر
moh09-2009 غير متواجد حالياً  
قديم 03-04-2009, 03:13 PM
  #360
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

التمرين الاول
كود PHP:
 الكود 
program  conversion;
{
conversion est un programme de kpizingui darryl.Ce programme  ecrit un nombre
donn‚ en chiffre en toutes  lettres
.
contact:nobi_8*************}
uses  crt;
type str15=string[15];
var  
nombre:str15;
rep:string;
tch:char;
ici,i:integer;

{
comparer  deux nombre sous forme de chaine de caracteres}
function  
comp(ch1,ch2:string):integer;
var  
i,l,l2:integer;
begin
l
:=length(ch1);
l2:=length(ch2);
i:=1;
while  (
i<l) and (ch1[i]='0')  do
begin
ch1
:=copy(ch1,i+1,l);
i:=i+1;
end;
i:=1;
while  (
i<l2) and (ch2[i]='0')  do
begin
ch2
:=copy(ch2,i+1,l2);
i:=i+1;
end;
l:=length(ch1);
l2:=length(ch2);
if  
l>l2 then
comp
:=1
else if l<l2 then
comp
:=-1
else
if  
ch1>ch2 then
comp
:=1
else if ch1<ch2  then
comp
:=-1
else
comp:=0;
end;

{
pour des  nombre<20}
function  
conva(ch:string):string;
const 
tbl:array [0..19of  string=('','un','deux','trois','quatre','cinq','si  x','sept','huit','neuf','dix'
,'onze','douze','treize','quatorze','quinze','seiz  e','dix-sept','dix-huit','dix-neuf');
tbl2:array [0..19of  string=('','un','deux','trois','quatre','cinq','si  x','sept','huit','neuf','dix'
,'onze','douze','treize','quatorze','quinze','seiz  e','dix sept','dix huit','dix neuf');
var  
a,b:integer;
begin
val
(ch,a,b);
if 
comp(nombre,'0')=0  then
conva
:='zero'
else
if 
comp(nombre,'100')=-1  then
conva
:=tbl[a]
else
conva:=tbl2[a];
end;

{
nombre <100  et >19}
function  
convb(ch:string;ok:boolean):string;
const 
tbl:array[2..8of  string=('vingt','trente','quarante','cinquante','s  oixante','','quatre-vingt');
tbl2:array[2..8of  string=('vingt','trente','quarante','cinquante','s oixante','','quatre  vingt');
var 
a,b,d,e:integer;
tc:string;
begin
if comp(ch,'20')=-1  then
convb
:=conva(ch)
else if (
comp(ch,'80')=0) and ok then
if  comp(nombre,'100')=-1  then
convb
:=tbl[8]+'s'
else
convb:=tbl2[8]+'s'
else
begin
val
(ch,a,b);
d:=a  div 10;
if (
d=7) or (d=9then
d
:=d-1;
e:=a mod  (d*10);
str(e,ch);
tc:=conva(ch);
if 
comp(nombre,'100')=1  then
convb
:=tbl2[d]+' '+tc
else
if 
e=0  then
convb
:=tbl[d]
else
convb:=tbl[d]+'-'+tc;
end;
end;

{
nombre<1000}
function 
convc(ch:string;ok:boolean):string;
var  
a,b,d:integer;
tc,td:string;
begin
if comp(ch,'100')=-1  then
convc
:=convb(ch,ok)
else 
begin
val
(ch,a,b);
d:=a div  100;
b:=a mod 100;
tc:='';
str(b,ch);
if 
d<> 1  then
begin
str
(d,tc);
tc:=conva(tc);
end;
if 
ok and (b=0) and  (d<>1then
convc
:=tc+' cents '
else
convc:=tc+' cent  '+convb(ch,ok);
end;
end;

{
nombre<million}
function 
convd(ch:string):string;
var  
a,b,l:integer;
tc,td:string;
begin
if comp(ch,'1000')=-1  then
convd
:=convc(ch,true)
else  
begin
l
:=length(ch);
td:=convc(copy(ch,l-2,l),true);
tc:='';
if  
comp(copy(ch,1,l-3),'1')<>0  then
tc
:=convc(copy(ch,1,l-3),false);
convd:=tc+' mille  '+td;
end;
end;

{
nombre<milliard}
function 
conve(ch:string):string;
var  
a,b,l:integer;
tc,td:string;
mot:string[20];
begin
if  comp(ch,'1000000')=-1 then
conve
:=convd(ch)
else  
begin
l
:=length(ch);
td:=convd(copy(ch,l-5,l));
tc:=convc(copy(ch,1,l-6),false);
val(copy(ch,1,l-6),b,a);
mot:='  million ';
if 
b<>1 then
mot
:=' millions  ';
conve:=tc+mot+td;
end;
end;

{
nombre<billion}
function 
convf(ch:string):string;
var  
a,b,l:integer;
tc,td:string;
mot:string[20];
begin
if  comp(ch,'1000000000')=-1 then
convf
:=conve(ch)
else  
begin
l
:=length(ch);
td:=conve(copy(ch,l-8,l));
tc:=convc(copy(ch,1,l-9),false);
val(copy(ch,1,l-9),b,a);
mot:='  milliard ';
if 
b<>1 then
mot
:=' milliards  ';
convf:=tc+mot+td;
end;
end;

{
pour les billions}
function 
convg(ch:string):string;
var  
a,b,l:integer;
tc,td:string;
mot:string[20];
begin
if  comp(ch,'1000000000000')=-1 then
convg
:=convf(ch)
else  
begin
l
:=length(ch);
td:=convf(copy(ch,l-11,l));
tc:=convc(copy(ch,1,l-12),false);
val(copy(ch,1,l-12),b,a);
mot:='  billion ';
if 
b<>1 then
mot
:=' billions  ';
convg:=tc+mot+td;
end;
end;

{
verifie la validit‚ du nombre  entr‚ au clavier}
function 
correcte(var ch:str15;var  ici:integer):boolean;
var  
i,l,j:integer;
b:boolean;
tc:str15;
begin
l
:=length(ch);
tc:=ch;
i:=1;
while  (
i<=l) and ((ch[i]=' ') or (ch[i]='0'))  do
i:=i+1;
tc:=copy(ch,i,l);
b:=true;
i:=1;
while (
i<l)  and(ch[i]=' ') do
i:=i+1;
if 
i>l then
b
:=false;
for 
j:=i to l  do
if 
not ((ord(ch[j])>=ord('0')) and (ord(ch[j])<=ord('9')))  then
begin
b
:=false;
ici:=j;
j:=l;
end;
ch:=tc;
if  
length(ch)=0 then
ch
:='0';
correcte:=b;
end;

BEGIN
repeat
clrscr
;
textcolor(red);
textbackground(lightblue);
gotoxy(15,2);
writeln('CONVERSION  D'' UN NOMBRE DE CHIFFRES EN  LETTRES');
textcolor(green);
textbackground(black);
gotoxy(5,7);
write('ENTREZ  LE NOMBRE: ');
readln(nombre);
writeln;
if 
not correcte(nombre,ici)  then begin
gotoxy
(5,8);
write(' ');
for 
i:=1 to ici-do write('  ');
textcolor(red);
writeln('^');
writeln('le nombre est  incorrecte');
end
else
begin
rep
:=convg(nombre);
writeln(rep);
end;
textcolor(green);
writeln;
write('CONTINUEZ  ?(O/N)');
tch:='a';
repeat
if keypressed  then
begin
tch
:=readkey;
tch:=upcase(tch);
end;
until (tch='N')  or (tch='O');
until tch='N';
end
achraf.mouni غير متواجد حالياً  

الكلمات الدلالية (Tags)
من فضلكم

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
ارجووووا الدخول لكل طلبة الرياضيات و الاعلام الالي fella111 الإستفسارات و الطّلبات 4 09-07-2012 12:48 PM
مهم جدا لكل طلبة الاعلام الآلي جميع الأطوار mimik الإعــلام الآلي والرياضيــات 12 11-05-2009 05:50 PM


الساعة الآن 12:42 AM.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. , TranZ By Almuhajir