TP 2 ALPRO : Bentuk flowchart, program biodata diri, program luas dan keliling lingkaran.

Tugas Pendahuluan 2.

PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN

OLEH

LUH PUTU SUCI VANDASARI

F1A113054

KELAS A

JURUSAN MATEMATIKA

PROGRAM STUDI MATEMATIKA

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS HALU OLEO

2014

 SOAL.

1.      Cari macam-macam bentuk flowchart serta maknanya.

2.      Buat program biodata diri dengan menginput biodatanya.

3.      Buat program untuk menghitung luas dan keliling lingkaran.

PENYELESAIAN.

1.      Macam-macam bentuk flowchart dan maknanya dapat dilihat pada tabel berikut ini.

2.      Berikut ini program biodata diri dengan menggunakan Turbo Pascal 7.0 .

uses crt;

var

nmlkp,nmpgl,alamat,agama,tmptlhr,blnlhr,fkultas,nmsma,nmuniv,cita2,jrsn,pgstd: string[40];

tglhr, thnlhr : integer;

nim,nohp,fb,minuman,song,singer,hobby : string[40];

begin

textbackground(0);

textcolor(yellow);

clrscr;

writeln('                   PENGISIAN BIODATA DIRI             ');

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

writeln;

writeln('Silahkan Mengisi Biodata Diri Anda.');

writeln;

write('Nama Lengkap           : '); readln(nmlkp);

write('Nama Panggilan         : '); readln(nmpgl);

write('Tempat Lahir           : '); readln(tmptlhr);

write('Tanggal Lahir          : '); readln(tglhr);

write('Bulan Lahir            : '); readln(blnlhr);

write('Tahun Lahir            : '); readln(thnlhr);

write('Agama                  : '); readln(agama);

write('Alamat Lengkap         : '); readln(alamat);

write('Nama SMA               : '); readln(nmsma);

write('Nama Universitas       : '); readln(nmuniv);

write('NIM                    : '); readln(nim);

write('Jurusan                : '); readln(jrsn);

write('Program Studi          : '); readln(pgstd);

write('Fakultas               : '); readln(fkultas);

write('Hobby                  : '); readln(hobby);

write('Cita-Cita              : '); readln(cita2);

write('Nama Facebook          : '); readln(fb);

write('Penyanyi Favorit       : '); readln(singer);

write('Lagu Favorit           : '); readln(song);

write('No HP                  : '); readln(nohp);

writeln;

textbackground(1);

textcolor(15);

clrscr;

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

writeln('                     BIODATA DIRI             ');

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

writeln;

writeln('Nama Lengkap           : ', nmlkp);

writeln('Nama Panggilan         : ', nmpgl);

write('Tempat,Tanggal Lahir   : ', tmptlhr);

write(',  ', tglhr);

write(' ', blnlhr);

writeln(' ', thnlhr);

writeln('Agama                  : ', agama);

writeln('Alamat Lengkap         : ', alamat);

writeln('Nama SMA               : ', nmsma);

writeln('Nama Universitas       : ', nmuniv);

writeln('NIM                    : ', nim);

writeln('Jurusan                : ', jrsn);

writeln('Program Studi          : ', pgstd);

writeln('Fakultas               : ', fkultas);

writeln('Hobby                  : ', hobby);

writeln('Cita-Cita              : ', cita2);

writeln('Nama Facebook          : ', fb);

writeln('Penyanyi Favorit       : ', singer);

writeln('Lagu Favorit           : ', song);

writeln('No HP                  : ', nohp);

writeln;

writeln('Demikian Biodata Diri Saya. Terima Kasih.');

readkey;

end.

 

Setelah mengklik RUN, berikut tampilannya :

3.      Berikut ini program untuk menghitung luas dan keliling lingkaran.

uses crt;

const pi=3.14;

var r,K,L : real;

begin

textbackground(1);

clrscr;

textcolor(14);

writeln('>>>>>>>>>>> MENGHITUNG KELILING DAN LUAS LINGKARAN <<<<<<<<');

writeln;

writeln('Masukkan Jari-Jari Lingkaran');

write('Jari-jari = '); readln(r);

K:=pi*2*r;

L:=pi*sqr(r);

writeln('Sehingga, Keliling dan Luas Lingkarannya Adalah : ');

writeln('Keliling Lingkaran = ',K:5:2);

writeln('Luas Lingkaran     = ',L:5:2);

writeln;

writeln('>>>>>>>>>TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI<<<<<<<<<');

writeln;

writeln('                                          Nama    : Luh Putu Suci Vandasari');

writeln('                                          Stambuk : F1A113054');

readkey;

end.

Setelah di RUN, maka akan muncul tampilan sebagai berikut.