Recherche exercices en Pascal

Résolu/Fermé
achref - 12 janv. 2008 à 18:21
 Hébert - 11 mai 2008 à 12:45
bonjour
svp,je veux des exercices pascal à niveau plus élever puisque je suis un éleve en bac informatique.Merci
A voir également:

10 réponses

2
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
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....
1
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
1
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
est ce que vous avez autres probs en pascal svp?
0
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
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.
0
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.
0
g un probleme
0
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 !!
0
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
salut je cherche des exercices dans l les procédure et les fonction des math
0