Tutorial Program Pascal Part 2

Program Penentuan Nilai Dengan IF Kondisi

Coding Program

program project1; uses crt; var nama,ket:string; nobp:string[16]; na:real; nh:char; begin textcolor(blue); writeln; writeln('Program Konversi Nilai'); writeln('----Jefri Fernando----'); writeln; write ('Input Nomor BP : '); readln(nobp); writeln; write ('Input Nama : '); readln(nama); writeln; write ('Input Nilai angka : '); readln(na); if na>=80 then begin nh:='A'; ket:='Sangat Baik'; end else if na>=65 then begin nh:='B'; ket:='Baik'; end else if na>=55 then begin nh:='C'; ket:='Cukup'; end else if na>=40 then begin nh:='D'; ket:='Kurang'; end else begin nh:='E'; ket:='Sangat Kurang'; end; write (' Input Nilai Hurf : '); write (NH); writeln; write (' Keterangan : '); write (ket); readln; end.

Program Perulangan Konversi Suhu

Coding Program

program project1; uses crt; var fh,rm,kv:real; cl:integer; begin clrscr; writeln (' Konversi Suhu Celsius '); writeln (' ~~~~~~~~~~~~~~~~~~~~~ '); writeln (' Celsius Fahrenheit Reamur Kelvin '); for cl:=20 to 30 do begin fh:=cl*1.8+32; rm:=cl*0.8; kv:=cl+273.15; write (' ',cl,' ',fh:0:2, ' ',rm:0:2, ' ',kv:0:2); writeln; end; writeln; write ('Yes,Berhasil......!'); readln; end.

Perulangan Bilangan Yang abis dibagi 5 dari 100 sampai 200

Coding Program

program project1; uses crt; var x:integer; begin for x:=100 to 200 do begin if x mod 5 = 0 then write (x:4); end; readln; end.

Program Pascal Perulangan Bilangan ganjil dari 15 sampai 25

program project1; uses crt; var x:integer; begin writeln('Menampilkan Bilangan Ganjil mulai 15 s/d 25'); for x:=15 to 25 do begin if x mod 2 = 1 then write (x:3); end; readln; end.

Semoga Bermanfaat

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