Matrice en Pascal

Fermé

Matrice

caro - 20 mars 2004 à 11:25
ines - 6 déc. 2010 à 10:39

Bonjour,
Comment faire pour insérer des matrices dans Turbo Pascal, j'suis en pleine galere, aidez moi...
(J'avais penser a un tableau a 2 dimensions mais je ne vois pas comment m'y prendre)

Merci bcp d'avance

A voir également:

Matrice pascal
Turbo pascal download - Télécharger - Édition & Programmation
My pascal - Télécharger - Édition & Programmation
Afficher une matrice en c ✓ - Forum C
Remplir une matrice matlab ✓ - Forum Matlab
Dev-pascal - Télécharger - Édition & Programmation

2 réponses

Réponse 1 / 2

Marmot Messages postés 579 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 17 août 2006 69
20 mars 2004 à 11:30

Ben si

Exemple de calcul de produit matriciel (et d'autres sur le web)

program produit_mat(input,output);
var m1,m2,m3:array[1..10,1..10]of real;
l,m,n,jl,jm,jn:integer;
begin
writeln('nb lignes 1ère matrice ?');
readln(m);
writeln('nb colonnes 1è matrice ?');
readln(l);
writeln('nb colonnes 2è matrice ?');
readln(n);
(* entrée de m1 *)
writeln('première matrice');
for jm:=1 to m do for jl:=1 to l do
begin
writeln('lig',jm,', col',jl,'?');
readln(m1[jm,jl])
end;
(* entrée de m2 *)
writeln('2ième matrice');
for jl:=1 to l do for jn:=1 to n do
begin
writeln('lig',jl,', col',jn,'?');
readln(m2[jl,jn])
end;
(* calcul du produit *)
for jm:=1 to m do for jn:=1 to n do
begin {calcul composante m,n de m2}
m3[jm,jn]:=0;
for jl:=1 to l do m3[jm,jn]:=
m3[jm,jn]+(m1[jm,jl]*m2[jl,jn]);
end;
(* affichage du résultat *)
writeln('résultat');
for jm:=1 to m do for jn:=1 to n do
writeln('m[',jm,',',jn,']=',
m3[jm,jn])
end.

ines
6 déc. 2010 à 10:39

uses wincrt? pour traduit les opération d'entré et les opération de sortie(readln,writeln)

Réponse 2 / 2

djellat Messages postés 6 Date d'inscription jeudi 7 février 2008 Statut Membre Dernière intervention 20 juin 2008 5
20 juin 2008 à 22:30

Bonjour,
Comment faire pour calculer la transposé d'un matrice, j'suis en pleine galere, aidez moi...

KX Messages postés 16733 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 janvier 2024 3 015
21 juin 2008 à 00:50

Je vais utiliser le type matrice tel que je te l'ai écris dans ton autre post

function transpose(a:matrice):matrice;
var i,j:integer;
begin
result.n:=a.p;
result.p:=a.n;
for i:=1 to a.n do
    for j:=1 to a.p do
        result.m[j,i]:=a.m[i,j];
end;

خيتر : Z++ > KX Messages postés 16733 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 janvier 2024
23 sept. 2008 à 12:07

program plus_grand_comme_un_diviseur;
uses crt;
var x,y:integer;
function pgcd(a,b:integer):integer;
var c:integer;
begin
if b=0 then pgcd:=abs(a)
else begin
while a mod b<>0 do
begin
c:=a;
a:=b;
b:=c mod b
end;
pgcd:=abs(b);
end;
end;
begin clrscr;
write('donner un nombre entier:');
readln(x);
write('donner un nombre entier:');
readln(y);
writeln('____________________________');
write('le PGCD de ',x,' et de ',y,' est: ',pgcd(x,y));
readln;
end.

KHITER : Z++ > خيتر : Z++
23 sept. 2008 à 12:10

gooooooooooooooooood

KHITER : Z++ > خيتر : Z++
23 sept. 2008 à 12:10

gooooooooooood

KHITER : Z++ > خيتر : Z++
23 sept. 2008 à 12:21

Salut voici un programme pascal qui nous prmetant de calculer le factoriel avec une fonction

program factor;
var y,f,i:integer;
function fact(x:integer):longint;

begin
if x=0 then
f:=1
else
f:=1;
for i:=1 to x do
f:=f*i;
fact:=f;
end;
begin
write('donner un nombre entier svp : ');
readln(f);
y:=fact(f);
write('le factoriel = ', y);
readln;
end.

merci " Z++"

Discussions similaires

Affichage d'une matrice en pascal

d:=random(100) ??? aide sur pascal !!!

triangle pascal

cod PASCAL pour une equation du second degrés

A quoi sert uses crt dans le programme PASCAL

programme pascal de conversion entre bases

Discussions similaires

Newsletters