A voir également:
- Tableaux en Pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Tableaux croisés dynamiques - Guide
- Fusionner deux tableaux excel - Guide
- Dev-pascal - Télécharger - Édition & Programmation
1 réponse
Je vous joint le code que j'ai écris même s'il est certainement complètement faux...
_________________________________________________________
PROGRAM Gestion_Prix;
CONST
Nb_Articles = 10;
Marge_Benef = 0.1;
TYPE
TAB1=ARRAY[1..Nb_Articles, 1..4] OF REAL;
TAB2=ARRAY[1..Nb_Articles, 1..2] OF STRING;
VAR
Ligne, Colonne, No_Article_MAT1 : INTEGER;
MAT1 : TAB1;
MAT2 : TAB2;
Prix_Achat, Prix_Affiche : REAL;
Nom_Article, No_Article_MAT2 : STRING;
//************************ Remplissage du tableau ***************************
BEGIN
FOR Ligne := 1 TO Nb_Articles DO
BEGIN
WRITE('Indiquer le nom de l''article n° '); WRITE(Ligne); WRITELN(' : '); READLN(Nom_Article);
MAT2[Ligne,1] := Ligne;
MAT2[Ligne,2] := Nom_Article;
WRITE('Indiquer le prix d''achat de l''article n° '); WRITE(Ligne); WRITE(' : '); READLN(Prix_Achat);
MAT1[Ligne,1] := Ligne;
MAT1[Ligne,2] := Prix_Achat;
MAT1[Ligne,3] := Marge_Benef;
Prix_Affiche := Prix_Achat+(Prix_Achat*Marge_Benef);
MAT1[Ligne,4] := Prix_Affiche;
END;
//****** Affichage de la liste des articles avec leur prix à afficher ********
FOR Ligne := 1 TO Nb_Articles DO
BEGIN
WRITE('Article : '); WRITE(MAT2[Ligne,1]) ; WRITE (' Prix affiché : '); WRITE(MAT1[Ligne,4]:10:2); WRITELN(' Euros');
END;
END.
_________________________________________________________
PROGRAM Gestion_Prix;
CONST
Nb_Articles = 10;
Marge_Benef = 0.1;
TYPE
TAB1=ARRAY[1..Nb_Articles, 1..4] OF REAL;
TAB2=ARRAY[1..Nb_Articles, 1..2] OF STRING;
VAR
Ligne, Colonne, No_Article_MAT1 : INTEGER;
MAT1 : TAB1;
MAT2 : TAB2;
Prix_Achat, Prix_Affiche : REAL;
Nom_Article, No_Article_MAT2 : STRING;
//************************ Remplissage du tableau ***************************
BEGIN
FOR Ligne := 1 TO Nb_Articles DO
BEGIN
WRITE('Indiquer le nom de l''article n° '); WRITE(Ligne); WRITELN(' : '); READLN(Nom_Article);
MAT2[Ligne,1] := Ligne;
MAT2[Ligne,2] := Nom_Article;
WRITE('Indiquer le prix d''achat de l''article n° '); WRITE(Ligne); WRITE(' : '); READLN(Prix_Achat);
MAT1[Ligne,1] := Ligne;
MAT1[Ligne,2] := Prix_Achat;
MAT1[Ligne,3] := Marge_Benef;
Prix_Affiche := Prix_Achat+(Prix_Achat*Marge_Benef);
MAT1[Ligne,4] := Prix_Affiche;
END;
//****** Affichage de la liste des articles avec leur prix à afficher ********
FOR Ligne := 1 TO Nb_Articles DO
BEGIN
WRITE('Article : '); WRITE(MAT2[Ligne,1]) ; WRITE (' Prix affiché : '); WRITE(MAT1[Ligne,4]:10:2); WRITELN(' Euros');
END;
END.