Scribd
Unggah
128 tayangan5 halaman

Klasifikasi Umur dalam Program Pascal

Dokumen tersebut berisi empat program Pascal yang menampilkan output berdasarkan input umur pengguna, menampilkan urutan angka, menampilkan urutan sesuai jumlah kolom, dan menampilkan angka sesuai baris. Keempat program menggunakan perulangan dan kondisi untuk memproses input dan menghasilkan output sesuai logika yang ditentukan.

Diunggah oleh

einjhi
Hak Cipta
© Attribution Non-Commercial (BY-NC)
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOC, PDF, TXT atau baca online di Scribd
128 tayangan5 halaman

Klasifikasi Umur dalam Program Pascal

Dokumen tersebut berisi empat program Pascal yang menampilkan output berdasarkan input umur pengguna, menampilkan urutan angka, menampilkan urutan sesuai jumlah kolom, dan menampilkan angka sesuai baris. Keempat program menggunakan perulangan dan kondisi untuk memproses input dan menghasilkan output sesuai logika yang ditentukan.

Diunggah oleh

einjhi
Hak Cipta
© Attribution Non-Commercial (BY-NC)
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOC, PDF, TXT atau baca online di Scribd

By Rony and Riska (^^)

1. Menampilkan umur anda


Flow chart :

Begin

Masukkan
umur anda

Klasifikasi
Y anda =
Umur < 40
Dewasa
Tua

Y Klasifikasi
Umur < 2
anda = bayi

Y Klasifikasi
Umur < 55 anda =
Orang Tua
Y Klasifikasi
Umur < 12 anda =
anak-anak

Klasifikasi
anda =
Lansia

Y Klasifikasi
Umur < 18 anda =
remaja

End

Klasifikasi
anda =
Umur < 24
Y Dewasa
muda

Klasifikasi
anda =
Umur < 24 Y Dewasa
muda
By Rony and Riska (^^)

Listing program :
Uses wincrt;
Var input:integer;
Begin
writeln('Nama : Rony Andrew');
writeln('NRP : 11-2004-180');
writeln('==================');
writeln(' ');
Write('Masukkan Umur anda = ');readln(input);
If input <2 then
Writeln('klasifikasi Anda = Bayi')
else If input <12 then
Writeln('klasifikasi Anda = Anak-anak')
else If input <18 then
Writeln('klasifikasi Anda = Remaja')
else If input <24 then
Writeln('klasifikasi Anda = Dewasa muda')
else If input <40 then
Writeln('klasifikasi Anda = Dewasa tua')
else If input <55 then
Writeln('klasifikasi Anda = Orang Tua')
Else
Writeln('klasifikasi Anda = Lansia');
Repeat until keypressed
End.

Output :
By Rony and Riska (^^)

2. Menampilkan urutan angka


Listing Program :
program kolom;
uses wincrt;
var
i,j,n:integer;

begin
writeln('Nama : Rony Andrew');
writeln('NRP : 11-2004-180');
writeln('==================');
writeln(' ');
write('Masukkan angka = ');readln(n);
for i:=1 to n do
begin
for j:=1 to n-1 do
write(j);
j:=j+1;
writeln(j);
end;
repeat until keypressed;
end.

Output :

3. Menampilkan urutan sesuai jumlah kolom


Listing program :
program baris;
uses wincrt;
var
i,j,k,n:integer;
begin
writeln('Nama : Rony Andrew');
writeln('NRP : 11-2004-180');
By Rony and Riska (^^)

writeln('==================');
writeln(' ');
write('Masukkan angka = ');readln(n);
for i:= 1 to n do
begin
if i=1 then
writeln(i)
else
begin
for k:=2 to i do
j:=1;
repeat
write(i);
inc(j);
until j=k;
writeln(i);
end;
end;
end.

Output :

4. Menampilkan angka sesuai baris


Listing Program :
program baris;
uses wincrt;
var
i,j,n:integer;
begin
writeln('Nama : Rony Andrew');
writeln('NRP : 11-2004-180');
writeln('==================');
By Rony and Riska (^^)

writeln(' ');
write('Masukkan angka = ');readln(n);
for i:= 1 to n do
begin
j:=1;
repeat
write(i);
j:=j+1;
until j=n;
writeln(i);
end;
end.

Output :

ANALISA :

Pada soal pertama, kita dapat menggunakan berbagai macam perintah


untuk merealisasikannya, misalnya “case of”, tetapi dalam kasus ini saya
menggunakan “ if else “.walaupun program jadi lebih panjang tetapi
mudah dimengerti bagi yang baru belajar pascal. Pada soal no 2, 3, 4, ,
semuanya menggunakan perintah looping yang intinya sama yaitu
perulangan logika hingga dicapai nilai tertentu, tetapi looping yang
digunakan berbeda-beda hanya sebagai variasi saja.

Anda mungkin juga menyukai