[Cours officiel]cours pascal

charrouka a écrit:yaa lghalta mta3 runtime tna77ét ki baddalt ettaille éma dima i9olli la chaine n'existe po ma3néha ghalta fel prog??

fel fonction 9bal el end zid

chercher:=test;

charrouka a écrit:ya5i lbourse feha 7a9 le9raya wellogement wmasarifou(mé 4aw...) w billets..? ma3néha enti né9sekkén ur pocket money lel mékla wellebs c ça?? wellogement fi diar wala foyer?

lè billet aller retour mech teba3 el bourse, ama l bourse 800euro fiha 7a99 esokna (fi foyer) wel mekla wel masrouf, w zid y9ossou menha el sécurité sociale je crois
ama l'inscription mana3rach yna7iwha mel bourse wallè

nouri1204 a écrit:

charrouka a écrit:yaa lghalta mta3 runtime tna77ét ki baddalt ettaille éma dima i9olli la chaine n'existe po ma3néha ghalta fel prog??

fel fonction 9bal el end zid

chercher:=test;

ena fe9t biha 9bal

xD

hachoola a écrit:

nouri1204 a écrit:

charrouka a écrit:yaa lghalta mta3 runtime tna77ét ki baddalt ettaille éma dima i9olli la chaine n'existe po ma3néha ghalta fel prog??

fel fonction 9bal el end zid

chercher:=test;

ena fe9t biha 9bal

xD

enty tayara 3leya 3ad xD

ouais t'as raison hachoola!! mé bé9i ma yemshish bess7i7

kahaw normalement ma3ash fama 7atta ghalta!!

yo4horli yelzem 3onsor théleth bsh ifi9 bel moshkla xD

nouri1204 a écrit:

hachoola a écrit:

nouri1204 a écrit:

charrouka a écrit:yaa lghalta mta3 runtime tna77ét ki baddalt ettaille éma dima i9olli la chaine n'existe po ma3néha ghalta fel prog??

fel fonction 9bal el end zid

chercher:=test;

ena fe9t biha 9bal

xD

enty tayara 3leya 3ad xD

fe9t biha 9ablek b une minute

charrouka a écrit:ouais t'as raison hachoola!! mé bé9i ma yemshish bess7i7

be5la bech nsobb el pascal xD
chnia el mochkla zeda?

hachoola a écrit:

charrouka a écrit:ouais t'as raison hachoola!! mé bé9i ma yemshish bess7i7

be5la bech nsobb el pascal xD
chnia el mochkla zeda?

i9olli dima la chaine n'existe pas 7atta ki tabda mawjouda :/

charrouka a écrit:

hachoola a écrit:

charrouka a écrit:ouais t'as raison hachoola!! mé bé9i ma yemshish bess7i7

be5la bech nsobb el pascal xD
chnia el mochkla zeda?

i9olli dima la chaine n'existe pas 7atta ki tabda mawjouda :/

esma3 fil fonction chercher ista3mel variable booléenne locale o5ra, pour éviter les problèmes

voilà le prog bess7i7 akel begin wel end ma3raftesh n7ott'hom wallé mé ds les 2 cas l'exécution msh s7iA, dima la chaine n'existe pas :/

program recherche;
uses wincrt;
type tab= array[1..20] of string;
var
t: tab;
test: boolean;
n: integer;
ch: string;
Procedure saisir(var t:tab;var n: integer;var ch: string);
var i: integer;
begin
repeat
writeln('n= ');
readln(n);
until n>0;
for i:=1 to n do begin
writeln('saisir l''élément num ',i);
readln(t[i]);
end;
writeln('saisir la chaine à chercher ');
readln(ch);
end;
procedure afficher(test: boolean);
begin
if (test= true) then writeln('la chaine n''existe pas')
else writeln('la chaine est trouvée');
end;
function chercher(t:tab;n:integer;ch: string):boolean;
var j: integer;
begin
j:=0;
test:=false;

repeat {begin}
j:=j+1;
if (t[j]= ch) then test:= true;
{end;}
until (test= true) or (j=n);
chercher:= test;
end;
Begin
saisir(t,n,ch);
test:= chercher(t,n,ch);
afficher(test);
end.

charrouka a écrit:voilà le prog bess7i7 akel begin wel end ma3raftesh n7ott'hom wallé mé ds les 2 cas l'exécution msh s7iA, dima la chaine n'existe pas :/

