Recherche exercices en Pascal
Résolu/Fermé
A voir également:
- Recherche exercices en Pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche adresse - Guide
- Recherche musique - Guide
10 réponses
abir.1
Messages postés
21
Date d'inscription
dimanche 13 janvier 2008
Statut
Membre
Dernière intervention
9 février 2008
8
13 janv. 2008 à 19:17
13 janv. 2008 à 19:17
Bonjour, j'ai un probleme tres difficile , il m'enerve , et en plus aucun de mes colegues possede une solution
svp aidez moi pour resoudre le probleme suivant:
On veut ecrire un programme qui permet de remplir un tablea T par n enties positifs triés dans l'ordre crissant,
puis d'afficher les entiers manquant entre le premier et le dernier element de ce tablea.
example: si n=7 et si T est le tableau suivant:
5 6 8 9 10 12 15
le programme affichera: les entiers manquants sont 7,11,13,14
et MERCI d'avance....
svp aidez moi pour resoudre le probleme suivant:
On veut ecrire un programme qui permet de remplir un tablea T par n enties positifs triés dans l'ordre crissant,
puis d'afficher les entiers manquant entre le premier et le dernier element de ce tablea.
example: si n=7 et si T est le tableau suivant:
5 6 8 9 10 12 15
le programme affichera: les entiers manquants sont 7,11,13,14
et MERCI d'avance....
il est clair qu'il est un ex trés dif et qu'on doit y penser bcp de temps.mais la 1ere phrase d'ennoncer n'est pas clair est ce que je doit faire dans mon algo une condition pour cela ou non.merci
bonjour,je fait cet exercice et j'obtenir la solution et voilà:
program tableau;
uses wincrt;
type tab=array[1..100]of integer;
var t:tab ;n,i,j:integer;
procedure s(vart:tab;var n:integer);
begin
writeln('donner la taille du tab');
readln(n);
writeln('remplir votre tableau');
for i:=1 to n do
begin
readln(t[i]);
end;
end;
procedure tad(t:tab;n:integer);
begin
for i:=2 to n do
begin
if t[i]-t[i-1]>1
then
begin
j:= t[i-1];
repeat
j:=j+1;
write( '|',j,'|');
until(j=t[i]-1);
end;
end;
end;
begin
s(t,n);
tad(t,n);
end.
program tableau;
uses wincrt;
type tab=array[1..100]of integer;
var t:tab ;n,i,j:integer;
procedure s(vart:tab;var n:integer);
begin
writeln('donner la taille du tab');
readln(n);
writeln('remplir votre tableau');
for i:=1 to n do
begin
readln(t[i]);
end;
end;
procedure tad(t:tab;n:integer);
begin
for i:=2 to n do
begin
if t[i]-t[i-1]>1
then
begin
j:= t[i-1];
repeat
j:=j+1;
write( '|',j,'|');
until(j=t[i]-1);
end;
end;
end;
begin
s(t,n);
tad(t,n);
end.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
abir.1
Messages postés
21
Date d'inscription
dimanche 13 janvier 2008
Statut
Membre
Dernière intervention
9 février 2008
8
17 janv. 2008 à 18:51
17 janv. 2008 à 18:51
bonjour,
voila un autre probleme:
on veut ecrire un algorithme qui permet de transposer une matrice carré.
l'operation de transposition consiste à inverser les lignes et les colonnes
en effectuant une symétrie par rapport à la diagonale principale de la matrice.
exemple:
1 2 3
4 5 6
7 8 9
devient
1 4 7
2 5 8
3 6 9
merci.
voila un autre probleme:
on veut ecrire un algorithme qui permet de transposer une matrice carré.
l'operation de transposition consiste à inverser les lignes et les colonnes
en effectuant une symétrie par rapport à la diagonale principale de la matrice.
exemple:
1 2 3
4 5 6
7 8 9
devient
1 4 7
2 5 8
3 6 9
merci.
Voici l'algorithme:
Algorithme ex;
Type:n=1..100
Variables A,B:tableau[1..100,1..100] de réels;
i,j:entier;
dim:n;
Début
ecrire('donnez la dimension du tableau');
lire(dim);
Pour i de 1 à dim faire
Début
Pour j de 1 à dim faire
Début
lire(T[i]);
B <= A;
A[i,j] <= B[j,i];
ecrire(A[i,j]);
fin;
fin;
fin.
Algorithme ex;
Type:n=1..100
Variables A,B:tableau[1..100,1..100] de réels;
i,j:entier;
dim:n;
Début
ecrire('donnez la dimension du tableau');
lire(dim);
Pour i de 1 à dim faire
Début
Pour j de 1 à dim faire
Début
lire(T[i]);
B <= A;
A[i,j] <= B[j,i];
ecrire(A[i,j]);
fin;
fin;
fin.
salut ..
j'ai un petit problem .. je veux ecrire un programme qui transforme une matrice en sa transposée par rapport à la deuxième diagonale .. pouvez-vous m'aider !!
j'ai un petit problem .. je veux ecrire un programme qui transforme une matrice en sa transposée par rapport à la deuxième diagonale .. pouvez-vous m'aider !!
kaprise
Messages postés
2
Date d'inscription
dimanche 11 mai 2008
Statut
Membre
Dernière intervention
11 mai 2008
11 mai 2008 à 12:21
11 mai 2008 à 12:21
salut je cherche des exercices dans l les procédure et les fonction des math