Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Matristeki En Küçük Sayıyı Bulma ve Matrisi Sayıyla Çarpma


Matristeki En Küçük Sayıyı Bulma ve Matrisi Sayıyla Çarpma

Pascal programlama dilinde yazılmış bu programda 6x6 boyutlarındaki bir matrisin en küçük sayısını bularak, tablodaki bütün elemanların bu sayıyla çarpımından oluşan yeni bir 6x6 boyutlarında matris oluşturacak alt program icra edilmiştir.


  1.  
  2.  
  3.  
  4. uses crt;
  5. var
  6. tablo:array[1..6,1..6] of integer;
  7.  
  8. i,j,min:integer;
  9.  
  10. procedure mincarp;
  11. begin
  12. min:=tablo[1,1];
  13. for i:=1 to 6 do
  14. for j:=1 to 6 do
  15.   if min > tablo[i,j] then min:=tablo[i,j];
  16.  
  17. for i:=1 to 6 do
  18.  for j:=1 to 6 do
  19.   tablo[i,j]:=tablo[i,j]*min;
  20.  
  21.  
  22. begin
  23. clrscr;
  24. writeln('Tablo degerlerini giriniz...');
  25. for i:=1 to 6 do
  26.  for j:=1 to 6 do
  27.   read(tablo[i,j]);
  28.  
  29. readln;
  30. mincarp;
  31. writeln('');
  32.  
  33. for i:=1 to 6 do
  34. begin
  35.  for j:=1 to 6 do
  36.  write(tablo[i,j]);
  37. writeln('');
  38.  
  39. readln;
  40.        
  41.  
  42.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!