ini adalah kumpulan program pascal sederhana
program hallo;
begin
writeln('Hallo, SELAMAT DATANG!!!');
write('Anda sedang menggunakan pascal');
readln;
end.
program penjumlahan ;
uses
crt;
begin
clrscr;
writeln('Penjumlahan dua bilangan');
write('6+4');
write('=');
write(6+4);
readln;
end.
program tulis_alamat;
begin
writeln('Teknik Informatika');
write('Fakultas Teknik');
writeln('Universitas Siliwangi');
writeln;
write('Jl. Siliwangi No. 24 Tasikmalaya');
readln;
end.
program bintang;
begin
writeln(' *');
writeln(' * * *');
writeln(' * * * * *');
writeln('* * * * * * *');
readln;
end.
program identitas_mhs;
begin
write('Nama : ');
writeln('nama anda');
write('NPM : ');
writeln('NPM anda');
write('Kelas : ');
writeln('kelas anda');
readln;
end.
program hitung;
uses
crt;
begin
clrscr;
writeln('***Program Hitung***');
writeln('====================');
write(' 120+12');
write('=');
writeln(120+12);
write(' 120-12');
write('=');
writeln(120-12);
write(' 120x12');
write('=');
writeln(120*12);
write(' 120/12');
write('=');
write(120/12:0:2);
readln;
end.
semoga bermanfaat.........
Tidak ada komentar:
Posting Komentar