Tutorial Program Pascal Part 1

Selamat datang di postingan ini "Tutorial Program Pascal" yang mungkin ada beberapa Part jadi disini saya akan share tutorial program Pascal Luas dan Keliling Lingkaran,Menentukan Bilangan Ganjil & Genap,Menentukan Bilangan Positif Negatif

Program Pascal Luas dan Keliling Lingkaran

Coding Program

program project1; uses CRT; var r,p,lbr:integer; l,k:real; procedure noa; begin clrscr; textcolor(yellow); writeln; writeln ('Menghitung Luas dan Keliling Lingkaran'); writeln ('------------Jefri Fernando-----------'); writeln; write ('Masukan Radius Lingkaran : '); readln(r); l:=0.5*3.14*r*r; k:=2*3.14*r; writeln; write ('Luas Lingkaran dengan raduis ',r);write(' adalah : ',l:0:2); writeln; write ('Keliling Lingkaran dengan raduis ',r);write(' adalah : ',k:0:2); writeln; write ('Tekan Enter Untuk Melanjutkan');readln; end; procedure nob; begin clrscr; textcolor(green); writeln; writeln ('Menghitung Luas dan Keliling Persegi Panjang'); writeln ('------------- Jefri Fernando --------------'); writeln; write ('Masukkan Panjang : '); readln(p); write ('Masukkan Lebar : '); readln(lbr); l:=p*lbr; writeln; write ('Luas Persegi panjang dengan panjang ',p);write(' dan lebar ',lbr);write(' Adalah ',l:0:0); writeln; k:=2*(p+lbr); write ('Keliling Persegi panjang dengan panjang ',p);write(' dan lebar ',lbr); write(' Adalah ',k:0:0); writeln; write ('Tekan Enter Untuk Melanjutkan'); readln; end; begin clrscr; noa;nob;noa;nob;noa;nob;noa;nob;noa;nob;noa;nob; noa;nob;noa;nob;noa;nob;noa;nob;noa;nob;noa;nob; end.

Program Menentukan Bilangan Ganjil dan Genap

Coding Program 

program project1; uses crt; var bil:integer; ket,y:string; begin textcolor(yellow); clrscr; writeln; ket:='y'; writeln(' Program By Jefri Fernando '); writeln('Menentukan Jenis Sebuah Bilangan'); writeln; write(' Masukkan sebuah Bilangan : '); readln(bil); if bil mod 2=0 then ket:='genap' else ket:='ganjil'; write(' Bilangan yang di inputkan adalah : ',ket); readln ; end.

Program Menentukan Bilangan Positif dan Negatif

Coding Program

program project1; uses crt; var bil:integer; ket:string; begin clrscr; textcolor(green); writeln; writeln ('Menentukan Jenis Sebuah Bilangan'); writeln ('---------Jefri Fernando---------'); writeln; write ('Masukkan Sebuah Bilangan : '); readln(bil); if bil>=0 then ket:='positif' else ket:='negatif'; writeln; writeln ('Bilangan yang di inputkan adalah : ',ket); readln; end.

Semoga Bermanfaat