dalam program ini saya akan memberikan contoh program record menggunakan pascal,,, record adalah program yang berfungsi untuk menyimpan data dan memproses data yang akhirnya akan di tampilkan sesuai dengan instruksi yang diberikan...
dalam contoh ini saya membuat program record untuk menampilkan nama mahasiswa berdasarkan NRP dari yang terendah sampai tertinggi.
berikut source codenya :
Program urut_nilai;
uses wincrt;
const Nmaks = 100;
type
Mahasiswa = record
nim : integer;
nama : string[20];
kode : string[10];
nilai: string[5];
end;
perkalian matriks (pascal)
berikut ini contoh untuk program perkalian matrik menggunakan pascal....
listing program:
Program kali_matriks;
uses wincrt;
type
matriksint = array [1..20,1..20] of integer;
var
M,a,b : matriksint; p , q: integer;
procedure bacamatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j: integer;
begin
for i:=1 to Nbar do
begin
for j:= 1 to Nkol do
begin
write ('M[',i,',',j,'] = ');readln (M[i,j]);
end;
end;
end;
listing program:
Program kali_matriks;
uses wincrt;
type
matriksint = array [1..20,1..20] of integer;
var
M,a,b : matriksint; p , q: integer;
procedure bacamatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j: integer;
begin
for i:=1 to Nbar do
begin
for j:= 1 to Nkol do
begin
write ('M[',i,',',j,'] = ');readln (M[i,j]);
end;
end;
end;
konversi angka ke bilangan
berikut ini adalah source program untuk mengkonversi dari inputan angka dan akan ditampilakan dalam bentuk tulisan, program ini menggunakan java..
berikut list programnya.....
package tugas2;
import java.util.Scanner;
public class konversi {
String[] angka={"","Satu","Dua","Tiga","Empat","Lima","Enam","Tujuh","Delapan","Sembilan","Sepuluh","Sebelas"};
private String sebut(int x){
String bilang="";
int y = x / 100;
if(y > 0){
bilang = angka[y]+" Ratus ";
if(y == 1)bilang="Seratus ";
x%=100;
}
if(x<12)bilang += angka[x];
else{
y=x/10;
x%=10;
if(y==1)
berikut list programnya.....
package tugas2;
import java.util.Scanner;
public class konversi {
String[] angka={"","Satu","Dua","Tiga","Empat","Lima","Enam","Tujuh","Delapan","Sembilan","Sepuluh","Sebelas"};
private String sebut(int x){
String bilang="";
int y = x / 100;
if(y > 0){
bilang = angka[y]+" Ratus ";
if(y == 1)bilang="Seratus ";
x%=100;
}
if(x<12)bilang += angka[x];
else{
y=x/10;
x%=10;
if(y==1)