ujian ujian ujian...
sudah hampir tiba waktunya,,,,
tak terasa semester ini hampir usai...
tingkatkan semangat untuk menghadapi akhr semester,,,,

PROKOM LAGI

program lagu;

uses wincrt;

var x,n:integer;

begin

write(‘masukkan jumlah anak ayam= ‘);readln(n);

x:=n;

clrscr;

while x>1 do

begin

writeln(‘ LAGU ANAK AYAM ’);

writeln(‘ ================ ’);

writeln(‘tek kotek kotek kotek’);

writeln(‘anak ayam turun ‘,x);

writeln;

writeln(‘tek kotek kotek kotek’);

writeln(‘mati satu tinggal ‘,x-1);

writeln;

x:=x-1;

end;

writeln(‘tek kotek kotek kotek’);

writeln(‘anak ayam turun 1′);

writeln;

writeln(‘tek kotek kotek kotek’);

writeln(‘mati satu tinggal induknya’);

end.

Program jumlah;

uses wincrt;

var num,total,x:integer;

begin

num:=1;

total:=1;

writeln(‘masukkan bilangan= ‘);readln(x);

repeat

if num

total:=num*total;

num:=num+1;

until num>x;

write(total,’ ‘);

end.

program pembagian;

uses wincrt;

var

a,b:integer;

c:real;

begin

writeln(‘PROGRAM PEMBAGIAN’);

writeln(‘——————-’);

writeln;

write(‘a=’);read(a);

write(‘b=’);read(b);

c:=a/b;

write(‘Jadi hasil bagi dua bilangan tersebut adalah ‘,c:10:2);

end.

program perkalian_berulang;

uses wincrt;

var a,b,c:integer;

function faktorial(n:integer):longint;

begin

if n=0 then faktorial:=1

else

faktorial:=n*faktorial(n-1);

end;

begin

write(‘a=’);read(a);

writeln;

