Penggunaan Record

  • Uploaded by: Antonio Grafiko
  • 0
  • 0
  • May 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Penggunaan Record as PDF for free.

More details

  • Words: 75
  • Pages: 2
Penggunaan record program DATA_Mahasiswa; uses wincrt; type Mahasiswa=record nama :string[20]; NPM :string[9]; JK

:string[1];

HP

:string[12];

Email :string[25]; end; arraym = array[1..100] of Mahasiswa; var n: 1..100; b : arraym; i:integer; begin writeln('Data Mahasiswa MIPA Matematika'); write('n data:'); readln(n); for i:=1 to n do begin write('nama:'); readln(b[i].nama);

write('NPM:'); readln(b[i].NPM); write('Jenis Kelamin:'); readln(b[i].JK); write('HP:'); readln(b[i].HP); write('Email:'); readln(b[i].Email); end; clrscr; writeln; writeln('****************************************************************************'); writeln('

Nama

NPM

JK

HP

Email');

writeln('****************************************************************************'); for i:=1 to n do writeln(b[i].nama:20,b[i].NPM:10,b[i].JK:3,b[i].HP:15,b[i].Email:25); writeln('****************************************************************************'); end.

Related Documents

Penggunaan Record
May 2020 21
Record
June 2020 17
Record
May 2020 11
Record
October 2019 18
Record
April 2020 17
Penggunaan Insulin.docx
November 2019 26

More Documents from "christina rina"

Laporan 1
May 2020 39
Laporan 6
May 2020 37
Daftar Riwayat Hidup
May 2020 40
Laporan Metnum Gw
May 2020 22
Surat2 Beasiswa
April 2020 20