algorithme les enregistrements

[nini 2 ASM]

soit un enregistrement définit par deux informations :
- T un tableau d'entier pouvant convertir au maximaum 100 éléments
- N le nbre d'éléements du tableau

soit une chaine de caractére M ecrire une action paramétrée qui retourne un enregistrement de type E contenant toutes les positions de la chaine "ab" dans la chaine M


aidez moi a resoudre cet algo svp au moin donnez vos idées

[XBEY]

نعطيك syntax mais algorithme ونتي عدليه


[

H]ch:chine(26);
ck:chaine(10);
n,i,y,k,l:entier ;

lire(ch);

lire(ck);
n:=longueur(ch) ;
y:=longueur(ck);
l=1 ;
pour i -<1 an
faire
k=0 ;

pour j-<1 a y
[faire
si ch(i+j)=ck(j) n alor s
k=k+1 ;
fsi ;
fait ;
si k=y alors
t(l)=i ;
l=l+1 ;
fsi;
fait ;[/H]

[-asma-]

السلام عليكم ورحمة الله تعالى وبركاته
أختي بأي لغة برمجة تريدين حل هذه الأسئلة، أم تريدينا خوارزمية فقط.
سأساعدك على حلها إن شاء الله
وفقك الله.
في امان الله...

[nini 2 ASM]

المشاركة الأصلية كتبت بواسطة -asma-

السلام عليكم ورحمة الله تعالى وبركاته
أختي بأي لغة برمجة تريدين حل هذه الأسئلة، أم تريدينا خوارزمية فقط.
سأساعدك على حلها إن شاء الله
وفقك الله.
في امان الله...

نعم اريدها خوارزمية algorithme
ربي يجازيكم احتاج للحل في اسرع وقت

شكراااااااا

[-asma-]

Algorithme Exo1;
Const M=100;
Type Tab = tableau [1,..,M] d’entier;
Enr= enregistrement de
T : Tab ;
N :entier ;
FinEnr ;
Var E :Enr ;
Procedure Remplissage(var E1 : Enr) ;
Var i ;entier ; rep : char;
Debut
i :=0; E1.N=0;
repeter
debut
i:=i+1;
ecrire(‘Entrez la valeur N°: ‘, i);
lire(E1.T[i]) ;
E1.N := E1.N + 1 ;
Ecrire (‘Autre éléments ?: O/N’) ;
Lire(rep) ;
Jusqu’à (rep = ‘N’) ;
Fin ;
Fin ;
Procedure Affichage(E1 :Enr) ;
Var i : entier ;
Debut
Ecrire(‘On à: ‘, E1.N, ‘ éléments : ’) ;
Pour (i allant de 1 à E1.N) faire
Ecrire(i,’ : ‘, E1.T[i]);
Fin;
Debut
Remplissage(E);
Affichage(E) ;
Fin.

[-asma-]

آسفة على طريقة الكتابة لكن ديريها في الوورد ذرك توضحلك أكثر
المهم السؤال الثاني إن شاء الله نساعدك فيه في وقت آخر

وفقك الله...
في أمان الله وحفظه...

[nini 2 ASM]

aujourd'hui on afait la solution:
type e enregistrements
t: tableau [1..100] de entiers
;n:entier
; fin
;(procédure ab (e/s/m:chaine; h: e
var
;i,j:entier
debut
;j=1; i=0
tant que j>=taille m-1
faire
si m[j]=a et m[j+1]= b
alors i=i+1
;h.t[i]=j
;j=j+2
;sinon j=j+1
;fait
;h.n = i
;fin