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