KERINDUAN KU

Aku taK pernah melangkah menjauh daRi mu
Dalam fikir ku tak pernah terlintas
tuk meninggalkanmu
Dalm benak ku Selalu mencintai mu
Walaupun kau tak tau itu

Rasa RinDu ini yang tersangkar dalam hati
RinDu yang taK pernah tersampaikan
Tapi ku selalu menantimu dengan
senyuman...

program balik_kalimat_perkata;

uses wincrt;

const elemen = 255;

type s255 = string[elemen];

tumpukan = record

isi:s255;

atas: 0..elemen;

end;

var t: tumpukan;

i, k, l, m: integer;

kalimat, word: s255;

procedure awalan(var t: tumpukan);

begin

t.atas:=0;

end;

procedure push (var t:tumpukan; x: char);

begin

t.atas:=t.atas+1;

t.isi[t.atas]:= x;

end;

function pop(var t:tumpukan):char;

begin

pop:=t.isi[t.atas];

t.atas:=t.atas-1;

end;

begin

clrscr;

awalan(t);

writeln('Tumpukan untuk membalik kalimat');

writeln('*******************************');

writeln;

write('ketik kalimat: '); readln(kalimat);

clrscr;

writeln('kalimat asli: ',kalimat);

writeln;

writeln('setelah operasi push dan pop');

for i:=1 to length(kalimat) do

begin

if (kalimat[i]=' ') then

begin

for k:=(i-1) downto l do

word:=word+kalimat[k];

word:=word+kalimat[i];

end;

l:=length(word);

if i=length(kalimat) then

begin

for i:=length(kalimat) downto l do

word:=word+kalimat[i];

end;

end;

for i := 1 to (length(kalimat) + 1) do

push(t, word [i]);

for i := 1 to (length(kalimat) + 1) do

write (pop (t) );

readln;

end.

Program Bilangan_Prima;
Uses wincrt;
Var
i,j,m,n, batas,jml: integer;
prima: boolean;
prim:array[1..100] of integer;
Begin
write('bilangan prima sampai suku ke: '); readln(n);
writeln('sebagai berikut: ');
i:=3;
prim[1]:=2;
prim[2]:=3;
m:=2;
Repeat
i:=i+1;
batas:=round(sqrt(i))+1;
prima:=true;
For j:= 2 to batas do
if i mod j = 0 then
prima:=false;
if prima = true then
Begin
m:=m+1;
prim[m]:=i;
end;
until m=n;
For i:=1 to n do
Begin
write(prim[i], ' ');
jml:=jml+prim[i];
end;
writeln;
writeln('jumlah bil prima: ',jml);
readln;
end.

uses wincrt;
type biodata = record
alamat : string;
nama : string;
ttl:string;
nim : string;
end;
var
data:biodata;
n,i: integer;
begin
writeln ('Inputkan Jumlah data Mahasiswa');readln(n);
for i:=1 to n do
begin
writeln ('Data ke - ',i,':');
write ('NIM : '); readln(data.nim);
write ('Nama : '); readln(data.nama);
write ('Alamat : '); readln(data.alamat);
write ('TTL : '); readln(data.ttl);
writeln;
end;
end.

uses wincrt;
const awal =1;
const akhir =5;

var
nim,nama :array [awal..akhir] of string;
nilai :array [awal..akhir] of string;
n,i :integer;
jumlah,rataan : real;
begin
write ('banyak nya data mahasiswa =');
readln(n) ;
for n :=1 to 3 do
begin
write('nim',n,':');readln(nim[n]);
write('nama',n,':');readln(nama[n]);
for i:=1 to 3 do
begin
write('nilai ke',n,'=');readln(nilai[i]);
writeln;
end;
end;
writeln;
writeln('hasil dari inputan adalah =');
writeln('=====================');
writeln('nim nama nilai1 nilai 2 nilai 3 rata-rata');
writeln('=====================');
for i:= i to 3 do
begin
writeln(nim [n],' ', nama[n],' ',nilai[1],' ',nilai[2],' ',nilai[3]);
writeln;
end;
end.

uses wincrt;
const
garis='------------------------------------------------------';
var nil1,nil2,nil3:array[1..10] of 0..100;
Nim:array[1..10] of string[8];
Nama:array[1..10] of string[15];
n,i,bar:integer;
jum:real;
tulis:char;
begin
clrscr;
write('Masukkan Banyak data:');readln(n);
for i:=1 to n do
begin
clrscr;
GotoXY(30,4+1);write('Data Ke-:',i:2);
GotoXY(10,5+i);write('NIM:');readln(nim[i]);
GotoXY(10,6+i);write('Nama:');readln(nama[i]);
GotoXY(10,7+i);write('Nilai 1:');readln(nil1[i]);
GotoXY(10,8+i);write('Nilai 2:');readln(nil2[i]);
GotoXY(10,9+i);write('Nilai 3:');readln(nil3[i]);
end;
clrscr;
GotoXY(5,4);write(garis);
GotoXY(5,5);write('No');
GotoXY(9,5);write('NIM');
GotoXY(18,5);write('Nama');
GotoXY(34,5);write('Nilai 1');
GotoXY(41,5);write('Nilai 2');
GotoXY(47,5);write('Nilai 3');
GotoXY(54,5);write('Rata');
GotoXY(61,5);write('Abjad');
GotoXY(5,6);write(Garis);
bar:=7;
for i:=1 to n do
begin
jum:=(nil1[i]+nil2[i]+nil3[i]/3);
if jum>=90 then tulis:='A' else
if jum>80 then tulis:='B' else
if jum>60 then tulis:='C' else
if jum<50 then tulis:='D' else tulis:='E';
GotoXY(5,bar);writeln(i:2);
GotoXY(9,bar);writeln(NIM[i]);
GotoXY(18,bar);writeln(Nama[i]);
GotoXY(34,bar);writeln(nil1[i]:4);
GotoXY(41,bar);writeln(nil2[i]:4);
GotoXY(47,bar);writeln(nil3[i]:4);
GotoXY(54,bar);writeln(jum:5:1);
GotoXY(61,bar);writeln(tulis);
bar:=bar+1;
end;
GotoXY(5,bar+1);writeln(garis);
readln;
end.

uses wincrt;

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

jm,rata :real;

i : integer;

begin

writeln

for i:=1 to 3 do

begin

clrscr;

write (‘masukan data ke-1: ’);readln (nilai[1]);

write (‘masukan data ke-2:’) ;readln(nilai [2]);

write (‘masukan data ke-3:’); readln(nilai [3]);

jumlah := nilai[1]+nilai [2]+nilai [3] ;

rata := jumlah/3;

writeln;

writeln(‘jumlah nilai =’,jumlah 5:3’);

writeln(‘rata-rata nya =’,jumlah 5:3’);

readln;

end;

end.

OUTPUT

Masukan data ke-1 :50

Masukan data ke-2 :50

Masukan data ke-3:50

Jumlah nilai =150.00

Rata-ratanya =30.00