Algoritma Dan Pemrograman II - 31/01/19

Published by abas.id Kamis, 31 Januari 2019

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 :