Kullanıcıdan dizi ve elemanlarını isteyen program

Baklava Ordusu · 20 Şubat 2024

Demek istediğim, bir dizi alıyoruz. Satır, sütun ve elemanları kullanıcı belirleyecek. Mesela 2x2 bir array:
1 2
3 4

Şimdi 1. Elemanı alalalım. Onu bulunduğu satır ve sütundaki elemanlara ekleyeceğiz. Ve bunu her elemana yapacağız. Çıkan sonuçları yeni array'e koyacağız. Elimize şöyle bir şey geçecek:

6 7
8 9

Umarım anlatabildim. Ve bu bir Pascal sorusu. Ama python veya C# gibi diller de olur biraz da olsa onları denemiştim. İşte kullanıcıdan dizi ve elemanlarını isteyen program:

Kod:

program array2;
var a,b,c:array[1..100,1..100] of integer;
i,j,n,m,rjem,cjem:integer;
begin
    Write('M(setir) sany giriz:');Read(m);
    Write('N(sutun) sany giriz:');Read(n);
    for i:=1 to m do
        for j := 1 to n do
        begin
            Write('a[',i,' ',j,'] ');Read(a[i,j]);
            c[i,j]:=a[i,j];
        end;
    for i:=1 to m do begin writeln;
        for j := 1 to n do
        begin
            Write(a[i,j],' ');
        end;
    end;
end.

count · 21 Şubat 2024

Şöyle bir çözüm düşünülebilir,

Kod:

program array2;
var
  a, b: array[1..100, 1..100] of integer;
  i, j, n, m, k, l, temp: integer;

begin
  Write('M(satir) sayi giriz: ');
  Readln(m);
  Write('N(sutun) sayi giriz: ');
  Readln(n);


  for i := 1 to m do
    for j := 1 to n do
    begin
      Write('a[', i, ',', j, '] ');
      Readln(a[i, j]);
    end;

  for i := 1 to m do
  begin
    for j := 1 to n do
      Write(a[i, j], ' ');
    Writeln;
  end;
 

  for i := 1 to m do
    for j := 1 to n do
    begin
      temp := 0;

      for k := 1 to m do
        if k <> i then
        begin
          temp := temp + a[k, j];
        end;
     
     
      for l := 1 to n do
        if l <> j then
        begin
          temp := temp + a[i, l];
        end;
      b[i, j] := temp;
    end;


  Writeln('---------');

  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      b[i, j] := a[i, j] + b[i, j];
      Write(b[i, j], ' ');
    end;
    Writeln;
  end;
end.

Baklava Ordusu · 21 Şubat 2024

count dedi:

Şöyle bir çözüm düşünülebilir,

Kod:

program array2;
var
  a, b: array[1..100, 1..100] of integer;
  i, j, n, m, k, l, temp: integer;

begin
  Write('M(satir) sayi giriz: ');
  Readln(m);
  Write('N(sutun) sayi giriz: ');
  Readln(n);


  for i := 1 to m do
    for j := 1 to n do
    begin
      Write('a[', i, ',', j, '] ');
      Readln(a[i, j]);
    end;

  for i := 1 to m do
  begin
    for j := 1 to n do
      Write(a[i, j], ' ');
    Writeln;
  end;
 

  for i := 1 to m do
    for j := 1 to n do
    begin
      temp := 0;

      for k := 1 to m do
        if k <> i then
        begin
          temp := temp + a[k, j];
        end;
    
    
      for l := 1 to n do
        if l <> j then
        begin
          temp := temp + a[i, l];
        end;
      b[i, j] := temp;
    end;


  Writeln('---------');

  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      b[i, j] := a[i, j] + b[i, j];
      Write(b[i, j], ' ');
    end;
    Writeln;
  end;
end.

Çalıştı. Çok teşekkür ederim.

Kullanıcıdan dizi ve elemanlarını isteyen program

Baklava Ordusu

Decapat

count

Decapat

Baklava Ordusu

Decapat