for b:=1 to (a-1) do write(b,’*');

write(a,’=',faktorial(a));

end.

Program Penjumlahan_Deret_Bilangan_Bulat;

Uses Wincrt;

Var

bilangan_awal,bilangan_akhir,bilangan_setelah_awal,bilangan_penolong1,bilangan_penolong2:longint;

jumlah1,jumlah2,jumlah_akhir:longint;

Begin

Write (‘Masukkan bilangan awal yang diinginkan = ‘); readln (bilangan_awal);

Write (‘Masukkan bilangan akhir yang diinginkan = ‘); readln (bilangan_akhir);

If bilangan_akhir=bilangan_awal then write (bilangan_awal)

else begin

jumlah_akhir:=0;

jumlah1:=0;

jumlah2:=0;

bilangan_setelah_awal:=bilangan_awal+1;

bilangan_penolong1:=0;

bilangan_penolong2:=0;

Write (bilangan_awal);

Repeat

jumlah2:=jumlah2+bilangan_penolong2;

bilangan_penolong2:=bilangan_penolong2+1;

Until bilangan_penolong2>=bilangan_awal;

Repeat

jumlah1:=jumlah1+bilangan_penolong1;

bilangan_penolong1:=bilangan_penolong1+1;

Until bilangan_penolong1>bilangan_akhir;

Repeat

Write (‘ + ‘,bilangan_setelah_awal);

bilangan_setelah_awal:=bilangan_setelah_awal+1;

jumlah_akhir:=jumlah1-jumlah2;

Until bilangan_setelah_awal>bilangan_akhir;

Write (‘ = ‘,jumlah_akhir);

end

End.

Program Latihan_Rekursi_2;

Uses Wincrt;

Procedure Rekursi(a:integer);

Var

y:integer;

Begin

If a<10>

Begin

Writeln(‘Pascal’);

Writeln;

a:=a+1;

Rekursi(a);

End;

End;

Var

x:integer;

Begin

Writeln(‘Berapa batas awalnya?’);Readln(x);

Rekursi(x);

End.

program rekursi;

procedure penjumlahan;

var

a,b,c:integer;

begin

write(‘nilai pertama ‘);readln(a);

write(‘nilai kedua ‘);readln(b);

c:=a+b;

writeln(‘hasil penjumlahannya ‘,c);

end;

procedure pengurangan;

var

a,b,c:integer;

begin

write(‘nilai pertama ‘);readln(a);

write(‘nilai kedua ‘);readln(b);

c:=a-b;

writeln(‘hasil pengurangannya ‘,c);

end;

procedure perkalian;

var

a,b,c:integer;

begin

write(‘nilai pertama ‘);readln(a);

write(‘nilai kedua ‘);readln(b);

c:=a*b;

writeln(‘hasil perkaliannya ‘,c);

end;

var

x:integer;

begin

write(‘pilih yang mana? ‘);

write(‘1=penjumlahan’);

write(‘2=pengurangan’);

write(‘3=perkalian’);

readln(x);

if x=1 then

begin

penjumlahan;

end else;

if x=2 then

begin

pengurangan;

end else;

if x=3 then

begin

perkalian;

end;

end.

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.

nglanjut tgs lagi...

Program nilai;
uses wincrt;
var
nilai :integer ;
begin
write (‘nilai: ‘);
readln (nilai);
case nilai of
0..49 :write (‘E’);
50..59 :write (‘D’);
60..74 :write (‘C’);
75..84 :write (‘B’);
85..100 :write (‘A’);
end;
end.
Program function_pangkat;
uses wincrt;
var
n,x:integer;
function pangkat(M:integer):longint;
begin
if (M=0) then
pangkat:=1
else
pangkat:=n*pangkat(M-1);
end;
begin
writeln(‘Perpangkatan’);
write(‘Masukkan angka: ‘);readln(n);
write(‘Masukkan pangkat: ‘);readln(x);
writeln(n,’^',x,’=',pangkat(x));
readln;
end.
Program rekursi;
Uses wincrt;
procedure rekursi(A:integer);
begin
if a<10 then
begin
write(‘pascal ‘);
A:=A+1;
rekursi(a);
end;
end;
var
x:integer;
begin
x:=1;
rekursi(x);
readln;
end.
PROGRAM rata_rata;
 
uses wincrt;
 
var
x : array[1..20] of integer;
tot, i, n : integer;
mean:real;
c:char;
Begin
repeat;
clrscr;
Writeln(‘program rata-rata’);
write(‘Masukkan Jumlah data : ‘);
readln(n);
writeln;
writeln;
tot:=0;
for i:=1 to n do
begin
write(‘Masukkan data ke-’,i,’ ‘, ‘Anda : ‘); readln(x[i]);
tot:=tot + x[i];
 
 
end;
writeln;
mean:=tot/n;
write(‘Dan Hasil Perhitungan Meannya : ‘);
(*writeln(i,’+',x[i]);*)
Writeln(mean:8:3);
write(‘Apakah Ingin Mengulang (Y/T) :’);
readln(c);
until c=’T';
end.
program gaji;
uses wincrt;
var
nama:string;
gol:integer;
js,ji:integer;
ja:integer;
mk,ts,ta,g:real;
gp,tk:longint;
lagi:char;
begin
repeat
begin
clrscr;
Write(‘Nama’,’ : ‘);
readln(nama);
write(‘Golongan’,’ : ‘);
readln(gol);
write(‘Masa Kerja (tahun)’,': ‘);
readln(mk);
write(‘Jumlah istri’,’ : ‘);
readln(js);
write(‘Jumlah Anak’,’ : ‘);
readln(ja);
if gol=1 then
gp:=1500000;
if gol=2 then
gp:=1750000;
if gol=3 then
gp:=2000000;
if gol=4 then
gp:=2300000;
if gol=5 then
gp:=3800000;
if js>0 then
ji:=1
else ji:=0;
ts:=((15*ji/100)*gp);
if ja>3 then
ja:=3;if (mk<5) then
tk:=0;
ta:=ja*(0.1)*gp;
if (mk<5) then
tk:=0;
if (mk>=5) then
tk:=1000000;
if (mk>=10) then
tk:=1500000;
if (mk>=15) then
tk:=2000000;
 
g:=gp+ts+ta+tk;
writeln(‘Gaji’,’ : Rp ‘,g:0:0);
writeln;
writeln;
write(‘hitung lagi (Y/T)?’);
readln(lagi);
end;
until lagi=’t';
end.
program jumlah_deret;
uses wincrt;
var
Un,n,Sn,i:integer;
r:real;
begin
write(‘banyaknya suku : ‘);readln(N);
while ibegin
Un:=Un+1;
writeln(Un);
Sn:=Sn+Un;
i:=i+1;
end;
writeln(”);
writeln(‘jumlah sampai dengan ‘,n,’ suku adalah ‘,Sn);
r:=Sn / n;
writeln(‘maka reratanya adalah ‘,r:2:1);
end.
Program genap;
uses wincrt;
var
a,b:integer;
begin
write(‘masukan angka: ‘);
read(a);
b:=a mod 2;
if b=1 then
write(‘bilangan tersebut termasuk bilangan ganjil’)
else
if b=0 then
write(‘bilangan tersebut termasuk bilangan genap’)
else
write(‘tidak terdefinisi’);
end.
program loop3;
uses wincrt;
var
n,i:integer;
fac:real;
begin
clrscr;
write(‘masukkan nilai n : ‘);
readln(n);
fac:= 1;
for i:= 1 to n do
Repeat
fac:=fac*i;
i:=i+1;
Until i>n;
writeln(‘Nilai dari n! = ‘, fac:4:2);
end.
program Volum_Limas_Segi_Empat;
uses wincrt;
var s,t,V:real;
begin
write(‘Panjang Sisi alas=’);
readln(s);
write(‘Tinggi Limas=’);
readln(t);
V:=1/3*s*s*t;
writeln(‘Volume Limas=’, V :2 :2);
end.
Program Gaji_Karyawan;
Uses Wincrt;
Var
Nama:string[25];
Gaji_Pokok:real;
Jumlah_Anak:longint;
Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real;
Begin
Write (‘Masukkan Nama Karyawan: ‘);readln (Nama);
Write (‘Masukkan Gaji Pokok=Rp ‘);readln (Gaji_Pokok);
Write (‘Masukkan Jumlah anak= ‘);readln (Jumlah_Anak);
Tunjangan_Istri:=0.15*Gaji_Pokok;
Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok;
Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak;
Pajak:=0.15*Gaji_Keseluruhan;
Gaji_Akhir:=Gaji_Keseluruhan-Pajak;
Writeln (‘Tunjangan Istri =Rp ‘,(Tunjangan_Istri):15:2);
Writeln (‘Tunjangan anak =Rp ‘,(Tunjangan_Anak):15:2);
Writeln (‘Gaji Keseluruhan =Rp ‘,(Gaji_Keseluruhan):15:2);
Writeln (‘Pajak =Rp ‘,(Pajak):15:2);
Writeln (‘Gaji Akhir =Rp ‘,(Gaji_Akhir):15:2);
End.

Lanjutan Tugas lagi

MENCARI KOORDINAT TITIK TENGAH
Program Koordinat_Titik_Tengah;
Uses Wincrt;
Var
x1,y1,x2,y2,x,y:real;
Begin
Write (‘Masukkan nilai x1: ‘);readln (x1);
Write (‘Masukkan nilai y1: ‘);readln (y1);
Write (‘Masukkan nilai x2: ‘);readln (x2);
Write (‘Masukkan nilai y2: ‘);readln (y2);
x:=(1/2)*(x1+x2);
y:=(1/2)*(y1+y2);
Writeln (‘(x,y)= ‘,(‘(‘),(x):5:2,(‘,’),(y):5:2,(‘)’));
End.
KONVERENSI WAKTU
Program Konversi_Jam_ke_Detik;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
End;
Var
J:Jam;
Total_Detik:longint;
Begin
Write (‘Jam = ‘);readln (J.hh);
Write (‘Menit= ‘);readln (J.mm);
Write (‘Detik= ‘);readln (J.ss);
Total_Detik:=(J.hh*3600)+(J.mm*60)+J.ss;
Writeln (‘Waktu dalam detik adalah ‘,Total_Detik);
End.
Program Konversi_Detik_ke_Jam;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
end;
Var
J:Jam;
Total_Detik:longint;
Begin
Write (‘Total Detik= ‘);readln (Total_Detik);
J.hh:=Total_detik div 3600;
J.mm:=(Total_detik mod 3600) div 60;
J.ss:=(Total_detik mod 3600) mod 60;
Writeln (‘Waktu dalam Jam adalah ‘,J.hh,(‘ jam ‘),J.mm,(‘ menit ‘),J.ss,(‘ detik’));
End.
Program Menu_Makan_Hari_Ini;
Uses Wincrt;
Var
a:integer;
Begin
Gotoxy (28,3); Writeln (‘Menu Makan Hari Ini’);
Gotoxy (25,4); Writeln (‘=========================’);
Gotoxy (25,6); Writeln (‘1. Nasi goreng’);
Gotoxy (25,7); Writeln (‘2. Nasi ayam bakar’);
Gotoxy (25,8); Writeln (‘3. Nasi penyet tempe’);
Gotoxy (25,9); Writeln (‘4. Nasi Gudeg’);
Gotoxy (25,10); Writeln (‘5. Nasi liwet’);
Gotoxy (25,11); Writeln (‘6. Nasi Rames’);
Gotoxy (25,13); Write (‘Masukkan Pilihan Anda: ‘);readln (a);
Clrscr;
Gotoxy (20,7);
Case a of
1: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi goreng.’);
Gotoxy (20,8); Writeln (’silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
2: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi ayam bakar.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
3: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi penyet tempe.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
4: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi Gudeg.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
5: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi liwet.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
6: Begin
Writeln (‘Menu yang Anda pilih adalah Nasi Rames.’);
Gotoxy (20,8); Writeln (‘ silahkan selamat mencoba dan jangan lupa bayar ya.’);
End;
else Writeln (‘Pilihan Anda Salah’);
End;
End.
DERET BILANGAN
Program Penjumlahan_Deret_Bilangan_1_sd_12;
Uses Wincrt;
Var
n,k,jumlah:integer;
Begin
n:=12;
jumlah:=0;
k:=1;
Repeat
Write (k,’ + ‘);
jumlah:=jumlah+k;
k:=k+1;
Until k>n;
Writeln (‘=’,jumlah);
End.
DERET BILANGAN LAGI J
Program Penjumlahan_Deret_Bilangan_Bulat;
Uses Wincrt;
Var
bilangan_awal,bilangan_akhir,bilangan_setelah_awal,bilangan_penolong1,bilangan_penolong2:longint;
jumlah1,jumlah2,jumlah_akhir:longint;
Begin
Write (‘Masukkan bilangan awal yang diinginkan = ‘); readln (bilangan_awal);
Write (‘Masukkan bilangan akhir yang diinginkan = ‘); readln (bilangan_akhir);
If bilangan_akhir=bilangan_awal then write (bilangan_awal)
else begin
jumlah_akhir:=0;
jumlah1:=0;
jumlah2:=0;
bilangan_setelah_awal:=bilangan_awal+1;
bilangan_penolong1:=0;
bilangan_penolong2:=0;
Write (bilangan_awal);
Repeat
jumlah2:=jumlah2+bilangan_penolong2;
bilangan_penolong2:=bilangan_penolong2+1;
Until bilangan_penolong2>=bilangan_awal;
Repeat
jumlah1:=jumlah1+bilangan_penolong1;
bilangan_penolong1:=bilangan_penolong1+1;
Until bilangan_penolong1>bilangan_akhir;
Repeat
Write (‘ + ‘,bilangan_setelah_awal);
bilangan_setelah_awal:=bilangan_setelah_awal+1;
jumlah_akhir:=jumlah1-jumlah2;
Until bilangan_setelah_awal>bilangan_akhir;
Write (‘ = ‘,jumlah_akhir);
end
End.
DERET BILANGAN SAMPAI KE N
Program Penjumlahan_Deret_Bilangan_Bulat_1_Sampai_n;
Uses Wincrt;
Var
bilangan_akhir,bilangan_awal,jumlah:longint;
Begin
bilangan_awal:=1;
jumlah:=0;
Write (‘Masukkan bilangan akhir yang diinginkan = ‘); readln (bilangan_akhir);
Repeat
Write (bilangan_awal);
If bilangan_awalbilangan_akhir;
Write (‘ = ‘,jumlah);
End.

Tugas Prokom

Blog ini dibuat berkaitan dengan pengumpulan tugas prokom I yakni program pascal....
Blog ini dibuat oleh Rosina Retno Setyaningrum/4101408047 dan Manis Rahayu/4101408141
hohoho
Semoga bermanfaat,,,,,,

tugas lagi ah

program array_02;
uses wincrt;
var nim:array[1..20] of string[10];
no:array[1..20] of integer;
nama:array[1..20] of string[25];
nilai:array[1..20] of integer;
i,n:integer;
begin
write('masukkan data yang diperlukan =' );read(n);
clrscr;
for i:=1 to n do
begin
write('NO = ');readln(no[i]);
write('NIM = '); readln(nim[i]);
write('NAMA = '); readln(nama[i]);
write('NILAI = '); readln(nilai[i]);
clrscr;
end;
gotoxy(25,1);write('DAFTAR NILAI MAHASISWA');
gotoxy(30,2);writeln('SEMESTER III');
writeln;
writeln('===============================================================');
writeln('| NO | NIM | NAMA | NILAI |');
writeln('===============================================================');

for i:=1 to n do
begin
writeln(no[i]:4,nim[i]:17,nama[i]:19,nilai[i]:21);
end;
readln;

end.