TUGAS_Q

Program prosedur;

uses wincrt;

var

a,b,n:integer;

c,d:real;

pil:string;

procedure penjumlahan;

var c:real;

begin

c:=a+b;

writeln('hasil penjumlahannya:',c:3:1);

end;

procedure perkalian;

var d:real;

begin

d:=a*b;

write('hasil perkaliannya:',d:3:1);

end;

procedure pengurangan;

var e:real;

begin

e:=a-b;

write('hasil pengurangannya:',e:3:1);

end;

begin

repeat

writeln('1.penjumlahan');

writeln('2.perkalian');

writeln('3.pengurangan');

write('program pilihan Anda adalah:');readln(n);

write('bilangan pertama:');readln(a);

write('bilangan kedua:');readln(b);

if n=1 then

begin

penjumlahan;

writeln;

end

else if n=2 then

begin

perkalian;

writeln;

end

else

pengurangan;

writeln;

write('apa anda mau mengulang [y/t]?');readln(pil);

until pil='t';

writeln('selesai');

end.

Program segitiga;

uses wincrt;

var

j,m,n:integer;

begin

write('banyak perulangan?');readln(n);

for m:=1 to n do

begin

for j:=1 to m do

write('*',' ');

writeln;

end;

begin

for m:=n-1 downto 1 do

begin

for j:=m downto 1 do

write('*',' ');

writeln;

end;

end;

end.

Program perulangan;

uses wincrt;

var

n,i:integer;

begin

write('banyak perulangan?');readln(n);

i:=1;

repeat

writeln(i,'.','manis');

i:=i+1;

until i>n;

end.

Program penjumlahan_matriks;

uses wincrt;

type larik=array[1..5,1..5] of integer;

var

a,b,i,j:integer;

x,y,z:larik;

begin

write('masukkan banyak baris matriks pertama dan kedua: ');readln(a);

write('masukkan banyak kolom matriks pertama dan kedua: ');readln(b);

writeln;

writeln('komponen matriks pertama:');

for i:=1 to a do

begin

for j:=1 to b do

begin

write('nilai[',i,',',j,']:');readln(x[i,j]);

end;

writeln;

end;

writeln('komponen matriks kedua:');

for i:=1 to a do

begin

for j:=1 to b do

begin

write('nilai[',i,',',j,']:');readln(y[i,j]);

end;

writeln;

end;

for i:=1 to a do

begin

for j:=1 to b do

begin

for i:=1 to b do

z[i,j]:=x[i,j]+y[i,j];

end;

writeln;

end;

writeln('hasil penjumlahan dua matriks adalah');

for i:=1 to a do

begin

for j:=1 to b do

write(z[i,j]:9);

writeln;

end;

end.

TANGGAL LAHIR

uses wincrt;

var n,x,y,z,H,I,J,K:integer;

begin

write ('masukkan tanggal lahir ');readln (x);

write ('masukkan bulan lahir ');readln(y);

write ('masukkan tahun lahir ');readln (z);

write ('masukkan jumlah hari ');readln (n);

H:= n div 365;

I:= n mod 365;

J:= I div 30;

K:= I mod 30;

write ('usia sekarang adalah= ',H,'tahun ',J,'bulan ',K,'hari ');

end.

SEGITIGA TERBALIK

uses wincrt;

var i,j,n:integer;

begin

write ('masukkan angka: ');readln (n);

for j:=n downto 1 do

begin

writeln (' ');

for i:=j downto 1 do

write (5:3) ;

writeln;

end;

readln;

end.

MATRIKS

program array_09;

uses wincrt;

var larik:array [1..100,1..100] of integer;

i,j,m,n:integer;

begin

write('masukkan jumlah baris = ');readln(m);

write('masukkan jumlah kolom = ');readln(n);

clrscr;

writeln('nilai komponen matriks = ');

for i:=1 to m do

begin

for j:=1 to n do

begin

write('nilai[',i,',',j,']?');readln(larik[i,j]);

end;

writeln;

end;

clrscr;

writeln('Diperoleh matriks');

writeln;

for i:=1 to m do

begin

for j:=1 to n do

begin

write(larik[i,j]:9);

end;

writeln;

end;

end.

ARRAY

program awal_array;

uses wincrt;

var nilai:array[1..100] of integer;

i,n:integer;

begin

write('masukkan jumlah = ');read(n);

for i:=1 to n do

begin

writeln('masukkan data ke ',i );

read(nilai[i]);

end;

write('you');

end.

ARRAY 01

program awal_array;

uses wincrt;

var nilai:array[1..100] of integer;

i,n:integer;

begin

write('masukkan jumlah = ');read(n);

for i:=1 to n do

begin

writeln('masukkan data ke ',i );

read(nilai[i]);

end;

clrscr;

writeln('datanya adalah:');

for i:=1 to n do

begin

writeln(nilai[i]);

end;

end.

GANJIL-GENAP

uses wincrt;

var

nilai,y,x,bil:integer;

begin

write('masukan bil : ');

readln(bil);

if bil mod 2=0then

writeln('bil genap')

else

writeln('bil ganjil');

end.

