Matrice en Pascal

Matrice

caro -
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

Afficher la suite

A voir également:

Matrice de pascal
Turbo pascal - Télécharger - Édition & Programmation
My pascal - Télécharger - Édition & Programmation
Dev pascal - Télécharger - Édition & Programmation
Vous ne pouvez pas modifier une partie de matrice - Forum Excel
Pas modifier une partie de matrice - Forum Excel

2 réponses

Réponse 1 / 2

Marmot Messages postés 579 Date d'inscription Statut Membre Dernière intervention 69

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

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 Statut Membre Dernière intervention 5

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

KX Messages postés 16761 Date d'inscription Statut Modérateur Dernière intervention 3 020

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 16761 Date d'inscription Statut Modérateur Dernière intervention

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++

gooooooooooooooooood

KHITER : Z++ > خيتر : Z++

gooooooooooood

KHITER : Z++ > خيتر : Z++

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

[MATH] Rang d'une matrice

[MATLAB] Supprimer composantes d'un vecteur

[excel]créer matrice à partir tabl. à 3 colon

[c] structures matrices

exercices sur les matrices

point cols d'une matrice

Votre réponse

Discussions similaires