ARRAY
Suatu hari karena melihat kemajuan teknologi seorang guru ingin mengetahui bilangan prima yang ada pada bilangan antara 1 sampai dengan 200 tanpa harus menghitung manual,maka guru tersebut menyuruh anaknya yang seorang programmer untuk membuatkan program mencari bilangan prima antara 1 sampai 200, si programmer membuat program tersebut dengan turbo pascal,program tersebut dibuat dengan bagian dari pascal yaitu array, maka dibuatlah program tersebut :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Program Mencari_Bilangan_Prima_Dengan_Array;
Uses winCrt;
Var
Prima : Array[1..200] of Integer;
i,j : Integer;
bil : Integer;
Begin
ClrScr;
For i := 2 to 200 Do
Begin
Prima[i]:=i;
For j:= 2 to i-1 Do
Begin
bil := (i mod j); {* i dibagi j dicek apakah 0*}
If bil = 0 then Prima[i]:=0; {*jika habis dibagi,berarti bkn prima*}
End;
If Prima[i] 0 Then Write(Prima[i],' '); {*cetak array yg prima*}
End;
Readln;
End.
|
Program tersebut mencari bilangan prima cara kerja dari program tersebut adalah mengecek apakah bilangan yang ada dapat dibagi dan habis atau tidak,jika bilangan tersebut habis dibagi maka bukan bilangan prima,tapi jika tidak habis dibagi berarti prima,terus berulangan sampai dengan angka 200.
RECORD
Pada kasus ini ada seorang kasir sebuah penginapan membutuhkan sebuah program untuk merecord data seorang wisatawan yang akan menginap pada sebuah hotel.Record tentang nama,Jenis Kelamin,Alamat,Umur.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Uses wincrt;
Type
wisatawan = Record
Nama : string[30];
JenisKelamin : string[20];
Alamat : string[20];
Umur : real;
end;
Var
Wstw:Wisatawan;
Begin
ClrScr;
write ('Nama:');ReadLn(Wstw.Nama);
write ('Alamat:');Readln(Wstw.Alamat);
write ('Jenis Kelamin:');Readln(Wstw.JenisKelamin);
write ('Umur:');Readln(Wstw.Umur);
Writeln;
Writeln('Nama Anda:',Wstw.Nama);
Writeln('Alamat Anda:',Wstw.Alamat);
Writeln('Jenis Kelamin Anda:',Wstw.JenisKelamin);
Writeln('Umur Anda:',Wstw.Umur:0:0);
End.
|
Sumber nusinau.com
Tidak ada komentar:
Posting Komentar