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!
 
404 Not Found

Server Error

404

Page Not Found

This page either doesn't exist, or it moved somewhere else.


That's what you can do