Langkah-langkahnya :
Aktifkan turbo pascal, buka file baru dari pulldown menu file new.Kemudian ketik baris program. Selanjutnya simpan file anda (klik pulldown menu file save). Kemudian ketik nama program anda (misalnya : program 1), kemudian klik Oke. Untuk menjalankannya Ctrl + F9.
Uses Crt;
Var
Nama, alamat : String;
Gaji, JumlahAnak : Longint;
Begin
Clrscr;
Writeln (‘_ _ _ _ _ _ _’);
Write (‘Nama :’); Readln (Nama);
Write (‘Alamat :’); Readln (Alamat);
Write (‘JumlahAnak :’); Readln (Jumlah Anak);
Write (‘Penghasilan :’); Readln (Gaji);
Writeln (‘_ _ _ _ _ _ _ ‘);
Clrscr:
Writeln (‘_ _ _ _ _ _ _’);
Writeln (‘Data Karyawan’);
Writeln (‘_ _ _ _ _ _ _’);
Writeln (‘Nama : ‘ , Nama);
Writeln (‘Alamat : ‘ , Alamat);
Writeln (‘JumlahAnak : ‘ , JumlahAnak);
Writeln (‘Penghasilan : ‘ , Gaji);
Writeln (‘_ _ _ _ _ _ _’);
Writeln;
Readln;
End.
selamat mencoba..........^-^
Tidak ada komentar:
Posting Komentar