تخطى إلى المحتوى

algorithme les enregistrements 2024.

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

نعطيك 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- الجيريا
السلام عليكم ورحمة الله تعالى وبركاته
أختي بأي لغة برمجة تريدين حل هذه الأسئلة، أم تريدينا خوارزمية فقط.
سأساعدك على حلها إن شاء الله
وفقك الله.
في امان الله…

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

شكراااااااا

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.

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

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

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

اترك تعليقاً

لن يتم نشر عنوان بريدك الإلكتروني. الحقول الإلزامية مشار إليها بـ *

هذا الموقع يستخدم Akismet للحدّ من التعليقات المزعجة والغير مرغوبة. تعرّف على كيفية معالجة بيانات تعليقك.