program mencari jumlah diagonal matriks

haii readers :D kali ini saya akan shareprogram untuk mencari jumlah diagonal-diagonal dari matriks dimana jumlah baris dan kolom ditentukan oleh user,, check this outtt ;;;;;;;;;;;;;;;;;;;;;;;;;;; :)

program diagonal_matriks;
uses crt;
type matrix = array[1..10, 1..10] of integer;
var i, j, n : integer;
a : matrix;
diag1, diag2, total : integer;

begin

writeln('===== Matriks n*n =====');
write('Besar kolom/baris Matriks : '); readln(n);
writeln;

diag1 := 0;
diag2 := 0;

clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('Nilai matriks A ',i,',',j,' : '); readln(a[i,j]);
end;

for i:=1 to n do
diag1:= diag1 + a[i,i];

j := 1;
for i:=n downto 1 do
begin
diag2:= diag2 + a[i,j];
j := j+1;
end;

clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
write('[', a[i,j], '] ');
end;
writeln;
end;

total := diag1 + diag2;

writeln('Diagonal kiri-kanan = ', diag1);
writeln('Diagonal kanan-kiri = ', diag2);
writeln('TOTAL = ', total);

readln;
end.

Read More

haii readers :D kali ini saya akan shareprogram untuk mencari jumlah diagonal-diagonal dari matriks dimana jumlah baris dan kolom ditentukan oleh user,, check this outtt ;;;;;;;;;;;;;;;;;;;;;;;;;;; :)

program diagonal_matriks;
uses crt;
type matrix = array[1..10, 1..10] of integer;
var i, j, n : integer;
a : matrix;
diag1, diag2, total : integer;

begin

writeln('===== Matriks n*n =====');
write('Besar kolom/baris Matriks : '); readln(n);
writeln;

diag1 := 0;
diag2 := 0;

clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('Nilai matriks A ',i,',',j,' : '); readln(a[i,j]);
end;

for i:=1 to n do
diag1:= diag1 + a[i,i];

j := 1;
for i:=n downto 1 do
begin
diag2:= diag2 + a[i,j];
j := j+1;
end;

clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
write('[', a[i,j], '] ');
end;
writeln;
end;

total := diag1 + diag2;

writeln('Diagonal kiri-kanan = ', diag1);
writeln('Diagonal kanan-kiri = ', diag2);
writeln('TOTAL = ', total);

readln;
end.

Read More

PROGRAM JAJAR GENJANG

program jajargenjang;
uses crt; {kalau dev pascal menggunakan wincrt};
var i,j,k,l,n : integer;
begin
     write('input nilai n= ');
     readln(n);
     for i:=1 to n do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;
          for k:=1 to n do
          begin
          write(' *');
          end;
          writeln;
     end;
     readkey;
end.

Read More

program mencari faktorial

program faktorial;
uses crt;
var
a,b : integer;
c : int64;
begin
clrscr;
writeln('Program Faktorial by efelin');
writeln;
write('Masukkan angka = ');
readln(a);
c:=1;
if a=0 then
write(c)
else
begin
for b:=a downto 1 do
c:=b*c;
write('Hasil faktorial = ',c);
end;
readln;
end.

Read More

program jajargenjang

program mencetak_jajargenjang;
uses wincrt;
var i,j,k,l,n : integer;
begin
     write('input nilai n= ');
     readln(n);
     for i:=1 to n do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;
          for k:=1 to n do
          begin
          write(' *');
          end;
          writeln;
     end;
     readkey;
end.

Read More

PROGRAM BILANGAN GANJIL DAN BILANGAN BULAT

program untuk menampilkan apakah x bilangan ganjil atau bilangan genap, dengan syarat bilangan x diinput melalui keyboard

program bilganjil;
uses wincrt;
var x:integer;
begin
     write('input sebuah bilangan: ');
     readln(x);
     if x mod 2=0 then
        writeln('x adalah bilangan genap')
        else
             write('x adalah bilangan ganjil');
     readkey;
end.


contoh tampilan hail di layar

Read More

pemrograman

sebagai seorang mahasiswi ilmu komputer, tentu hidup saya sehari-harinya berhubungan dengan program,, yahhhhh sulit memang.. nah, bagi agan-agan sekalian yang mengalami hal serupa dgn saya, ini ada beberapa contoh program.. semoga bermanfaat ya,,, :)

struktur penulisan program pascal

 program (judul program)
uses (daftar unit)
(bagian deklarasi)
begin
   (statemen-statemen)
 end.

untuk contoh-contoh programnya nyusul d postingan berikutnya ya :)

Read More