Belajar Turbo Pascal !!!
Program tampilan;
USES WINCRT;
Begin
Writeln('saya sedang belajar pascal !')
writeln('di Lab komputer')
end.
*jika menggunakan Operasi Sistem selain Windows ganti USES WINCRT; menjadi USES CRT;
*perhatikan tanda ; (titik koma) . (titik) ' (satu tanda petik)
coba lagi nee .. .. ..
Program cetak;
USES WINCRT;
LABEL satu,akhir;
Begin
WRITELN('UNIVERSITAS');
GOTO satu;
WRITELN('MUHAMMADIYAH');
satu:
WRITELN('SEMARANG')
akhir:
readln;
end.
dicoba dulu yaaa !!!
USES WINCRT;
Begin
Writeln('saya sedang belajar pascal !')
writeln('di Lab komputer')
end.
*jika menggunakan Operasi Sistem selain Windows ganti USES WINCRT; menjadi USES CRT;
*perhatikan tanda ; (titik koma) . (titik) ' (satu tanda petik)
coba lagi nee .. .. ..
Program cetak;
USES WINCRT;
LABEL satu,akhir;
Begin
WRITELN('UNIVERSITAS');
GOTO satu;
WRITELN('MUHAMMADIYAH');
satu:
WRITELN('SEMARANG')
akhir:
readln;
end.
dicoba dulu yaaa !!!
Komentar
Posting Komentar