#include
void main (void)
{
char kode_jur;
printf("masukan kode jurusan anda :");
scanf("%c",&kode_jur);
switch(kode_jur)
{
case 'T':
printf("Teknik informatika");
break;
case 'S':
printf("Sistem informatika");
break;
case 'M':
printf("Manajemen informatika");
break;
default :
printf("kode yang anda masukan salah");
}
}
#include
void main (void)
{
int bil;
char huruf;
bil=2;
huruf='g';
printf("bilangan =%d\n",bil);
printf("huruf=%c",huruf);
}
#include
void main (void)
{
int bil;
char huruf;
char kalimat[15];
printf("huruf=");
scanf("%c",&huruf);
printf("bilangan=");
scanf("%d",&bil);
printf("kalimat=");
scanf("%s",&kalimat);
printf("bilangan =%d\n",bil);
printf("huruf=%c\n",huruf);
printf("kalimat=%s\n",kalimat);
}
inilah adalah program array dinamis dalam pascal Turbo
Program Array_Dinamis_Data_Penduduk;
uses wincrt;
type
pointer_pnddk = ^pnddk;
pnddk = record
nomor_ktp : longint;
nama : string;
umur : integer;
penghasilan : longint;
berikutnya : pointer_pnddk;
end;
var
penunjuk : pointer_pnddk;
penduduk : pointer_pnddk;
terus : char;
i : integer;
begin
penunjuk := nil;
writeln('Data Penduduk');
writeln('-------------');
writeln; i:=1;
repeat
writeln('No. ',i);
i:=i+1;
new(penduduk);
write('Nomor KTP : ' );
readln(penduduk^.nomor_ktp);
write('Nama : ' );
readln(penduduk^.nama);
write('Umur : ' );
readln(penduduk^.umur);
write('Penghasilan : ' );
readln(penduduk^.penghasilan);
penduduk^.berikutnya := penunjuk;
penunjuk := penduduk;
writeln;
write('Masih ada data lagi(y/t) ?');
readln(terus);
writeln;
until (terus = 't') OR (terus = 'T');
if penduduk^.penghasilan >= 1000000 then
begin
writeln;
writeln('Data Penduduk');
writeln('-------------');
writeln;
i:=1;
penduduk := penunjuk;
repeat writeln('No. ',i);
i:=i+1;
writeln('Nomor KTP : ' , penduduk^.nomor_ktp);
writeln('Nama : ' , penduduk^.nama);
writeln('Umur : ' , penduduk^.umur);
writeln('Penghasilan : ' , penduduk^.penghasilan);
writeln;
penduduk := penduduk^.berikutnya;
until penduduk = nil;
end;
end.
2. (program penilaian )
program membaca_sebuah_nilai;
uses wincrt;
var
nilai: real;
begin
write('masukan sebuah nilai :');readln(nilai);
if (nilai <60)then>60)then
begin
writeln(' lulus');
writeln('selamat atas keberhasilan anda :');
end;
end.
(contoh pembelian barang)
program pembelian_barang;
uses wincrt;
type
kasir = record
kode :string;
nama : string;
harga : longint;
banyak : integer;
end;
var
ksr :array[1..3] of kasir;
i :integer;
begin
writeln('input data pembelian barang');
writeln('...........................');
for i := 1 to 3 do
begin
writeln('NO ',',');
write('kode :');readln(ksr[i].kode);
write('nama :');readln(ksr[i].nama);
write('harga :');readln(ksr[i].harga);
write('banyak:');readln(ksr[i].banyak);
writeln;
end;
writeln('data pemebelian barang');
writeln('......................');
for i := 1 to 3 do
begin
writeln('kode :',ksr[i].kode);
writeln('nama :',ksr[i].nama);
writeln('harga :',ksr[i].harga);
writeln('banyak :',ksr[i].banyak);
writeln;
end;
end.
(berikut adalah perulangan dalam pascal turbo dimana perulangan tersebut mengentri data 1 sampai 10 jika dalam pengentrian datanya lebih dari 10 maka data tersebut akan trus berulang tapi jika mengentri datanya di bawah 10 maka datanya akan selesai berikut contohnya)
program membaca_sebuah_nilai;
uses wincrt;
var
bilangan :integer;
begin
writeln('menentukan bilangan antara 0 sampai dnegan 10 ');
write('bilangan =');readln(bilangan);
while bilangan >10 do
begin
('masukan bilangan salah');
write('bilangan =');readln(bilangan);
end;
end.
2. program array
program coba_aray;
uses wincrt;
var
matrik : array [1..3] of integer;
begin
matrik[1] :=2;
matrik[2] :=5;
matrik[3] :=9;
writeln('array 3 elemen');
writeln('..............');
writeln('matrik(1):=; matrik(1)');
writeln('matrik(2):=; matrik(2)');
writeln('matrik(3):=; matrik(3)');
end.
program simpan_data;
uses wincrt;
type
mahasiswa= record
nim:longint;
nama : string;
prodi : string;
jenjang: string;
end;
var
fmahasiswa: file of mahasiswa;
mhs : mahasiswa;
begin
assign(fmahasiswa,'d:\data_mahasiswa.date');
rewrite(fmahasiswa);
writeln('data nama mahaiswa');
writeln('.....................');
write('nim :');readln(mhs.nim);
write('nama :');readln(mhs.nama);
write('prodi :');readln(mhs.prodi);
write('jenjang :');readln(mhs.jenjang); write(fmahasiswa,mhs);
close(fmahasiswa);
end.
program tambah_data;
uses wincrt;
type
mahasiswa= record
nim : longint;
nama : string;
prodi : string;
jenjang : string;
end;
var
fmahasiswa: file of mahasiswa;
mhs :mahasiswa;
jum_data :integer;
begin
assign(fmahasiswa,'d:\data_mahasiswa.date');
reset(fmahasiswa);
jum_data:=filesize(fmahasiswa);
seek(fmahasiswa,jum_data);
writeln('data nama mahaiswa');
writeln('.....................');
write('nim :');readln(mhs.nim);
write('nama :');readln(mhs.nama);
write('prodi :');readln(mhs.prodi);
write('jenjang :');readln(mhs.jenjang);
write(fmahasiswa,mhs);
close(fmahasiswa);
end.
SELAMAT MENCOBA SEMOGA BERMAMFAAT
Tidak ada komentar:
Posting Komentar