- Tulis syntax seperti di bawah ini:
uses crt;
label menu;
var i,j,n,pil : integer;
kota : string;
procedure jalan_kanan;
begin
clrscr;
for i :=1 to 70 do
begin
clrscr;
gotoxy (i,1);
write(kota);
textcolor(7);
delay(50);
end;
end;
procedure jalan_kiri;
begin
clrscr; for i :=70 downto 1 do
begin
clrscr;
gotoxy (i,1);
write(kota);
textcolor(7);
delay(50);
end;
end;
procedure jalan_bawah;
begin
clrscr;
for i :=1 to 25 do
begin
clrscr;
gotoxy(70,i);
write(kota);
textcolor(7);
delay(50);
end;
end;
procedure jalan_atas;
begin
clrscr;
for i :=25 downto 1 do
begin
clrscr;
gotoxy(70,i);
write(kota);
textcolor(7);
delay(50);
end;
end;
procedure jalan_putar;
begin
clrscr;
for i :=1 to 70 do
begin
clrscr;
gotoxy (i,1);
write(kota);
textcolor(7);
delay(50);
end;
for i :=1 to 25 do
begin
clrscr;
gotoxy(70,i);
write(kota);
textcolor(7);
delay(50);
end;
for i :=70 downto 1 do
begin
clrscr;
gotoxy (i,25);
write(kota);
textcolor(7);
delay(50);
end;
for i :=25 downto 1 do
begin
clrscr;
gotoxy(1,i);
write(kota);
textcolor(7);
delay(50);
end;gotoxy(7,40);
end;
procedure input_kota;
begin
clrscr;
write(Masukan kota :); readln(kota);
clrscr;
end;
begin
clrscr;
menu:
textbackground(0);
clrscr;
gotoxy(1,1); writeln(===MENU===);
gotoxy(1,2); writeln(1. Animasi jalan Kanan);
gotoxy(1,3); writeln(2. Animasi jalan Bawah);
gotoxy(1,4); writeln(3. Animasi jalan Atas);
gotoxy(1,5); writeln(4. Animasi jalan Kiri);
gotoxy(1,6); writeln(5. Animasi jalan Putar);
gotoxy(1,7); writeln(6. Exit');
gotoxy(1,9); write(Masukan pilihan :);readln(pil);
case pil of
1: begin
clrscr;
gotoxy(1,1);input_kota;
jalan_kanan;
gotoxy(10,20); write(Animasi selesai);
readln;
goto menu;
end;
2:begin
clrscr;
gotoxy(1,1);input_kota;
jalan_bawah;
gotoxy(10,20);writeln(Animasi selesai);
readln;
goto menu;
end;
3: begin
clrscr;
gotoxy(1,1);input_kota;
jalan_atas;
gotoxy(10,20); writeln(Animasi selesa);
readln;
goto menu;
end;
4: begin
clrscr;
gotoxy(1,1);input_kota;
jalan_kiri;
gotoxy(10,20); writeln('Animasi selesai');
readln;
goto menu;
end;
5: begin
clrscr;
gotoxy(1,1);input_kota;
jalan_putar;
gotoxy(50,60); writeln('Animasi selesai');
readln;
goto menu;
end;
6: begin
clrscr;
gotoxy(10,40);writeln(Bye);
readln;
end;
else
begin
clrscr;
gotoxy(19,9);write(Pilihan Salah);
readln; goto menu;
end;
end;
clrscr;
readln;
end.
- Keterangan:
Ø uses crt; digunakan untuk memanggil fungsi-fungsi salah satunya clrscr; , gotoxy; dan lainnya.
Ø var a :string; b :Integer; digunakan untuk mendeklarasikan adanya variabel yaitu variable a dengan tipe data string dan variable b dengan tipe data integer.
Setiap variable di dalam program pascal harus dideklarasikan sebelum digunakan. Kata cadangan VAR digunakan sebagai judul di dalam bagian deklarasi variabel dan diikuti oleh satu atau lebih identifier yang dipisahkan koma, diikuti dengan titik dua dan tipe dari datanya serta diakhiri dengan koma.
Ø Begin - end bagian pernyataan merupakan bagian yang yang terakhir dari suatu blok. Bagianini diawali dengan kata cadangan BEGIN dan diakhiri dengan kata cadangan END. Bagian pernyataan ini menunjukkan suatu tindakan yang akan dikerjakan komputer. Tindakan yang dilakukan oleh program tergantung dari intruksi-intruksi yang diberikan. Pernyataan atau statement merupakan instruksi program. Pernyataan-pernyataan yang akan diberikan untuk dikerjakan komputer ditulis diantara kata cadangan BEGIN dan END. Akhir penulisan END diakhiri dengan titik.
Ø Deklarasi Label menggunakan statement GOTO untuk meloncat ke suatu statemen tertentu, maka dibutuhkan suatu label pada statemen yang dituju dan label tersebut harus dideklarasikan terlebih dahulu pada bagian deklarasi. Mendeklarasikan label diawali dengan kata cadangan LABEL diikuti oleh kumpulan identifier label dengan dipisahkan oleh koma dan diakhiri dengan titik koma.
Ø clrscr; digunakan untuk membersihkan layar dari tampilan-tampilan sebelumnya dan meletakkan kursor di posisi ujung kiri atas dari layar, tepatnya berada pada koordinat (1,1).
Ø Procedur read dan readln. Prosedur READ dan READLN mempunyai aturan tertentu untuk beberapa tipe pengenal variabel. Tiap-tiap data yang dimasukkan harus sesuai dengan tipe variabelnya. Read digunakan untuk pada modus berkas akan membaca tiap komponen dari file tersebut kesuatu variable dan pada modus text akan membaca satu atau lebih nilai dan menyimpannya ke dalam suatu atau lebih variable pula. Readln memiliki fungsi yang sama seperti Read hanya pada Readln akan memberikan karakter garis bawah. Pada waktu memasukkan data, maka dapat ditampilkan terlebih dahulu penjelasan tentang data yang akan dimasukkan. Untuk maksud ini sebelum READ dan READLN dapat digunakan prosedur WRITE terlebih dahulu untuk menampilkan penjelasan tentang data yang akan dimasukkan lewat prosedur READ dan READLN.
Ø Write atau writeln digunakan untuk menampilkan hasil. Perbedaannya adalah prosedur WRITE menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama. Sedangkan prosedur WRITELN digunakan untuk menampilkan tampilan per baris yang akan ganti baris untuk tampilan berikutnya. Untuk mengatur format tampilan dengan prosedur WRITE atau WRITELN dapat dipergunakan parameter-parameter tertentu yang menyebutkan panjang dari tampilannya.
Ø Prosedur GOTOXY digunakan untuk meletakkan cursor di posisi layar yang ditunjukkan oleh nilai XPOS dann YPOS. Nilai XPOS menunjukkan posisi sumbu X. Nilai YPOS menunjukkan posisi sumbu Y.
Ø Struktur perulangan FOR digunakan untuk mengulang suatu proses yang telah diketahui jumlah perulangannya. Dari segi penulisannya, struktur for tampaknya lebih efisien karena susunannya lebih simpel dan sederhana. Untuk perulangan dengan struktur “to” maka kontrol variable akan ditambahi 1 setiap perulangan.
- Outputnya
0 komentar:
Posting Komentar