Pascal - Matricat në Pascal

[drita]

Kush ka mundësi i lutem të më ndihmojë në këto ushtrime (dhe kjo brenda dy ditëve, se pastaj nuk më duhen)…

1)Jepet matrica A[1...n,1…m] Të ndërtohet një program paskal që kryen:
a- shuma e çdo rreshti të matricës të vendoset në shtyllën e parë të saj.
b- Mesatarja e çdo shtylle të vendoset në rreshtin e fundit të matricës.

2)Jepet matrica A[1…m,1…k] dhe B[1…k,1…n] Të ndërtohet një program paskal për të përfituar matricën C nga shumëzimi i tyre.

[fitims]

Provo kodin e meposhtem:

type
  TMatrica = attay[0..2, 0..2] of integer; // madhesia e matrices eshte 3x3 (0,1,2)

procedure MbledhjaRreshtave(var A : TMatrica);
function ShumezimiMatrivace(A, B : TMatrica): TMatrica;

implementation


procedure MbledhjaRreshtave(var A : TMatrica);
var
  shuma : integer;
  i,j : integer;
begin
  for i:= 0 to 2 do // per secilen rresht te matrices
    begin
      shuma := 0;
      for j:= 0 to 2 do
        begin
          shuma := shuma + A[i,j]; // mbledh anetaret e rreshtit i
          A[i,0] := shuma; // vendose shumen ne shtyllen e pare
        end;
    end;
end;


function ShumezimiMatrivace(A, B : TMatrica): TMatrica;
var
  prodhimi : TMatrica;
  i, j: integer;
begin
  for i := 0 to 2 do  // per secilin rresht
    begin
      for j := 0 to 2 do  // per secilen kolone
        begin
          prodhimi[i,j] := 0;
          for x := 0 to 2 do
            prodhimi[i,j] := prodhimi[i,j] + A[x,i] * B[j,x]; // shumzo rreshtat me shtylla
        end;
    end;

  result := prodhimi;
end;

Nese ke probleme lajmerohu

[fitims]

Me fal per gabime shkrimi

provo kodin me poshte :

type
  TMatrica = array[0..2, 0..2] of integer; // madhesia e matrices eshte 3x3 (0,1,2)

procedure MbledhjaRreshtave(var A : TMatrica);
function ShumezimiMatricaae(A, B : TMatrica): TMatrica;

implementation


procedure MbledhjaRreshtave(var A : TMatrica);
var
  shuma : integer;
  i,j : integer;
begin
  for i:= 0 to 2 do // per secilen rresht te matrices
    begin
      shuma := 0;
      for j:= 0 to 2 do
        begin
          shuma := shuma + A[i,j]; // mbledh anetaret e rreshtit i
          A[i,0] := shuma; // vendose shumen ne shtyllen e pare
        end;
    end;
end;


function ShumezimiMatricave(A, B : TMatrica): TMatrica;
var
  prodhimi : TMatrica;
  i, j: integer;
begin
  for i := 0 to 2 do  // per secilin rresht
    begin
      for j := 0 to 2 do  // per secilen kolone
        begin
          prodhimi[i,j] := 0;
          for x := 0 to 2 do
            prodhimi[i,j] := prodhimi[i,j] + A[x,i] * B[j,x]; // shumzo rreshtat me shtylla
        end;
    end;

  result := prodhimi;
end;

[berat96]

Fitims,

Tek procedura MbledhjaRreshtave nuk eshte e nevojshme qe
A[i,0]:=shuma te jete brenda for loop.

Ndersa tek shumezimi i matricave keni nje gabim te vogel. Jeni duke shumezuar matricen A me B dhe jo B me A.

Keshtu, nese C = A B, atehere

C[i,j] = A[i,0]*B[0,j] + A[i,1]*B[1,j] + ... + A[i,n]*B[n,j],

ku n eshte numri i kolonave per matricen A dhe rreshtave per matricen B.

Ndaj, ne kodin tuaj duhet t'i ndryshoni vendin x,i dhe j,x.
Duhet te jene i,x dhe x,j.

Drita,

Ende Paskal behet ne Tirane? Une kujtoja se kishin hequr dore nga Paskali dhe kishin futur C++ ose Java.

[fitims]

Berat96

Ke te drejt plotesisht. Kerkoj falje per gabimet se kodi eshte shkruajtur direkt ne forum (shihet edh nga gabimet e shtypit) pa e bere asnje testim.

Kerkoj falje edhe nje here

Ju pershendes

[drita]

Cuna, faleminderit shume, shume...
Sa i perket pyetjes tende "Berat" ketu behet "paskal" per inxh. Mekanike, Miniera etj., ndersa C, dhe C++, per elektronike.
Kurse sa per Java, me duket se bejne vetem tek Fak. Informatikes...
Edhe nje here faleminderit...