concour 2009 de programmation

maroia22

عضو نشيط
إنضم
15 جويلية 2009
المشاركات
227
مستوى التفاعل
91
السلام عليكم
باللهي انا خدمت كونكور عمناول بطريقتي و ما نعرش صحيحة و الا لا
و انحب انهبطها هوني بش ايساعدوني الاخوة على اصلاحها


concour 2009 session principale


def proc saisi(var q,p:entier)l
resultat=saisi
saisi=q,p
repeter
q=donnée
p=donnée
jusqu'a (p>=5)et (q<=32)et (p<=q)l
fin saisie

def proc remplir (var m:mat;q,p:entier)l
resultat =remplir
remplir=t
pour i de 1 a p faire
pour j de 1 a q faire
y:= fn conv10_b(i)l
x:= fn conv10_b(j)l
si fn verif (x,y) alors
t[i,j]:=1
si non
t[i,j]:=0
fin si
fin pour
fin pour
fin remplir

def fn conv10_b(i:eek:ctet):chaine
resultat=conv10_b:=ch
r:=i mod 2
convch(r,c)l
ch:=c+ch
i:=(i div 2)l
jusqu'a(i=0)l
fin conv10_b

def fn verif (x,y:chaine):boolean
repeter
w:=faux
i:=1
j:=1
si x=y alors
w:=vrai
si non
i:=i+1
j:=j+1
jusqua'a (w:=vrai) ou (i>long(x))ou (j>long(y))l

def proc creation(var f:fiche)l
resultat=creation
creation=f
associer(f,"d:\chemin.txt")l
recreer(f)l
fin creation
 

Waelboumaiza

نجم المنتدى
إنضم
19 جوان 2006
المشاركات
2.224
مستوى التفاعل
1.566
:besmellah2:

تذكير بـ نص الاختبار
 
أعلى