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

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.