Contoh Penggunaan Gotoxy Pada Pemrograman Pascal

dandriabas       ALGO    Comment   

Kali ini kita akan membahas penggunaan gotoxy dalam pemrograman pascal.

1. Algoritma

1. Mulai
2. Deklarasi variabel nama, nim, alamat, jenjang, jurusan, spp
3. Masukan nama
4. Masukan nim
5. Masukan alamat
6. Masukan jenjang
7. Masukan jurusan
8. Masukan spp
9. Tampilkan nama
10. Tampilkan alamat
11. Tampilkan nim
12. Tampilkan jenjang
13. Tampilkan jurusan
14. Tampilkan spp
15. End

2. Pseucode

1. Start
2. Declaration Variabel nama, nim, alamat, jenjang, jurusan, spp
3. Input nama
4. Input nim
5. Input alamat
6. Input jenjang
7. Input jurusan
8. Input spp
9. Display nama
10. Display nim
11. Display alamat
12. Display jenjang
13. Display jurusan
14. Display spp
15. End

3. Flowchart

4. Final Kode Pascal

Ketikan kode pascal berikut ini

Program Data_Mahasiswa;
Uses Crt;

Var
   nama, nim, alamat, jenjang, jurusan : String;
   spp : String;

   Begin
   Clrscr;
   Gotoxy(10,4); Write('Masukan Nama/Nim : '); readln(nama);
   Gotoxy(35,4); Write('/'); readln(nim);
   Gotoxy(10,5); Write('Alamat           : '); readln(alamat);
   Gotoxy(10,6); Write('Jenjang          : '); readln(jenjang);
   Gotoxy(35,6); Write('/'); readln(jurusan);
   Gotoxy(10,7); Write('SPP               :'); readln(spp);

   Gotoxy(10,9); Write('=================================');

   Gotoxy(10,10); Writeln('Nama      : ' ,nama);
   Gotoxy(10,11); Writeln('Nim       : ' ,nim);
   Gotoxy(10,12); Writeln('Alamat    : ' ,alamat);
   Gotoxy(10,13); Writeln('Jenjang   : ' ,jenjang);
   Gotoxy(10,14); Writeln('Jurusan   : ' ,jurusan);
   Gotoxy(10,15); Writeln('SPP       : ' ,spp);
   End.

Dan Hasilnya akan seperti gambar dibawah ini :