|
Berikut adalah program untuk mencetak deretan angka 1,2,3 dst sampai batas angka yang diinginkan. Uses wincrt;var i,batas:integer;begin write('Masukkan Integer Positif,='); readln(batas); readln; donewincrt;end. Nb: Pakai Pengulangan For .. to .. do procedure segitiga;var alas, tinggi:real;begin writeln('Menghitung luas segitiga'); write('Berapa alas ='); readln( ); write('Berapa tinggi ='); readln(tinggi); writeln('Luas segitiga = ',Luas:2:2);end; Nilai >=60 uses wincrt;var nilai:integer;begin writeln('Kelulusan Mahasiswa mata kuliah Komputer'); write('Masukkan Nilai ='); readln(Nilai); if Nilai>=60 then writeln('LULUS') else writeln('TIDAK LULUS');end. Simbol untuk mulai (start) atau akhir (end) program ? Simbol untuk suatu pernyataan pilihan (optional) pada program ? Sub program ? Konektor, Simbol untuk memutus aktivitas karena keterbatasan media kertas ? Program bahasa pascal untuk menghentikan program dengan menekan enter, agar komputer tidak kepenuhan dan menjadi hang, yaitu ... readln donewincrt end. readln; donewincrt; end. readln; downwincrt; end. readln: donewincrt: end. readln; donewincr; end. |