program recherche;
uses wincrt;
type tab= array[1..20] of string;
var
t: tab;
test: boolean;
n: integer;
ch: string;
Procedure saisir(var t:tab;var n: integer;var ch: string);
var i: integer;
begin
repeat
writeln('n= ');
readln(n);
until n>0;
for i:=1 to n do begin
writeln('saisir l''élément num ',i);
readln(t[i]);
end;
writeln('saisir la chaine à chercher ');
readln(ch);
end;
procedure afficher(test: boolean);
begin
if (test= true) then writeln('la chaine n''existe pas')
else writeln('la chaine est trouvée');
end;
function chercher(t:tab;n:integer;ch: string):boolean;
var j: integer;
begin
j:=0;
test:=false;

repeat {begin}
j:=j+1;
if (t[j]= ch) then test:= true;
{end;}
until (test= true) or (j=n);
chercher:= test;
end;
Begin
saisir(t,n,ch);
test:= chercher(t,n,ch);
afficher(test);
end.

el begin wel end zeydine, 9otlek baddel el variable test fil fonction roddha variable locale

na3téha esm é5er w ndeclaréha fil var ta3 lfunction?

hachoola a écrit:

charrouka a écrit:voilà le prog bess7i7 akel begin wel end ma3raftesh n7ott'hom wallé mé ds les 2 cas l'exécution msh s7iA, dima la chaine n'existe pas :/

program recherche;
uses wincrt;
type tab= array[1..20] of string;
var
t: tab;
test: boolean;
n: integer;
ch: string;
Procedure saisir(var t:tab;var n: integer;var ch: string);
var i: integer;
begin
repeat
writeln('n= ');
readln(n);
until n>0;
for i:=1 to n do begin
writeln('saisir l''élément num ',i);
readln(t[i]);
end;
writeln('saisir la chaine à chercher ');
readln(ch);
end;
procedure afficher(test: boolean);
begin
if (test= true) then writeln('la chaine n''existe pas')
else writeln('la chaine est trouvée');
end;
function chercher(t:tab;n:integer;ch: string):boolean;
var j: integer;
begin
j:=0;
test:=false;

repeat {begin}
j:=j+1;
if (t[j]= ch) then test:= true;
{end;}
until (test= true) or (j=n);
chercher:= test;
end;
Begin
saisir(t,n,ch);
test:= chercher(t,n,ch);
afficher(test);
end.

el begin wel end zeydine, 9otlek baddel el variable test fil fonction roddha variable locale

berasmi el variable test mahech 3amltelha declaration

shouf doub lpartie ta3 lfunction pisk lé5er s7i7, hakka sava??

program recherche;
uses wincrt;
type tab= array[1..20] of string;
var
t: tab;
test: boolean;
n: integer;
ch: string;
Procedure saisir(var t:tab;var n: integer;var ch: string);
var i: integer;
begin
repeat
writeln('n= ');
readln(n);
until n>0;
for i:=1 to n do begin
writeln('saisir l''élément num ',i);
readln(t[i]);
end;
writeln('saisir la chaine à chercher ');
readln(ch);
end;
procedure afficher(test: boolean);
begin
if (test= true) then writeln('la chaine n''existe pas')
else writeln('la chaine est trouvée');
end;
function chercher(t:tab;n:integer;ch: string):boolean;
var j: integer;
dec: boolean;
begin
j:=0;
dec:= false;
repeat

j:=j+1;
if (t[j]= ch) then dec:= true;

until (dec= true) or (j=n);
chercher:= dec;

end;
Begin
saisir(t,n,ch);
test:= chercher(t,n,ch);
afficher(test);
end.

nouri1204 a écrit:

