TUGAS LP SI PAGI

LP PAGI
1.Tuliskan bentuk umum perulangan pada pascal ?
2. Buatlah program sederhana pada perulangan pascal ?
Jawab
1.a) Struktur pengulangan FOR..TO..DO.. digunakan pada suatu kondisi dimana sebuah pernyataan akan dillakukan perulangan sebayak X kali tersantung statement yang akan ditentukan. sebagai contoh:
for a:= 1 to 5 do
write (‘MEGA SURYONO PUTRI ‘)
pada statement diatas maka akan terjadi pengulangan penulisan sebanyak 5 kali.
b) WHILE..DO.. digunakan pada kondisi dimana suatu pernyataan yang akan diulang belum tentu berapa kali terjadi pengulangan. pengulangan baru akan berakhir jika kondisi sudah terpenuhi.
while ( x > 0 ) do
x := x – 1
statement diatas akan terus terjadi pengulangan selama nilai x masih positif
c) REPEAT UNTIL : sama seperti WHILE DO hanya saja pengecekan kondisi dilakukan pada sat terakhir.
repeat
x := x – 1
until ( x = 100 )
d) IF THEN ELSE : digunakan untuk sebuah kondisi dimana suatu pernyataan akan di uji. jika kondisi terpenuha maka akan lanjut ke statement berikutnya tetapi jika tidak terpenuhi maka program akan jalan ke pernyataan linyya.
if lapar then
writeln (‘Silahkan makan’);
else
write (‘Mari’);
perbedaan WHILE DO dengan REPET UNTIL adalah terletak pada pengujian kondisi.
jika REPEAT UNTIL perintah dilakukan terlebih dahulu baru dilakukan pengujian.
sedangkan WHILE DO pengujian dilakukan diawal beru perintah dieksekusi.
perbaaan lainya yaitu REPEAT UNTIL mengulang pernyataan selama kondisi belum terpenihi sedang WHILE DO mangulang pernyataan selama kondisimasih terpenuhi
2.
Uses crt;
Var
Nilai : string;
begin
Writeln(‘Latihan Pascal 1: Perulangan dan Seleksi Kondisi’);
Writeln(‘————————————————’);
Writeln(‘Nama : ____________________’);
Writeln(‘NIM : __________’);
Writeln;
Write(‘Masukkan nilai mata kuliah DKP Anda (huruf) : ‘);
Readln(Nilai);
if Length(Nilai) > 2 then
Writeln(‘Nilai tidak mungkin lebih dari dua karakter !’);
else
begin
if Nilai = ‘A’ then
Writeln(‘Anda berbakat menjadi programer !’)
else if Nilai = ‘B+’ then
Writeln(‘Anda bisa menjadi programer handal.’)
else if Nilai = ‘B’ then
Writeln(‘Anda mampu menjadi programer.’)
else if Nilai = ‘C+’ then
Writeln(‘Anda cukup mampu menjadi programer.’)
else if Nilai = ‘C’ then
Writeln(‘Anda kurang tertarik pada pemrograman.’)
else if Nilai = ‘D+’ then
Writeln(‘Anda tidak suka pemrograman, ya !’)
else if Nilai = ‘D’ then
Writeln(‘Anda pasti benci lihat program !’)
else if Nilai = ‘E’ then
Writeln(‘Anda pasti nggak niat kuliah !’)
else
Writeln(‘Anda salah memasukkan nilai !’);
end;
Readln;
end.