PERKALIAN

uses wincrt;

var num,total,x:integer;

begin

num:=1;

total:=1;

write('masukkan bilangan= ');readln(x);

repeat

if num

write(num,'*') else write(num,'=');

total:=num*total;

num:=num+1;

until num>x;

write(total,' ');

end.

JUMLAH SEGITIGA

program for_do;

uses wincrt;

var x,y,z,jum:integer;

begin

write('masukkan nilai bilangan= ');read(y);

for x:=1 to y do

begin

for z:=1 to x do

write(x:3);

jum:=x*z;

writeln( ' = ',jum);

end;

end.

CASE OF

program case_of;

uses wincrt;

var pilihan:integer;

b,c,d,e,f,g,h:real;

begin

writeln('MENU PILIHAN');

writeln('1.menghitung volum kubus');

writeln('2.menghitung volum balok');

writeln('3.menghitung volum limas segi-4');

writeln('masukkan pilihan=');readln(pilihan);

clrscr;

case pilihan of

1:begin

write('masukkan rusuk=');readln(b);

c:=b*b*b;

writeln('volum kubus=',c:5:2);

end;

2:begin

write('masukkan panjang,lebar,tinggi=');readln(d,e,f);

g:=d*e*f;

writeln('volum balok=',g:5:2);

end;

3:begin

write('masukkan panjang,lebar,tinggi=');readln(d,e,f);

h:=(d*e*f)/3;

writeln('volum limas segi-4=',h:5:2);

end;

end;

end.

REPEAT UNTIL

program nilai;

uses wincrt;

const a=0.4;

b=0.6;

var nim:real;

nama:string;

d,e,f:real;

pilih:char;

begin

REPEAT

CLRSCR;

write('masukkan nama= ');readln(nama);

write('masukkan nim= ');readln(nim);

write('nilai UTS= ');readln(d);

write('nilai UAS= ');readln(e);

f:=a*d+b*e;

writeln('nilai akhir adalah= ',f:5:2);

if f<50>

write('apakah ingin mengulang lagi(Y/T)?');readln(pilih);

until pilih='T';

write('selesai');

end.

BELAJAR PROKOM

uses wincrt;

begin

writeln('SAYA BELAJAR PROKOM');

writeln(' O');

writeln(' K');

writeln(' O');

writeln(' R');

writeln(' P');

writeln(' ');

writeln(' R');

writeln(' A');

writeln(' J');

writeln(' A');

writeln(' L');

writeln(' E');

writeln(' B');

writeln(' ');

writeln(' A');

writeln(' Y');

writeln(' A');

writeln('SAYA BELAJAR PROKOM');

end.

BELAJAR PASCAL

uses wincrt;

var n,i:integer;

kata1,kata2,kata3:string;

begin

write('masukkan kata pertama: ');readln(kata1);

write('masukkan kata kedua : ');readln(kata2);

write('masukkan kata ketiga : ');readln(kata3);

write('banyak perulangan : ');readln(n);

for i:=1 to n do

writeln('kalimat: ',kata3,' ',kata2,' ',kata1);

end.

KONVERSI WAKTU

uses wincrt;

var j,k,m,d,dm:integer;

begin

write('masukkan jumlah detik: ');readln(dm);

j:=dm div 3600;

k:=dm mod 3600;

m:=k div 60;

d:=k mod 60;

write('waktu sebenarnya adalah: ',j,' jam ',m,' menit ',d,' detik ');

end.

PERSAMAAN KUADRAT

uses wincrt;

var a,b,c:real;

d,x1,x2:real;

begin

write('masukkan nilai a: ');readln(a);

write('masukkan nilai b: ');readln(b);

write('masukkan nilai c: ');readln(c);

writeln;

d:=sqr(b)-(4*a*c);

if d>0 then

begin

x1:=(-b)+sqrt(d)/(2*a);

x2:=(-b)-sqrt(d)/(2*a);

writeln('x1: ',x1:3:2,' x2: ',x2:3:2);

end

else if d=0 then

begin

x1:=(-b)/(2*a);

writeln('x1=x2= ',x1:3:2);

end

else if d<0>

begin

writeln('akar imajiner');

end

end.

TUKAR NILAI

uses wincrt;

var a,b,c:integer;

begin

write('masukkan nilai a: ');readln(a);

write('masukkan nilai b: ');readln(b);

writeln;

c:=a;

a:=b;

b:=c;

write('setelah ditukar: a= ',a,' b= ',b);

end.

MAKSIMAL-MINIMAL

uses wincrt;

var x:array[1..7] of integer;

n,i,max,min:integer;

begin

write('masukkan banyak data: ');readln(n);

writeln('data harus urut');

for i:=1 to n do

begin

write('data ke-',i,': ');readln(x[i]);

end;

writeln('data yang telah dimasukkan: ');

for i:=1 to n do

begin

writeln(x[i]);

end;

max:=x[1];

min:=x[1];

for i:=1 to n do

begin

if (max

max:=x[i]

else

min:=x[i];

end;

writeln;

writeln('nilai maksimal: ',max);

writeln('nilai minimum: ',min);

end.