Membuat Pascal Sederhana
Program Sederhana
uses crt wincrt;
const praktek='belajar pemograman pascal';
var nama asal_kota,kota_skrg:string;
umur:byte;
begin
writeln('<<---:program sederhana pascal:--->>');
writeln('---------------------------');
writeln('siapa nama anda?');readln(nama);
write(dikota mana anda lahir?');readln(asal_kota);
write('dikota mana anda tinggal sekarang? : ');readln(kota_skrg);
write('berapa umur anda sekarang? :');readln (umur);
writeln('======================--');
writelen('nama anda',nama);
writeln('anda lahir dikota',asal_kota);
writelen('anda sekarang tinggal di kota',kota_skrg);
writeln('umur anda',umur,'tahun');
writeln('anda sedang praktek');
end.
uses crt wincrt;
const praktek='belajar pemograman pascal';
var nama asal_kota,kota_skrg:string;
umur:byte;
begin
writeln('<<---:program sederhana pascal:--->>');
writeln('---------------------------');
writeln('siapa nama anda?');readln(nama);
write(dikota mana anda lahir?');readln(asal_kota);
write('dikota mana anda tinggal sekarang? : ');readln(kota_skrg);
write('berapa umur anda sekarang? :');readln (umur);
writeln('======================--');
writelen('nama anda',nama);
writeln('anda lahir dikota',asal_kota);
writelen('anda sekarang tinggal di kota',kota_skrg);
writeln('umur anda',umur,'tahun');
writeln('anda sedang praktek');
end.
Komentar
Posting Komentar