Pelajaran dan Tugas Sekolah

Pemograman Komputer Universitas Ahmad Dahlan


Artikel Terkait dengan Pemograman Komputer Universitas Ahmad Dahlan

program ku;
uses wincrt;
var
   i,j,a,b,c,d:integer;
   x,r:array[1..10,1..10]of real;
   begin
   clrscr;

   write('Jumlah baris= ');readln(a);
   write('jumlah kolom= ');readln(b);
   writeln;
   writeln('Matrik A');
   for i:=1 to a do
   begin
   for j:=1 to b do
   begin
   write('Masukan Nilai Baris ke- ',i,' Kolom ke-',j,':');readln(x[i,j]);
   end;
   write;
   end;
   writeln;
   writeln('Matrik A');
   for i:=1 to a do
   begin
   for j:=1 to b do
   begin
   write(x[i,j]+r[i,j]:8:0);
   end;
   writeln;
   end;
   writeln;
   writeln('Transpos Matrik A');
   for i:=1 to a do
   begin
   for j:=1 to b do
   begin
   write(x[j,i]+r[j,i]:8:0);
   end;
   writeln;
   end;
   readln;
   end.

Pemograman Komputer




Description: Pemograman Komputer Universitas Ahmad Dahlan Rating: 5.0 Reviewer: Eri ItemReviewed: Pemograman Komputer Universitas Ahmad Dahlan


Pengunjung Lain Juga Membaca:


Gali lebih banyak tentang Pemograman Komputer Universitas Ahmad Dahlan
0 Komentar untuk "Pemograman Komputer Universitas Ahmad Dahlan"
Back To Top