Tugas Uas Algoritma dan Pemograman II
Nama : Vasco A Rimbawan
Npm : 201455201017
5 Program Array pada
Pascal
1.
Program Nilai
Mahasiswa
uses wincrt;
var
Npm:array[1..20]of
string[10];
Nama:array[1..20]of
string[25];
Nilai:array[1..20]of
real;
Umur:array[1..20]
of byte;
banyak,i:integer;
begin
ClrScr;
write('Banyak
Mahasiswa = ');readln(banyak);
for i := 1 to
banyak do
begin
write('Npm = ');readln(Npm[i]);
write('Nama = ');readln(Nama[i]);
write('Nilai = ');readln(Nilai[i]);
write('Umur = ');readln(Umur[i]);
writeln;
end;
writeln('-----------------------------------------');
writeln('Npm Nama Nilai Umur
');
writeln('-----------------------------------------');
for i:= 1 to
banyak do
begin
write(Npm[i]);
gotoxy(14,5*banyak+4+i); write(Nama[i]); gotoxy(29,5*banyak+4+i);
write(Nilai[i]:3:2);
gotoxy(36,5*banyak+4+i); writeln(Umur[i]);
end;
writeln('-----------------------------------------');
end.
2.
Program Data
Mahasiswa
uses wincrt;
var
nama :array[1..10]of string[20];
NPM:array[1..10]of string[20];
alamat:array[1..20]of string[30];
i,j :integer;
begin
clrscr;
write('Masukkan Jumlah Data Mahasiswa
:'); readln(j);
for i:=1 to j do
begin
writeln('Data ke-',i);
write('Nama Mahasiswa :');
readln(nama[i]);
write('Masukkan NPM :'); readln(NPM[i]);
write('Alamat :'); readln(alamat[i]);
end;
clrscr;
writeln('************************************************************');
writeln('No. | Nama Mahasiswa | NPM | Alamat |');
writeln('************************************************************');
for i:= 1 to j do
begin
writeln(i:1, nama[i]:20, NPM[i]:25,
alamat[i]:25);
end;
writeln('************************************************************');
readln;
end.
3.
Program Mencari
Nilai Ke x
uses wincrt;
var
nilai:array[1..100]
of integer;
i,n,cari:integer;
begin
writeln('Program
mencari nilai ke x');
writeln;
write('Ada
berapa nilai = '); readln(n);
for i:=1 to n do
begin
write('Nilai ke-',i,' = '); readln(nilai[i]);
end;
writeln;
write('Nilai berapa yg ingin dicari = '); readln(cari);
writeln('Nilai
ke-',cari,' = ',nilai[cari]);
end.
4.
Program
Menampilkan Jenis lagu
Uses wincrt;
Const
max=5;
Type
Lagu=array[1..max]
of string[10];
Var
JnsLg :lagu;
i:integer;
begin
For i:=1 to max
do
JnsLg[1]:='POP';
JnsLg[2]:='KRONCONG';
JnsLg[3]:='ROCK';
JnsLg[4]:='JAZZ';
JnsLg[5]:='COUNTRY';
For i:=1 to max
do
writeln(i,'.
',JnsLg[i]);
end.
5.
Program Tentukan
Hari
Uses Wincrt;
const
Hari :
array[1..7] of string =
('senin','selasa','rabu','kamis','jumat','sabtu','minggu');
Var
noHari:integer;
begin
clrscr;
write('Masukan
nomor harinya : ');readln(noHAri);
write('Harinya
adalah ', hari[noHari]);
end.
5 Program Record
pada Pascal
1.
Program Data
Pelamar Kerja
uses wincrt;
type
Tdate = record
tgl : byte;
bulan : byte;
tahun : integer;
end;
Tbiodata = record
ktp : string;
nama : string;
tgl_lahir : Tdate;
alamat : string;
jk : string;
status : string;
agama : string;
end;
var
org : Tbiodata;
begin
writeln(' Data Pelamar kerja ');
writeln('========================');
write('KTP : '); readln(org.ktp);
write('Nama : '); readln(org.nama);
write('Tanggal Lahir : '); readln(org.tgl_lahir.tgl);
write('Bulan : '); readln(org.tgl_lahir.bulan);
write('Tahun : '); readln(org.tgl_lahir.tahun);
write('Alamat : '); readln(org.alamat);
write('Jenis Kelamin : '); readln(org.jk);
write('Status : '); readln(org.status);
write('Agama : '); readln(org.agama);
writeln;
clrscr;
writeln('Data Pelamar Kerja adalah sebagai
berikut : ');
writeln('KTP : ',org.ktp);
writeln('Nama : ',org.nama);
writeln('Tanggal Lahir :
',org.tgl_lahir.tgl,'-',org.tgl_lahir.bulan,'-',org.tgl_lahir.tahun);
writeln('Alamat : ',org.alamat);
writeln('Jenis Kelamin : ',org.jk);
writeln('Status : ',org.status);
writeln('Agama :
',org.Agama);
writeln;
writeln;
writeln('silahkan tekan tombol apapun
untuk menutup program...');
readkey;
end.
2.
Program Data
Mahasiswa
Uses wincrt;
Type
Mhs=Record
Nama:string[25];
NPM:string[8];
Kelas:string[5];
Nilai:integer;
End;
Var
Mahasiswa:Mhs;
Begin
Clrscr;
With Mahasiswa
Do
Begin
Write('Nama :
');Readln(Nama);
Write('NPM :
');Readln(NPM);
Write('Kelas :
');Readln(Kelas);
Write('Nilai :
');Readln(Nilai);
writeln;
Writeln('Nama :
',Nama);
Writeln('NPM :
',NPM);
Writeln('Kelas :
',Kelas);
Writeln('Nilai :
',Nilai);
Readln;
End;
End.
3.
Program Menginput
3 data Mahasiswa
uses wincrt;
type data=record
nama:string;
nilai:integer;
end;
var mhs : array
[1..3] of data;
n:byte;
begin
writeln('masukan
3 data mahasiswa');
for n:=1 to 3 do
begin
write('nama - ',n,':');readln(mhs[n].nama);
write('nilai - ',n,':');readln(mhs[n].nilai);
writeln;
end;
writeln('no','nama':10,'nilai':15);
for n:=1 to 3 do
begin
writeln
(n,mhs[n].nama:10,mhs[n].nilai:15);
end;
end.
4.
Program
Menginput Nilai Mahasiswa
uses wincrt;
type
tmhs = record
npm : string[10];
nama : string[20];
subject : string[20];
quiz : byte;
midtes : byte;
fintes : byte;
over : real;
end;
var
sis :
array[1..5] of tmhs;
i,j : integer;
begin
clrscr;
for i := 1 to 5
do
begin
write('NPM : '); readln(sis[i].npm);
write('Nama : '); readln(sis[i].nama);
write('Subject : ');
readln(sis[i].subject);
write('Nilai Quiz : ');
readln(sis[i].quiz);
write('Nilai Midtest : '); readln(sis[i].midtes);
write('Nilai Finaltes : ');
readln(sis[i].fintes);
begin
sis[i].over:=(sis[i].quiz*0.1)+(sis[i].midtes*0.4)+(sis[i].fintes*0.5);
end;
writeln;
end;
for j:=1 to 5 do
begin
with sis[j] do begin
writeln('NPM : ',npm);
writeln('Nama : ',nama);
writeln('Subject : ',subject);
writeln('Overall Value : ', over:5:2);
writeln;
end;
end;
readln;
end.
5.
Program
Menghitung keliling dan luas lingkaran
uses wincrt;
Type
Hasil = record
Jarijari : real;
Luas : real;
End;
Var
lingkaran:
Hasil;
Begin
Write
('jari-jari lingkaran ? ');readln (lingkaran.Jarijari);
Lingkaran.keliling
:=2 * Pi * lingkaran.Jarijari;
Lingkaran.luas
:= Pi * sqr (lingkaran.Jarijari);
Writeln;
Writeln
('keliling lingkaran = ', lingkaran.keliling:7:2);
Writeln ('luas
lingkaran = ', lingkaran.luas :7:2);
End.
Hmmmmm.... Uda bagus tpi kurang gambar.coba deh di tambah sedikt gmbr (:
BalasHapusok bapak aku ngerti
BalasHapus