hachoola a écrit:[
el begin wel end zeydine, 9otlek baddel el variable test fil fonction roddha variable locale

berasmi el variable test mahech 3amltelha declaration

il suffi bsh ndéclaréha fel P.Principal, mé hachoola a voulu juste éviter les problèmes de confusion des variables..

charrouka a écrit:shouf doub lpartie ta3 lfunction pisk lé5er s7i7, hakka sava??

program recherche;
uses wincrt;
type tab= array[1..20] of string;
var
t: tab;
test: boolean;
n: integer;
ch: string;
Procedure saisir(var t:tab;var n: integer;var ch: string);
var i: integer;
begin
repeat
writeln('n= ');
readln(n);
until n>0;
for i:=1 to n do begin
writeln('saisir l''élément num ',i);
readln(t[i]);
end;
writeln('saisir la chaine à chercher ');
readln(ch);
end;
procedure afficher(test: boolean);
begin
if (test= true) then writeln('la chaine n''existe pas')
else writeln('la chaine est trouvée');
end;
function chercher(t:tab;n:integer;ch: string):boolean;
var j: integer;
dec: boolean;
begin
j:=0;
dec:= false;
repeat

j:=j+1;
if (t[j]= ch) then dec:= true;

until (dec= true) or (j=n);
chercher:= dec;

end;
Begin
saisir(t,n,ch);
test:= chercher(t,n,ch);
afficher(test);
end.

ay, w çava 5dém?

Exécutéééééééééééééééééééé

ya hachoome ya douda

reb7ettek almania w 5esrettek tounes xD

charrouka a écrit:ya hachoome ya douda

? xD

charrouka a écrit:

nouri1204 a écrit:

hachoola a écrit:[
el begin wel end zeydine, 9otlek baddel el variable test fil fonction roddha variable locale

berasmi el variable test mahech 3amltelha declaration

il suffi bsh ndéclaréha fel P.Principal, mé hachoola a voulu juste éviter les problèmes de confusion des variables..

enty madem 5demt beha fel fonction lezem edeclareha fel fonction 7ekeyet nafs lesm 7keya okhra 5ater fel fonction elle est déclarée comme locale donc matchoufha ken el fonction

charrouka a écrit:reb7ettek almania w 5esrettek tounes xD

nchallah narja3 ba3d ma nkammel na9ra

nouri1204 a écrit:

charrouka a écrit:

nouri1204 a écrit:

hachoola a écrit:[
el begin wel end zeydine, 9otlek baddel el variable test fil fonction roddha variable locale

berasmi el variable test mahech 3amltelha declaration

il suffi bsh ndéclaréha fel P.Principal, mé hachoola a voulu juste éviter les problèmes de confusion des variables..

enty madem 5demt beha fel fonction lezem edeclareha fel fonction 7ekeyet nafs lesm 7keya okhra 5ater fel fonction elle est déclarée comme locale donc matchoufha ken el fonction

ya5i msh ki tabda 7aja déclarée fel en-tete ta3 lfunction yezzi? ahayka déclarée ba3d les (...): boolean; shnya lmoshkla?

hachoola a écrit:

charrouka a écrit:ya hachoome ya douda

? xD

zéyed m3ak ma3néha
9Adésh t7eb n5allsek bsh tsala7li ghlati fel pascal? xD

charrouka a écrit:

nouri1204 a écrit:

charrouka a écrit:

nouri1204 a écrit:

hachoola a écrit:[
el begin wel end zeydine, 9otlek baddel el variable test fil fonction roddha variable locale

berasmi el variable test mahech 3amltelha declaration

il suffi bsh ndéclaréha fel P.Principal, mé hachoola a voulu juste éviter les problèmes de confusion des variables..

enty madem 5demt beha fel fonction lezem edeclareha fel fonction 7ekeyet nafs lesm 7keya okhra 5ater fel fonction elle est déclarée comme locale donc matchoufha ken el fonction

ya5i msh ki tabda 7aja déclarée fel en-tete ta3 lfunction yezzi? ahayka déclarée ba3d les (...): boolean; shnya lmoshkla?

ey ki tabda 7aja déclarée fil programme principal ynajmou ychoufouha les modules lkol, 7atta kén mahich déclarée comme variable formelle

charrouka a écrit:

hachoola a écrit:

charrouka a écrit:ya hachoome ya douda

? xD

zéyed m3ak ma3néha
9Adésh t7eb n5allsek bsh tsala7li ghlati fel pascal? xD

miselech ataw na3mallek soum

charrouka a écrit:reb7ettek almania w 5esrettek tounes xD

bch tekhdem el tounes au moins 10 snin ( je c pas kif l'IPEST wallé )

AirCool a écrit:

charrouka a écrit:reb7ettek almania w 5esrettek tounes xD

bch tekhdem el tounes au moins 10 snin ( je c pas kif l'IPEST wallé )

lè 3 snine xD
ama 7atta le responsable 9allena rahi 7keya fergha, ma3morhom matab9ouh xD