IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Temmuz 2014, 11:05   #1
Çevrimdışı
Matristeki En Küçük Sayıyı Bulma ve Matrisi Sayıyla Çarpma


-- Sponsor Baglantı --


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.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var tablo:array[1..6,1..6] of integer; i,j,min:integer; procedure mincarp; begin min:=tablo[1,1]; for i:=1 to 6 do for j:=1 to 6 do if min > tablo[i,j] then min:=tablo[i,j]; for i:=1 to 6 do for j:=1 to 6 do tablo[i,j]:=tablo[i,j]*min; end; begin clrscr; writeln('Tablo degerlerini giriniz...'); for i:=1 to 6 do for j:=1 to 6 do read(tablo[i,j]); readln; mincarp; writeln(''); for i:=1 to 6 do begin for j:=1 to 6 do write(tablo[i,j]); writeln(''); end; readln; end.

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.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var tablo:array[1..6,1..6] of integer; i,j,min:integer; procedure mincarp; begin min:=tablo[1,1]; for i:=1 to 6 do for j:=1 to 6 do if min > tablo[i,j] then min:=tablo[i,j]; for i:=1 to 6 do for j:=1 to 6 do tablo[i,j]:=tablo[i,j]*min; end; begin clrscr; writeln('Tablo degerlerini giriniz...'); for i:=1 to 6 do for j:=1 to 6 do read(tablo[i,j]); readln; mincarp; writeln(''); for i:=1 to 6 do begin for j:=1 to 6 do write(tablo[i,j]); writeln(''); end; readln; end.

__________________
şah hatayi'm muhabbete bakarım
ben doluyum ben dolana akarım


Maya
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
bulma, carpma, en, küÇük, matrisi, matristeki, sayıyla, sayıyı, ve

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Bir Metindeki Karakter ve Kelime Sayısını Bulma ve Metini Tamamen Büyük ve Küçük Yapm Swat Java 0 03 Temmuz 2014 12:31
Cimbom Kartal'ı Bir Sayıyla Geçti Thetis Diğer Spor Branşları 1 17 Mayıs 2012 02:32
Matrisi Eşelon Forma Çevirir Cemalizim C ve C++ 0 19 Temmuz 2008 15:34