Pemograman paskal termasuk jenis pemograman yang terbilang sederhana yang mengandalkan logika.
berikut ini contoh-contoh sederhana pemograman dengan bahasa paskal, compiler turbo paskal:
1. Program sederhana untuk Pembuatan data :
uses wicrt;
begin
writeln ('nama: ahid ');
writeln ('jabatan: manajer');
writeln ('alamat:Jln Patimura No.6');
writeln ('Status: Lajang');
writeln ('nama orangtua: Rahman');
WRITELN ('masa jabatan: 3thn');
end.
(Run/ctrl+F9)
dengan hasil akhir :
nama : ahid
jabatan : manajer
alamat : Jln. PatimuraNo.6
Status : Lajang
nama orangtua : Rahman
masa jabatan : 3thn
2. Pemograman dengan dua variabel
uses wincrt;
Var
Nama_Perusahaan: String;
Nama_Pimpinan: String;
Wakil_Pimpinan:String;
Pegawai_Perusahan:String;
begin
clrscr;
Nama_Perusahan:='PT Suka Maju';
Nama_Pimpinan:='Ir. Syarifudin';
wakil_Pimpinan:='Budiono';
Pegawai_Perusahaan:='Shanty';
clrscr;
Writeln('Nama_Perusahan:','PT Suka Maju');
Writeln('Nama_Pimpinan:',' Ir Syarifudiin');
Writeln('Wakil_Pimpinan:','Budiono');
Writeln('Pegawai_Perusahaan:','Shanty');
end.
(Run/ Ctrl+F9)
dengan hasil akhir:
Nama Perusahaan: PT Suka Maju
Nama Pimpnan: Ir. Syarifudin
Wakil Pimpinan: Budiono
Pegawai Perusahaan: Shanty
berikut ini contoh-contoh sederhana pemograman dengan bahasa paskal, compiler turbo paskal:
1. Program sederhana untuk Pembuatan data :
uses wicrt;
begin
writeln ('nama: ahid ');
writeln ('jabatan: manajer');
writeln ('alamat:Jln Patimura No.6');
writeln ('Status: Lajang');
writeln ('nama orangtua: Rahman');
WRITELN ('masa jabatan: 3thn');
end.
(Run/ctrl+F9)
dengan hasil akhir :
nama : ahid
jabatan : manajer
alamat : Jln. PatimuraNo.6
Status : Lajang
nama orangtua : Rahman
masa jabatan : 3thn
2. Pemograman dengan dua variabel
uses wincrt;
Var
Nama_Perusahaan: String;
Nama_Pimpinan: String;
Wakil_Pimpinan:String;
Pegawai_Perusahan:String;
begin
clrscr;
Nama_Perusahan:='PT Suka Maju';
Nama_Pimpinan:='Ir. Syarifudin';
wakil_Pimpinan:='Budiono';
Pegawai_Perusahaan:='Shanty';
clrscr;
Writeln('Nama_Perusahan:','PT Suka Maju');
Writeln('Nama_Pimpinan:',' Ir Syarifudiin');
Writeln('Wakil_Pimpinan:','Budiono');
Writeln('Pegawai_Perusahaan:','Shanty');
end.
(Run/ Ctrl+F9)
dengan hasil akhir:
Nama Perusahaan: PT Suka Maju
Nama Pimpnan: Ir. Syarifudin
Wakil Pimpinan: Budiono
Pegawai Perusahaan: Shanty
