[أشـــرف]

slt
j ai une question
comment j peut effacer l'exposant au resultat d'un reél?

J'ai pas compris ta question
merci de clarifier pour qu'on puisse vous aider
@ bientôt

[hamdighorbel]

slt
j ai une question
comment j peut effacer l'exposant au resultat d'un reél?

j'ai compris ta question
program hamdighorbel;
uses wincrt;
var n:real;
begin
write('BY HAMDIGHORBEL FOR TUNISIA-SAT');
write('entrer un réel : ');
read(n);
writeln('La valeur avec l''exposant est :',n);
writeln('La valeur sans l''exposant est : ',n:2:2);
end.

[7amma_g]

slt
j ai une question
comment j peut effacer l'exposant au resultat d'un reél?

Il faudra utiliser les options d'affichage avec write/writeln,
voilà quelques exemples

Si la variable réelle x contient 123.4567, ( ^ symbolise l'espacement )

WRITE (x) affiche ^1.23456E+2
WRITE (x:7) affiche ^1.2E+2
WRITE (x:8:2) affiche ^^123.46
WRITE (x:2) affiche 1.2E+2

Source (http://www.algointro.info/index.php/cours-programmation/34-programmation-pascal/44-chapitre-1--introduction-les-structures-simples)

[noura200957]

probleme
écrire un programme qui fait la saisie d' un tableaude n entiers positifs (n est compris entre 5et 20
puis determiner les positions déun entier saisie et les remplacer par -1 puis les supprimer
voici une partie de la correction que je n'ai pas compris
procedure effacer(var t: tab;t1:tab;var n:integern1:integer);
var i , j ,ind:integer;
begin
for i=n1 downto 1 do
begin ind :=t1[i] ;
n t[j-1]:=t[j];
n:=n-1
end;

end; for j :=ind+1 to

[moezbelgacem]

:besmellah2:


svp!! salut aider moi pour résoudre cette exercice et je vous remercie d'avance!!!!.svp

Sujet :




Soient les suites u et v :
U0=1
U1=1
Un= Un-1 + Un-2 si n >= 2

V0=2
V1=3
Vn=Vn-1 +2Vn-2 si n >=2

-Ecrire un program Pascal permettant de :
Saisir deux entiers n et m (n dans [6..10] et m dans [5..10] ).
-Remplir aléatoirement une matrice M de n lignes et de m colonnes par des entiers appartenant à l’intervalle [1..50].
-transférer dans un fichier « nombre.dat » les indices (N° de lignes et N° de colonne) des entiers de M qui sont à la fois terme des deux suites U et V.
- afficher le contenu du fichier « nombre.dat ».


:bang::bang::bang::bang::bang::bang::bang:

[GOD-OF-WAR]

svp des exercices de programmation pour 6 éme informatique
:easter:

[7amma_g]

svp des exercices de programmation pour 6 éme informatique
:easter:


Vous pouvez regarder ici :

Exercices en programmation Pascal (http://www.algointro.info/index.php/exercices)

[mohamed ben abde]

salut:
j'ai trouver de souffrance en cet exercice pour le faire j'ai fais le 1er mais celui ci ete difficile a le faire

un programme qui permet un tableau d'entiers,p1,p2 du tableau et faire la somme entre p1 et p2 en tableau p1 et p2 sont les positions dans ce tableau


nous etudion les sous programme monsieur veut le faire avec une fonction

[allala007]

Écrire un programme pascal qui permet de :
-saisir un entier n entre 2 et 50
-remplir un tableau t1 par n entier formés de 3 chiffres
-remplir un tableau t2 par la somme cubique des éléments de t1
-afficher t1 et t2

j'ai préparer la solution suivante :


program cubique;
uses wincrt;
type tab=array[2..50]of integer;
var t,t1:tab;
n:integer;

procedure saisie(var n :integer);
begin
repeat
writeln('donner une entier : ');
readln(n);
until (n>=2) and (n<=50);
end;

procedure remplir(var V:tab;n:integer);
var i:integer;
begin
for i:=1 to n do
begin
repeat
write('T[',i,']: ');
read(V);
until (V[i]>=100)and (V[I]<=999);
end;
end;

procedure trait(V:tab;var t2 :tab;n:integer);
var j,c,d,u:integer;
begin
for j :=1 to n do
begin
c:=V[j] div 100;
d:=(V[j] mod 100) div 10;
u:=(V[j] mod 100) mod 10;
t2[j]:=(c*c*c+d*d*d+u*u*u);
end;
end;

procedure affiche(V:tab;n:integer);
var k:integer;
begin
for k:=1 to n do
write(V[k],' ');
end;

begin
saisie(n);
remplir(t,n);
trait(t,t1,n);
writeln('******************* le tableau initiale ****************');
affiche(t,n);
writeln;
writeln('******************* le tableau resultat ****************');
affiche(t1,n);
end.




ça marche mais il y a un problème au niveau de l'élément 1 du t1 et t2...
merci pour l'aide

[أشـــرف]

Écrire un programme pascal qui permet de :
-saisir un entier n entre 2 et 50
-remplir un tableau t1 par n entier formés de 3 chiffres
-remplir un tableau t2 par la somme cubique des éléments de t1
-afficher t1 et t2

j'ai préparer la solution suivante :


program cubique;
uses wincrt;
type tab=array[2..50]of integer;
var t,t1:tab;
n:integer;

procedure saisie(var n :integer);
begin
repeat
writeln('donner une entier : ');
readln(n);
until (n>=2) and (n<=50);
end;

procedure remplir(var V:tab;n:integer);
var i:integer;
begin
for i:=1 to n do
begin
repeat
write('T[',i,']: ');
read(V);
until (V[i]>=100)and (V[I]<=999);
end;
end;

procedure trait(V:tab;var t2 :tab;n:integer);
var j,c,d,u:integer;
begin
for j :=1 to n do
begin
c:=V[j] div 100;
d:=(V[j] mod 100) div 10;
u:=(V[j] mod 100) mod 10;
t2[j]:=(c*c*c+d*d*d+u*u*u);
end;
end;

procedure affiche(V:tab;n:integer);
var k:integer;
begin
for k:=1 to n do
write(V[k],' ');
end;

begin
saisie(n);
remplir(t,n);
trait(t,t1,n);
writeln('******************* le tableau initiale ****************');
affiche(t,n);
writeln;
writeln('******************* le tableau resultat ****************');
affiche(t1,n);
end.




ça marche mais il y a un problème au niveau de l'élément 1 du t1 et t2...
merci pour l'aide


Votre faute est en rouge: Faute grave
essayez d'éviter ce type de tableau c'est inutile de commencer le tableau avec 2
très rarement on construit ce tableau
alors remplacer par ceci
[1..50]
et tous vas bien marcher

bonne chance

[ahmedfoued09]

mes ami je veu tous les truc de pascal par abriviation (des structure etc)
svp reeeeeeeeep?

[allala007]

Votre faute est en rouge: Faute grave
essayez d'éviter ce type de tableau c'est inutile de commencer le tableau avec 2
très rarement on construit ce tableau
alors remplacer par ceci
[1..50]
et tous vas bien marcher

bonne chance





MERCI BEAUCOUP MON AMI MAIS POURQUOI CA CAUSE UN PROBLEME CETTE DECLARATION!ON A BEAUCOUP DE CAS OU ON A BESOIN D'UNE TABLE DE AU MOINS DEUX ELEMENTS COMME LA RECHERCHE, LE TRI...
C BIZARRE

[lachiheb]

svp un lein pour telecharger Pascal :satelite::satelite::kiss:

[7amma_g]

svp un lein pour telecharger Pascal :satelite::satelite::kiss:


(http://www.locstunisie.com/sites/pages/tunisiasat/tpw.htm)Télécharger Turbo Pascal (http://www.locstunisie.com/sites/pages/tunisiasat/tpw.htm)

[safbac]

slt,il n'a pas le turbo pascal en frencais la seul version est en eg

[cyberfan01]

slt,il n'a pas le turbo pascal en frencais la seul version est en eg





qu'est ce que tu veux dire en francais, dans la version en francais seule les menu son dans cette langue mais les mots clé sont toujours en anglais comme begin end else while ...

[charouf]

svp des exemple de devoire de synthése n°2 de l'informatique pour 2éme année informatique

[info_smayel]

Salam
voilà une proposition
s'il y a des questions je suis là

[charouf]

thank you so much bro
kan fama barcha probleme algorrithmique sur la structure conditionelle svp et merci
vive tunisia sat

[7amma_g]

3 séries sur les structures conditionnelles
(http://www.algointro.info/index.php/autres-documents/51-recueils-dexercices/134-series-dexercices-et-correction)
Exercices sur les structures conditionnelles (http://www.algointro.info/index.php/exercices/38-chapitre-2--les-structures-conditionnelles)

[mohamed ben abde]

exercice de synthèse pour les structures iteratives svp 2eme info

[أشـــرف]

exercice de synthèse pour les structures iteratives svp 2eme info

1

Écrire un algorithme qui affiche les n premiers nombres entiers, n étant un nombre demandé à l'utilisateur. Vous décrirez ici votre algorithme par un organigramme.



Dans les trois exercices suivants, vous décrirez votre algorithme par un organigramme ET un pseudo-code.

2
Ecrire un algorithme qui calcule la somme des 100 premiers nombres entiers (vous utiliserez ici une structure TANT QUE)



3
Modifiez l’algorithme précédent pour utiliser une structure REPETER … JUSQU’A



4
Modifiez l’algorithme précédent pour utiliser une structure FOR.



5
Ecrire un algorithme qui affiche les n premiers nombres multiples de 3 où n est un entier entré par l’utilisateur.

Par exemple, les 4 premiers nombres pairs sont : 3, 6, 9 et 12. Il existe beaucoup de solutions à cet exercice. Proposez en 2.



6
Ecrire un algorithme qui demande un nombre à l’utilisateur et affiche une ligne contenant n étoiles (ici, la chaine de caractères contenant les étoiles sera construite avant de l’afficher).



7
Ecrire un algorithme qui affiche un carré composé de caractères ’*’, dont la taille est entrée par l’utilisateur. Par exemple, pour une taille 4, ce sera :

****

****

****

****

La méthode de résolution de cet exercice consiste à utiliser deux boucles imbriquées l’une dans l’autre. La boucle externe gère l'affichage des lignes, la boucle interne celle des colonnes.





Si vous avez fini….

Le but de l'exercice est d'écrire un algorithme de calcul de factoriel par une méthode itérative.

(Rappel n != n*n-1*n-2…*2*1)

Ecrire un algorithme qui demande à l’utilisateur de saisir n au clavier et calcule n !. Vous utiliserez une itération de type TANT QUE. Modifier l’algorithme pour utiliser une itération de type POUR.

source (http://armelle.prigent.free.fr/coursCNAM/exercicesStructuresIt%C3%A9ratives.htm)

[أشـــرف]

Devoir corrigé structures itératives

[Mehdi187]

bonjour tous le monde est ce quelqu'un peut me dire comment faire la somme de deux entiers trés grands pouvant aller jusqu'à 25 chiffres chacun avec Pascal

[csm_en_force]

Qui peut me donné deux ou 3 exercices pascal(chapitre sous programme) pour un éléve de 3éme anné informatique (urgent demain jai un devoir programation )
et merci d'avance :)

[7amma_g]

Qui peut me donné deux ou 3 exercices pascal(chapitre sous programme) pour un éléve de 3éme anné informatique (urgent demain jai un devoir programation )
et merci d'avance :)


Exercices sur les sous-programmes (http://www.algointro.info/index.php/exercices/40-chapitre-4--les-sous-programmes)

[7amma_g]

bonjour tous le monde est ce quelqu'un peut me dire comment faire la somme de deux entiers trés grands pouvant aller jusqu'à 25 chiffres chacun avec Pascal
L'idée est de faire comme on faisait au primaire
On lit les entiers comme des tableaux
Exemple
pour n = 15672435
On créera ce tableau
t1 = 1;5;6;7;2;4;3;5
Et puis de même pour le 2ème entier,

Et on fera la somme avec la retenue, exactement la même méthode de la somme que nous faisions en primaire

[7amma_g]

exercice de synthèse pour les structures iteratives svp 2eme info


Exercices sur les structures itératives (http://www.algointro.info/index.php/exercices/39-chapitre-3--les-structures-iteratives)

[csm_en_force]

merci bien ,mais ce sont des exercices simples moi jeu veu des exercices un peu compliqué et merci encore

[7amma_g]

merci bien ,mais ce sont des exercices simples moi jeu veu des exercices un peu compliqué et merci encore


Essayez cet exercice (http://www.algointro.info/index.php/olympiades/61-toi--tunisian-olympiad-in-informatics/202-toi-2003-probleme-1)
Si c'est toujours facile pour vous, je vous donnerai un qui est encore plus dur

[Mehdi187]

L'idée est de faire comme on faisait au primaire
On lit les entiers comme des tableaux
Exemple
pour n = 15672435
On créera ce tableau
t1 = 1;5;6;7;2;4;3;5
Et puis de même pour le 2ème entier,

Et on fera la somme avec la retenue, exactement la même méthode de la somme que nous faisions en primaire

1000 merci mé j'ai pensé a lire ces deux entiers comme des chaines puis faire la somme avec les retenues qu'est ce que vous en dites?

[7amma_g]

1000 merci mé j'ai pensé a lire ces deux entiers comme des chaines puis faire la somme avec les retenues qu'est ce que vous en dites?


Oui, c'est possible,
Mais moi je préfère quand même les tableaux, je crois que c'est une structure plus adapté à ce problème
Mais les chaines de caractères sont aussi une bonne solution normalement

[ahmedfoued09]

خويا تناجمشي تفسرلي درس
les structures itératives en arabe ? c'est ta dire c'est quoi un compteur,:kiss: comment je peut remplir un tableau etc car jai un devoir le jeudi svp rep mon frero 7amma_g??

[The King Vip]

عديت دفوار info ونحب نشوف التمرين صحيح والا لا :

برنامج تعطيه caractére يقولك Voyelle والا consonne والا chiffre والا Symbole

خدمتيResultat Ecrire(N)
selon upcase(C) faire
"A","E","O","U","I","Y":N<-"Voyelle"
"B","C","D","F","H","J","K","L","M","N","P",Q'',"R","S","T","V","W","X',"Z":N<-"Consonne"
"0","1","2","3","4","5","6","7","8","9":N<-"Chiffre"
Sinon
N<-Symbole
Fin Selon
C=Donnée("Saisir Un Caractére")


:satelite:

[tedospiner]

:besmellah2:
mes amis 3andi devoir alghorithme landemain SVP aide moi par des exercice et des cours de 3SI

[RB.12]

on veut créer un programme modulaire permettant de déterminer puis d'affecher(selon l'exemple ) les elemnts d'une matrice m carrée de taille N acev N dans [2..10] . chaque element de matrice est egal à la somme de deux elemnts precedents les deux premiers elements sont saisis par l'utilisateur.


program remplire;
uses wincrt;
type
mat=array[1..50,1..50]of integer;
tab=array[1..50]of integer;
var
t:tab;
u:mat;
n,u0,u1,i,j:integer;
procedure saisir(var n:integer);
begin
repeat
writeln('donner le taille de matrice ');
read(n);
until n in [2..10];
end;
begin
saisir(n);
writeln('tapper le premier terme de tableau ');
read(t[1]);
writeln('tapper le desieme terme de tableau ');
read(t[2]);
writeln('tapper le premier terme dans le matrice ');
read(u[1,1]);
writeln('tapper le desieme terme dans le matrice ');
read(u[1,2]);
for i:= 3to n do
begin
t[i]:=t[i-1]+t[i-2];
end;
for i:= 1to n do
begin
writeln('le tableau est ',t[i]);
end;
for i:= 3to n do
begin
for j:= 1to n do
begin
u[i,j]:=u[i-1,j]+u[i-2,j];
end;
end;
for i:=1 to n do
begin
for j:= 1to n do
begin
writeln('le matrice est ',u[i,j],' est ',u[i,j]);
end;
end;
end.

[fat ed]

(e (24) est un entier divisible par son chiffre des dizaines (2
(écrire un programme(analyse algorithme et sa traduction en turbo pascal
qui permet de trouver et d'afficher tous les entier a deux chiffre de 10 jusqu'a 99 vérifiant cette propriété
svp c urgent mon devoir est demain
et merci d'avance

[أشـــرف]

(e (24) est un entier divisible par son chiffre des dizaines (2
(écrire un programme(analyse algorithme et sa traduction en turbo pascal
qui permet de trouver et d'afficher tous les entier a deux chiffre de 10 jusqu'a 99 vérifiant cette propriété
svp c urgent mon devoir est demain
et merci d'avance


Solution

program chiffre;
uses wincrt;
var i:integer;
begin
for i:=10 to 99 do
if (i mod (i div 10)=0) then
write(' ',i,' ');
end.


Mais il faut fournir un peut d'effort
Achref

[BenCheik]

Sujets et corrigés de l'épreuve pratique en informatique - session mai 2009 - pour les élèves des sections math, sciences et techniques ICI (http://dl.free.fr/amNqENUth/4sujetsEPINFOMai09.pdf)

[7amma_g]

:besmellah2:
mes amis 3andi devoir alghorithme landemain SVP aide moi par des exercice et des cours de 3SI

[/URL][URL="http://www.algointro.info/"]Cours et exercices algorithmique et programmation (http://www.algointro.info/)

[souprince]

dsl 3al klem li bech n9olou ama 3andi 9edech machoftech 7ata program ta3mal. et pour moi je veux les fonction d'aréthmetique avec ses genre de question(le nème terme, si le terme est exist ou nn,,n premier terme)

et je:satelite: si vous le faites*:frown:

[fat ed]

Solution

program chiffre;
uses wincrt;
var i:integer;
begin
for i:=10 to 99 do
if (i mod (i div 10)=0) then
write(' ',i,' ');
end.


Mais il faut fournir un peut d'effort
Achref




merci beaucoup mon ami
http://asso.tsm.free.fr/merci.jpg
:kiss::kiss::kiss:

[tedospiner]

Cours et exercices algorithmique et programmation (http://www.algointro.info/)


meeeeeeeeeeeeeeeeerci rabi ykathir min amthélik :kiss::kiss::kiss::kiss::kiss::kiss::kiss:

[charouf]

traduire en toutes lettres un entier naturel n composé d'au maximum deux chiffres.
exemple: si n= 45 alors quarante cinq
svp
avec structure conditionnel svp 2m1 n3adi devoire info svp yar7em waldik
:tunis::tunis::tunis::tunis::tunis::tunis::tunis:: tunis::tunis:*

[small]

comment resoudre cette exercice j'ai essayer plusieurs fois mais le programme est toujours faux
l'exercice demande de choisir plusieurs nombres et d'afficher leur factorielle
j'ai reussi avec un seule nombre mais plusieurs je ne c'est pas comment faire
merci d'avance

[7amma_g]

comment resoudre cette exercice j'ai essayer plusieurs fois mais le programme est toujours faux
l'exercice demande de choisir plusieurs nombres et d'afficher leur factorielle
j'ai reussi avec un seule nombre mais plusieurs je ne c'est pas comment faire
merci d'avance


Pensez à créer un tableau, dans lequel vous mettez tous les nombres, et puis vous calculez la factorielle de chacun et vous l'affichez

[small]

voici mon code en pascal
program factorielle;
uses wincrt;
var n,j,i,f:integer;
t:array [1..50] of integer;
begin
writeln('entrer le nombre de case');
readln(n);
for i:=1 to n do
begin
writeln('entrer la case n',i);
readln(t[i]);
end;
for j:=1 to n do
begin
f:=1;
end;
for i:=1 to t[j] do
begin
f:=f*i;
end;
writeln(t[j],'!=',f);
end.
quelle son mes erreur?

[7amma_g]

Changez ce bloc
for j:=1 to n do
begin
f:=1;
end;
for i:=1 to t[j] do
begin
f:=f*i;
end;

en celui là
for j:=1 to n do
begin
f:=1;
for i:=1 to t[j] do
f:=f*i;
writeln(t[j],'!=',f);
end;


Dites moi si ça fonctionne? vous avez trouvez l'erreur que vous avez faites??

[small]

oui ca marche merci beaucoup pour votre aide

[Kayser]

traduire en toutes lettres un entier naturel n composé d'au maximum deux chiffres.
exemple: si n= 45 alors quarante cinq
svp
avec structure conditionnel svp 2m1 n3adi devoire info svp yar7em waldik
:tunis::tunis::tunis::tunis::tunis::tunis::tunis:: tunis::tunis:*

program chiffres_lettres;
uses wincrt;
var n:integer;
result:string;
begin
repeat
write('entrer le nombre à deux chiffres:');
read(n);
until (n in [10..99]);
case (n div 10) of
2:result:='vingt';
3:result:='trente';
4:result:='quarante';
5:result:='cinquante';
6,7:result:='soissante';
8,9:result:='quatre vingt';
else result:='';
end;
case (n mod 10) of
1: if (n div 10 in [7,9]) then result:=concat(result,' et onze')
else if (n div 10 =1) then resut:='onze'
else result:=concat(result,' et un');
2: if (n div 10 in [7,9]) then result:=concat(result,' et douze')
else if (n div 10 =1) then resut:='douze'
else result:=concat(result,' et deux');
3: if (n div 10 in [7,9]) then result:=concat(result,' et treize')
else if (n div 10 =1) then resut:='treize'
else result:=concat(result,' et trois');
4: if (n div 10 in [7,9]) then result:=concat(result,' et quatorze')
else if (n div 10 =1) then resut:='quatorze'
else result:=concat(result,' et quatre');
5: if (n div 10 in [7,9]) then result:=concat(result,' et quinze')
else if (n div 10 =1) then resut:='quinze'
else result:=concat(result,' et cinq');
6: if (n div 10 in [7,9]) then result:=concat(result,' et seize')
else if (n div 10 =1) then resut:='seize'
else result:=concat(result,' et six');
7: begin
if (n div 10 in [7,9]) then result:=concat(result,' dix')
else if (n div 10 =1) then resut:='dix';
result:=concat(result,' sept');
end;
8: begin
if (n div 10 in [7,9]) then result:=concat(result,' dix')
else if (n div 10 =1) then resut:='dix';
result:=concat(result,' huit');
end;
9: begin
if (n div 10 in [7,9]) then result:=concat(result,' dix')
else if (n div 10 =1) then resut:='dix';
result:=concat(result,' neuf');
end;
end;
write(reslt);
end.
:frown:

[Mehdi187]

qui peut nous aidez sur cet exercice et milles merci d'avance:satelite::satelite:
soit un programme permettant de crypter un fichier texte de 20 lignes la clé de cryptage est dans la 1 ére ligne du fichier

[sang&argent]

Bonsoir,
voila un execices tres dure
ecrire un algorithme qui realize les menus suivantes:
1:saisir matrice
2:produit mat
3:quiter

[GOD-OF-WAR]

السلام عليكم
لو ممكن Programme Pascal
de PGCD et PPCM
qui peut afficher le PGCD et PPCM de deux entiers .

1-procédure saisie
2-fonction PGCD
3-fonction PPCM
4-procédure affiche

[7amma_g]

Explication de l'algorithme du PGCD (http://www.algointro.info/index.php/epreuves-thematiques/48-epreuve-1-arithmetique/120-calcul-du-pgcd-de-deux-nombres)


Explication de l'algorithme du PPCM (http://www.algointro.info/index.php/epreuves-thematiques/48-epreuve-1-arithmetique/154-ppcm)

[GOD-OF-WAR]

Explication de l'algorithme du PGCD (http://www.algointro.info/index.php/epreuves-thematiques/48-epreuve-1-arithmetique/120-calcul-du-pgcd-de-deux-nombres)


Explication de l'algorithme du PPCM (http://www.algointro.info/index.php/epreuves-thematiques/48-epreuve-1-arithmetique/154-ppcm)


مشكور لكني أرغب في ال Programme Pascal

[7amma_g]

Vous trouverez a la 2eme page les algorithmes en details
Vous devez alors les traduire en Pascal

Lien ici (http://www.tunisie-etudes.info/index.php?option=com_jdownloads&Itemid=53&task=view.download&cid=5785)

On ne donne pas ici de correction pretes
Merci pour votre comprehension

[GOD-OF-WAR]

الرجاء لم أعرف ما هو المشكل هنا لو ممكن الحل؟؟
program pp;
uses wincrt;
var pg:integer;
procedure saisie(var a,b:integer);
begin
repeat
write('dooner deux entiers = ');
readln(a,b);
until (a<>b);
end;
procedure affiche(pg:integer);
begin
write(pg);
end;
function pgcd_d(a,b:integer):integer;
begin
while(a<>b) do
if (a>b) then
a:=a-b
else b:=b-a;
end;




pg:=a;
pgcd_d:=pg
end;
begin
saisie(a,b);
write(pgcd_d);
affiche(pg);
end.

[hamdighorbel]

svp comment écrire le tableau de déclaration des objets pour le programme suivant

----------------------------
program exemple;
uses wincrt;
begin
writeln(pi);
end.
----------------------------

[7amma_g]

Pour le TDO (tableau déclaration des objets) regardez CE COURS
(http://www.algointro.info/index.php/cours-programmation/34-programmation-pascal/44-chapitre-1--introduction-les-structures-simples)

Pour le cas que vous proposez, il n y a pas de variables ni de constantes, donc le TDO est vide, dans ce cas, vous ne mettez rien dans le tableau de déclaration des objets

C'est un cas très particulier celui que vous proposez

[hamdighorbel]

Pour le TDO (tableau déclaration des objets) regardez CE COURS
(http://www.algointro.info/index.php/cours-programmation/34-programmation-pascal/44-chapitre-1--introduction-les-structures-simples)

Pour le cas que vous proposez, il n y a pas de variables ni de constantes, donc le TDO est vide, dans ce cas, vous ne mettez rien dans le tableau de déclaration des objets

C'est un cas très particulier celui que vous proposez
merci mais j'ai proposé ce cas juste pour verifier que pi ne soit pas déclaré car j'ai reçu mon devoir il y a quelques heures et j'ai trouvé une faute car j'ai pas déclaré pi dans la tdo même si j'ai pas déclaré dans l'argorithme ou lde ou pascal

[7amma_g]

Pi est une constante reconnu par Pascal
Ainsi il n'est pas obligatoire de la déclarer,
Si votre programme fonctionne tel que vous l'avez écrit, PI ne se déclare pas dans le tableau des décalrations des objets parce que c'est quelque chose de propre à Pascal qui arrive à la comprendre

Ainsi de ma part je vois que pi ne doit être dans le TDO selon le travail que vous avez fait

[passport]

:besmellah2:en classe on enseigne l'agorithme et la programmation
le PASCAL c'est un langage de programmation qu'on utilise comme traducteur pour nos applications
si pascal connait l'objet PI constante connu=3.14... n'est pas raison de ne pas declarer PI dans le TDO
donc il faut déclarer PI comme constante dans leTDO
merci et bonne chance

[passport]

program pp;
uses wincrt;
var pg,a,b:integer;
procedure saisie(var a,b:integer);
begin
repeat
write('dooner deux entiers = ');
readln(a,b);
until (a<>b);
end;


function pgcd_d(a,b:integer):integer;
begin
while(a<>b) do
if (a>b) then
a:=a-b
else b:=b-a;
pg:=a;
pgcd_d:=pg
end;

begin
saisie(a,b);
write(pgcd_d(a,b));
end.

[passport]

plutot voici une meilleur solution:
program pp;
uses wincrt;
var a,b:integer;
procedure saisie(var a,b:integer);
begin
repeat
write('dooner deux entiers = ');
readln(a,b);
until (a<>b);
end;


function pgcd_d(a,b:integer):integer;
var
pg:integer;
begin
while(a<>b) do
if (a>b) then
a:=a-b
else b:=b-a;
pg:=a;
pgcd_d:=pg
end;

begin
saisie(a,b);
write(pgcd_d(a,b));
end.

[IM HACKER]

السلام عليكم و رحمة الله ؛
أريد منكم أن توجهوني إلى كيفيت تعلم (prog)و (algo) مع العلم أني أدرس هاتين المادتين و أنا لا أفقه منهما شيئ ..
إني أقبل نصائحكم أو (les liens) التي تعرفونها مفيدة و يمكني منها التعلم في أسرع وقت و شكرا مسبقا لكل من كلف نفسه عناء الرد
mon travail est sur le logiciel (+c
طالب سنة أولى جامعة e-commerce

[7amma_g]

السلام عليكم و رحمة الله ؛
أريد منكم أن توجهوني إلى كيفيت تعلم (prog)و (algo) مع العلم أني أدرس هاتين المادتين و أنا لا أفقه منهما شيئ ..
إني أقبل نصائحكم أو (les liens) التي تعرفونها مفيدة و يمكني منها التعلم في أسرع وقت و شكرا مسبقا لكل من كلف نفسه عناء الرد
mon travail est sur le logiciel (+c
طالب سنة أولى جامعة e-commerce

Commencez par ce cours,

Cours débutant algorithme (http://www.algointro.info/index.php/cours-programmation/34-programmation-pascal/44-chapitre-1--introduction-les-structures-simples)

[The King Vip]

j'ai un probléme avec le probléme du programme PALINDROME ( Exemple : aziza lu de même façon de gauche et droite ) voila le pascal

program ahmed;
uses wincrt;
var
ch,ch1:string;
i:integer;
test:boolean;
begin
writeln('saisir une mot');readln(ch);
test:=false;
for i:=length(ch) downto 1 do
if ch[i]=ch then
test:=true;
write(test);
end.

[7amma_g]

j'ai un probléme avec le probléme du programme PALINDROME ( Exemple : aziza lu de même façon de gauche et droite ) voila le pascal

if ch[i]=ch then.



Ici Il y a un problème
if ch[i]=ch then
Car vous comparez une chaine à un caractère donc le résultat va etre toujours faux,
corrigez votre programme pour qu'il ne fasse pas cet erreur et qu'il trouve le bon resultat

[The King Vip]

Ici Il y a un problème
if ch[i]=ch then
Car vous comparez une chaine à un caractère donc le résultat va etre toujours faux,
corrigez votre programme pour qu'il ne fasse pas cet erreur et qu'il trouve le bon resultat



اعطينا هكا تلميحة صغيرة والله ضعت :easter:

[أشـــرف]

اعطينا هكا تلميحة صغيرة والله ضعت :easter:
Votre faute est en rouge
comment vous comparez une chaine à un caractère?

program ahmed;
uses wincrt;
var
ch,ch1:string;
i:integer;
test:boolean;
begin
writeln('saisir un mot');readln(ch);
test:=false;
for i:=length(ch) downto 1 do
if ch[i]=ch[length(ch)-i+1] then
test:=true;
write(test);
end.

Bon courage

[7amma_g]

Utilisez plutot ceci
test:=true;
for i:=length(ch) downto 1 do
if ch[i]<>ch[length(ch)-i+1] then
test:=false;
write(not(test));


Car il suffit d'une seule différence pour que ça ne soit pas un palindrmome

[أشـــرف]

Utilisez plutot ceci

test:=true;
for i:=length(ch) downto 1 do
if ch[i]<>ch[length(ch)-i+1] then
test:=false;
write(not(test));
Car il suffit d'une seule différence pour que ça ne soit pas un palindrmome



Et j'ajoute aussi qu'une boucle répéter est plus adéquate au problème

[small]

je cherche des exercice simple sur les procedure
je viens juste d'apprendre la structure de la procedure
merci d'avance

[7amma_g]

je cherche des exercice simple sur les procedure
je viens juste d'apprendre la structure de la procedure
merci d'avance


(http://www.algointro.info/index.php/exercices/40-chapitre-4--les-sous-programmes)Exercices sur les sous-programmes (http://www.algointro.info/index.php/exercices/40-chapitre-4--les-sous-programmes)

[The King Vip]

السؤال هو : Ecrire une analyse, un algorithme et la traduction en Pascal d'un programme intitulé
SOMME_CHIFFRES, qui permet de lire une chaîne de caractères CH commençant obligatoirement
par une lettre alphabétique majuscule (et supposée composée par des lettres et des chiffres),
détermine et affiche l'entier S formé par la somme des chiffres qui figurent dans la chaîne CH.
Exemple:
Pour CH='Ahmed1algointro.info25' la valeur de S est 1+2+5 = 8
Le programme SOMME_CHIFFRES affichera le résultat suivant : S = 8

خدمتي

program ahmed;
uses wincrt;
var
ch:string;
s:integer;
i,n,e,s1:integer;
begin
Repeat
Writeln('saisir une chaine');readln(ch);
until
ch[1] in ['A'..'Z'];
s:=0;
for i:=1 to length(ch) do
if ch[i] in ['1'..'9'] then
begin
s1:=val(i);
s:=s+s1;
end;
writeln(s);
end.

[أشـــرف]

السؤال هو : Ecrire une analyse, un algorithme et la traduction en Pascal d'un programme intitulé
SOMME_CHIFFRES, qui permet de lire une chaîne de caractères CH commençant obligatoirement
par une lettre alphabétique majuscule (et supposée composée par des lettres et des chiffres),
détermine et affiche l'entier S formé par la somme des chiffres qui figurent dans la chaîne CH.
Exemple:
Pour CH='Ahmed1algointro.info25' la valeur de S est 1+2+5 = 8
Le programme SOMME_CHIFFRES affichera le résultat suivant : S = 8

خدمتي

program ahmed;
uses wincrt;
var
ch:string;
s:integer;
i,n,e,s1:integer;
begin
Repeat
Writeln('saisir une chaine');readln(ch);
until
ch[1] in ['A'..'Z'];
s:=0;
for i:=1 to length(ch) do
if ch[i] in ['1'..'9'] then
begin
s1:=val(i);
s:=s+s1;
end;
writeln(s);
end.



Voici le corrigé de votre programme vous pouvez constaté vos fautes

program ahmed;
uses wincrt;
var
ch:string;
s:string;
i,n,s1,e:integer;
begin
Repeat
Writeln('saisir une chaine');readln(ch);
until ch[1] in ['A'..'Z'];
s1:=0;
for i:=1 to length(ch) do
if ch[i] in ['1'..'9'] then
begin
val(ch[i],n,e);
s1:=s1+n;
end;
writeln(s1);
end.

@ Bientôt

[7amma_g]

Cette ligne est fausse
s1:=val(i);

En effet, val est un procédure, vous ne pouvez pas l'utilisez de cette façon,

Regardez ce document (en bas de la première page) pour trouver comment l'utiliser

Reference : fonctions et procédures en PASCAL (http://www.tunisie-etudes.info/index.php?option=com_jdownloads&Itemid=53&task=view.download&cid=92)

[أشـــرف]

Voici le corrigé de votre programme vous pouvez constaté vos fautes

program ahmed;
uses wincrt;
var
ch:string;
s:string;
i,n,s1,e:integer;
begin
Repeat
Writeln('saisir une chaine');readln(ch);
until ch[1] in ['A'..'Z'];
s1:=0;
for i:=1 to length(ch) do
if ch[i] in ['1'..'9'] then
begin
val(ch[i],n,e);
s1:=s1+n;
end;
writeln(s1);
end.

@ Bientôt



Ceci n'est pas la correction de tout votre exercice mais disant du cœur de l'exercice
à vous de régler les conditions pour que le programme ne prend en charge qu'une chaine qui contient obligatoirement des chiffres et des alphabets

[The King Vip]

مشكورين على المساعدة عندي شويا مشاكل مع الـ itéraritve قاعد نحاول بش نتداركها بالتمارين من موقع Algo info ..

[rami_006]

:besmellah2:
svp un cour de tic de 2eme info et des exercice et devoire

[mohamed jazz]

le pascal système anglais ne trouve pas en arabe

[أشـــرف]

le pascal système anglais ne trouve pas en arabe


A ce que je savais qu'une version Arabe du Turbo Pascal n'existe pas

[taktouk007]

:besmellah2:
svp un cour de tic de 2eme info et des exercice et devoire



chapitre 1 (http://www.web-tic.net/pdf/Ch1_pilote1.pdf)
chapitre 2 (http://www.web-tic.net/pdf/Ch2_pilote1.pdf)
chapitre 3 (http://www.web-tic.net/pdf/Ch3_pilote1.pdf)
chapitre 4 (http://www.web-tic.net/pdf/Ch4_pilote1.pdf)
chapitre 5 (http://www.web-tic.net/pdf/Ch5_pilote1.pdf)
chapitre 6 (http://www.web-tic.net/pdf/Ch6_pilote1.pdf)

[The King Vip]

عندي مشكلة ( كي العادة ) مع برنامج

تكتب رقم كان الأرقام المتكونه منو مرتبه يكتب OK كان لا يكتب Erreur

1234 : OK
1421 : Erreur

خدمتي :

program ahmed;
uses wincrt;
var
nb:string;
i,j:integer;
begin
write('saisir un nbr');readln(nb);
for i:=1 to length(nb) do
if nb[i] in ['0'..'9'] then
begin
for j:=1 to length(nb) do
if nb[j]>nb[j+1] then
write('ok')
else
write('erreur');
end;
end.

[أشـــرف]

Voici la correction de votre travail
vous pouvez constater vos fautes

program ahmed;
uses wincrt;
var
nb:string;
i,j:integer;
ok:boolean;
begin
write('saisir un nbr');
readln(nb);
ok:=true;
for i:=1 to length(nb) do
if not(nb[i] in ['0'..'9']) then
ok:=false;

if (ok=true) then
begin
for j:=1 to (length(nb)-1) do
if (nb[j]>nb[j+1]) then
ok:=false;

if ok=true then writeln('ok')
else writeln('erreur');
end
else writeln('erreur de saisie');
end.


vous pouvez aussi faire une saisie contrôlée de votre nombre dès le début
Bonne chance

[The King Vip]

مشكور فماش طريقة نخدم بيها البرنامج لكن تكون الـ nb:integer ؟

[أشـــرف]

مشكور فماش طريقة نخدم بيها البرنامج لكن تكون الـ nb:integer ؟


oui, bien sur,
Indication
Utilisez mod et div , mais à noter que tu doit le transformer en une chaine pour savoir sa longueur seulement et après vous travaillez avec l'entier tout comme un entier
c'est une méthode et vous pouvez trouvez d'autres

[The King Vip]

سامحني اشرف كان كثرت عليك ...

برنامج عملتو نعطيه تاريخ انخراط متع شخص ومدة الإنخراط يعطيني تاريخ إنتهاء الإشتراك


مثال : شخص شارك يوم 20/03/2010 ومدة الإشتراك 6 شهور : تاريخ الإنتهاء يكون 20/09/2010 ...

ملاحظة : مدة الإشتراك ديما يا 6 يا 12 شهر

خدمتي

program ahmed;
uses wincrt;
var
ch,nb:string;
n,mm,aa,a,b,z,e,r:integer;
begin
writeln('saisir la date d''inscription');readln(ch);
writeln('combien du mois');readln(nb);
val(copy(ch,4,2),n,e);
val(copy(ch,9,2),z,r);
if nb='6' then
begin
case n of
01,02,03,04,05,06:mm:=n+06;
07:mm:=01;
08:mm:=02;
09:mm:=03;
10:mm:=04;
11:mm:=05;
12:mm:=06
else
aa:=z+01;
end;end;
writeln(ch[1],ch[2],'/',mm,'/',aa);
end.

[أشـــرف]

Salem Ahmed
Ne vous inquiètez pas, posez toujours votre travail et si on a le temps on vous aide soit sur
mais toujours posez votre travail personnel pour qu'on puisse déterminez les points de faiblesses et les corriger
vous êtes le bienvenue mon frère

**********

on revient au travail
j'ai constaté que vous avez un problème au niveau de la boucle case...of
juste il faut que cette boucle ait la structure suivante toujours

case selecteur of
condition1: traitement1;
condition2:tratement2;
...
...
else traitement n
end;

il faut qu'elle se termine par end;
sinon elle ne marche pas proprement
si par exemple traitement1 se compose de plusieurs sous traitements vous devez le délimiter par begin et end;

ceci est ma remarque pour le travail

voici encore le corrigé de votre travail

program ahmed;
uses wincrt;
var
ch1,ch,nb:string;
n,mm,aa,a,b,z,e:integer;
begin
writeln('saisir la date d''inscription');
readln(ch1);
repeat
writeln('combien de mois');
readln(nb);
until ((nb='6') or (nb='12'));
ch:=ch1;

delete(ch,1,pos('/',ch));
val(copy(ch,1,pos('/',ch)-1),n,e);
delete(ch,1,pos('/',ch));
val(ch,z,e);
if nb='6' then
begin
case n of
1,2,3,4,5:
begin
mm:=n+6;
aa:=z;
end
else
begin
mm:=n-6;
aa:=z+1;
end;
end;
end

else
begin
mm:=n;
aa:=z+1;
end;



writeln(copy(ch1,1,pos('/',ch1)-1),'/',mm,'/',aa);
end.

Si vous avez des questions n'hésitez pas
Achref

[أشـــرف]

Autre remarque Ahmed
si vous voulez que votre programme soit vraiment parfait, vous devez ajouter des conditions sur la saisie de la date
par exemple le mois est dans[1..12]
le jour est dans [1..31] et vous devez ajouter d'autres conditions si l'année est bissextile ou non
donc attention ajouter des conditions sur le mois de février
et ainsi de suite

donc fait attention par fois on donne des programmes qui semble simple mais qui sont des pièges
Achref

[The King Vip]

Autre remarque Ahmed
si vous voulez que votre programme soit vraiment parfait, vous devez ajouter des conditions sur la saisie de la date
par exemple le mois est dans[1..12]
le jour est dans [1..31] et vous devez ajouter d'autres conditions si l'année est bissextile ou non
donc attention ajouter des conditions sur le mois de février
et ainsi de suite

donc fait attention par fois on donne des programmes qui semble simple mais qui sont des pièges
Achref



يعطيك الصحة يا غالي ومشكور على النصائح ... الحمد لله في العطلة خدمت اكثر من 30 مشكلة لحد الآن واجهت صعوبة في حوالي 10 مشاكل ... مشكور مرة اخرى وجاري العمل بالنصيحة

[khadi81]

salem, svp qui a un cours complet sur pascal merci d'avence:frown:

[7amma_g]

Cours Pascal
(http://www.algointro.info/index.php/cours-programmation/34-programmation-pascal)

[The King Vip]

Exercice 2 Page 217 كتاب 2éme info

Saisir une chaine de caractémes puis en extraire 3 chaines

* la chaine de lettres L
* la chaine de chiffres C
la chaine de symboles S *
خدمتو والنتيجة تظهرلي آخر Charactére في كل Sous chaine

مثال مالمشكلة اللي ظهرلتلي :

Chaine : Ah58*-M1*Ed/c

L : c
C : 1
S : /

[The King Vip]

Exercice 2 Page 217 كتاب 2éme info

Saisir une chaine de caractémes puis en extraire 3 chaines

* la chaine de lettres L
* la chaine de chiffres C
la chaine de symboles S *
خدمتو والنتيجة تظهرلي آخر Charactére في كل Sous chaine

مثال مالمشكلة اللي ظهرلتلي :

Chaine : Ah58*-M1*Ed/c

L : c
C : 1
S : /


هاني صلحت غلطيتي موش لازم هاو السورس الي يحب يشوف غلطتو وين :

program ahmed;
uses wincrt;
var ch,C,L,S:string;
i:integer;
begin
writeln('Saisir Une Chaine');ReadLn(ch);
L:='';
C:='';
S:='';
For i:=1 to length(ch) do
if upcase(ch[i]) in ['A'..'Z'] then
L:=L+ch[i]
else if ch[i] in ['0'..'9'] then
C:=C+ch[i]
else
S:=S+ch[i];
writeln('L : ',L);
writeln('C : ',C);
writeln('S : ',S);
end.

[RB.12]

Comment pourrait afficher chaque ligne de matrice dans un nouveau ligne

[The King Vip]

Sairsir un réel A et un entier B et Faire cette instruction :

A a la puissance B

عندي مشكلة في البرنامج ممكن مساعدة ( ما تعطينيش الحل كامل اعطيني فكرة صغيرة وانا توا نحاول وحدي .. )

[أشـــرف]

Comment pourrait afficher chaque ligne de matrice dans un nouveau ligne
Vous pouvez utiliser ceci
m:c'est la matrice
n:nombre de ligne
m1:nombre de colonne
for i:=1 to n do
begin
for j:=1 to m1
begin
write(' ',m[i,j],' ');
end;
writeln
end;

Achref

[أشـــرف]

Sairsir un réel A et un entier B et Faire cette instruction :

A a la puissance B

عندي مشكلة في البرنامج ممكن مساعدة ( ما تعطينيش الحل كامل اعطيني فكرة صغيرة وانا توا نحاول وحدي .. )
Soit p un réel, p vas calculer la puissance
Voici le cœur du programme
p:=1;
For i:=1 to B do
p:=p*A;


Achref

[aymen 91]

http://www.tunisia-sat.com/vb/attachment.php?attachmentid=243902&stc=1&d=1269445348

Voici mon essai
mé surement j'ai commi une faute

program transfert;
uses wincrt;
type vect=array[1..20] of integer;
var
t,tpos,tre:vect;
n,p,r,i,j,m:integer;
procedure remplir(var b:vect;l:integer);
var i: integer;
begin
for i:=1 to l do
begin
write('Donnez l''element N° ',i,' : ');
readln(b[i]);
end;
end;
procedure affiche(x:vect;y:integer);
var i:integer;
begin
for i:=1 to y do
write(x[i],' ');
end;

begin
repeat
write('Donnez la taille de T: ');
read(n);
until n in [3..10] ;
remplir (t,n);
write('Donnez la taille de Tpos: ');
read(p);
remplir(tpos,p);
j:=0;
for i:=1 to p do
if tpos[i] = 0 then
j:=j+1;

r:= p-j;
m:=0;
for i:=1 to n do
begin
m:=m+1;
while ((tpos[m])<>0) do
Tre[(tpos[m])]:=t[i];
m:=m+1;
end;
writeln('Le tableau T esl le suivant: ');
affiche(t,n);
writeln('Le tableau TPOS est le suivant: ');
affiche(tpos,p);
end.
[/LEFT]