Bismillahillahirokhmanirokhim

Soal Ujian :
1. Buatlah program menghitung volum balok, prisma segitiga, dan limas segiempat beraturan!
2. Buatlah program kalkulator sederhana(+, -, x, /) dengan case of!
3. Buatlah program konverter suhu dari skala 0C ke suhu skala 0R, 0F, dan K dengan procedure!

script pengulangan menggunakan "for to do"

1.untuk menghasilkan angka ganjil scriptnya:

program bil_ganjil;
uses wincrt;
var a:integer;
begin
for a:=1 to 50 do
begin
writeln(a);
a:=a+1;
end;
end.

2.untuk menghasilkan angka genap scriptnya:

program bil_genap;
uses wincrt;
var a:integer;
begin
for a:=2 to 51 do
begin
writeln(a);
a:=a+1;
end;
end.

Catatan:
Perbedaan menampilkan bilangan ganjil dengan genap adalah terletak pada script "for a:=1 to 50 do" dan "for a:=2 to do 51 do".
Intinya jika pada ganjil diawali angka "ganjil" to "genap"
jika pada genap diawali angka "genap"to "ganjil".

bismillah
cuma bagi-bagi ilmu aja, silahkan dicopy paste atau dipelajari...
semoga bermanfaat.

program lat_case;
uses wincrt;
var x,a:char;
begin
repeat
writeln('makanan kesukaan');
readln;
writeln('================');
readln; {enter}
writeln('a. soto');
readln; {enter}
writeln('b. siomai');
readln; {enter}
writeln('c. nasi goreng');
readln; {enter}
writeln('d. mie ayam');
readln; {enter}
writeln('=================');
writeln; {enter}
writeln(''silahkan pilih yang anda suka');
readln(x);
case x of
'a':begin
writeln('soto');
end;
'b':begin
writeln('siomai');
end;
'c':begin
writeln('nasi goreng');
end;
'd':begin
writeln('mie ayam');
end;
end;
writeln('ulangi program ? (y/t)=');readln(a);
clrscr;
until (a='T') or (a='t');
end.

program lat10;
uses wincrt;
var a,b,c:real;
begin
writeln('masukan nilai a =');readln(a);
writeln('masukan nilai b =');readln(b);
writeln('masukan nilai c =');readln(c);

if a>b then
begin
writeln('nilai a lebih tinggi dari b');
if a>c then
begin
writeln('nilai a paling tinggi');
if b>c then
begin
writeln('nilai c paling rendah');
if c>b then
begin
writeln('nilai b paling rendah');
end
end
end
end
else
if b>a then
begin
writeln('nilai b lebih tinggi dari a');
if b>c then
begin
writeln('nilai b paling tinggi');
if a>c then
begin
writeln('nilai c paling rendah');
if c>a then
begin
writeln('nilai a paling rendah');
end
end
end
else
if c>b then
begin
writeln('nilai c lebih tinggi dari b');
if c>a then
begin
writeln('nilai c paling tinggi');
if a>b then
begin
writeln('nilai b paling rendah');
if b>a then
begin
writeln('nilai a paling rendah');
end
end
end
end
end
end.

Assaamu'alaykum warohmatullohi wabarokatuh
Semester 3 saya mengambil matakuliah program komputer 1 yaitu Program Pascal. Suatu hari ketika kuliah mata kuliah ini saya mendapat soal tentang pembagian uang pecahan. Tanpa berlama-lama silahkan dipelajari dan boleh dicopas(gratis).
Semoga bermanfaat.

program perbaikan_nilai;
uses wincrt;
var a,ratus_ribu, limapuluh_ribu, puluh_ribu : longint;
lima_ribu, seribu,lima_ratus,duaratus, seratus :longint ;
begin
writeln('masukan uang');read(a);
writeln('============');
begin
ratus_ribu := a div 100000;
a := a mod 100000;
limapuluh_ribu := a div 50000;
a := a mod 50000;
puluh_ribu := a div 10000;
a := a mod 10000;
lima_ribu := a div 5000;
a := a mod 5000;
seribu := a div 1000;
a := a mod 1000;
lima_ratus := a div 500;
a := a mod 500;
duaratus := a div 200;
a := a mod 200;
seratus := a div 100;
a := a mod 100;

writeln('Jumlah pecahan uang 100.000 : ',ratus_ribu);
writeln('Jumlah pecahan uang 50.000 : ',limapuluh_ribu);
writeln('Jumlah pecahan uang 10.000 : ',puluh_ribu);
writeln('Jumlah pecahan uang 5.000 : ',lima_ribu);
writeln('Jumlah pecahan uang 1.000 : ',seribu);
writeln('Jumlah pecahan uang 500 : ',lima_ratus);
writeln('Jumlah pecahan uang 200 : ',duaratus);
writeln('Jumlah pecahan uang 100 : ',seratus);
writeln('------------------------------------------');

end;
readln;
end.

TUGAS PASCAL 1

program tugas_prokom;
uses wincrt;
var baris,n:integer;
jenis,c:char;
r,a,t,luas1,luas2:real;
const phi=3.14;
begin
repeat
writeln('----------------------------------');
writeln('[ jenis ]');
writeln('[pilih x untuk luas lingkaran]');
writeln('[pilih y untuk luas segitiga]');
writeln('[pilih z untuk perulangan bintang]');
writeln('----------------------------------');
writeln('jenis= ');read(jenis);
if jenis='x' then
begin
writeln('luas lingkaran');
writeln('masukan jari-jari=');readln(r);
luas1:= phi*sqr(r);
writeln('luas lingkaran= ',luas1:8:2);
end
else
if jenis='y' then
begin
writeln('luas segitiga');
writeln('masukan a=');readln(a);
writeln('masukan t=');readln(t);
luas2:=0.5 * a * t;
writeln('luas= ',luas2:0:2);
end
else
if jenis='z' then
begin
writeln('masukkan gambar bintang=');readln(n);
for baris:= 1 to n do
write('*');
end
else
writeln('[anda salah memasukan jenis]');
writeln;
writeln('-------------------------');
write('mau coba lagi? Y atau T: ');read(c);
clrscr;
until(c='T') or (c='t');
write;
writeln('Terimakasih telah mencoba progam sederhana ini');
end.

LUAS SEGITIGA

program luassegi3;
uses wincrt;
var a,t:integer;
luas:real;
c:char;
begin
writeln('luas segitiga');
repeat
writeln('masukkan a= ');read(a);
writeln('masukkan t= ');read(t);
luas:=0.5 * a * t;
writeln('luas_segitiga=',luas:0:7);
writeln('hitung lagi? (y/t)=');read(c);
until (c='T') or (c='t');
end.


LUAS PERSEGI PANJANG

program luas_lingkaran;
uses wincrt;
var a: longint;
luas:real;
c:char;
const phi=3.14;
begin

writeln('luas lingkaran');
repeat
writeln('masukkan jari-jari: ');
readln(a);
luas:=phi * a * a;
writeln('luas_lingkaran=',luas:0:5);
writeln('hitung lagi?(y/t)=');read(c);
until (c='T') or (c='t');
end.

Kalkulator sederhana 1

program kalkulator1;
uses wincrt;
var a,b,penjumlahan,pengurangan,perkalian:integer;
pembagian:real;
begin
writeln('kalkulator sederhana');
writeln('********************');
writeln('masukan nilai a: ');
readln(a);
writeln('masukan nilai b: ');
readln(b);
penjumlahan:=a+b;
pengurangan:=a-b;
perkalian:=a*b;
pembagian:=a/b;
writeln('hasil penjumlahan',penjumlahan);
writeln('hasil pengurangan',pengurangan);
writeln('hasil perkalian',perkalian);
writeln('hasil pembagian',pembagian:0:4);
end.


Kalkulator sederhana 2

program kalkulator2;
uses wincrt;
var x,y,hasil_penjumlahan,hasil_pengurangan,hasil_perkalian:integer;
jenis,c:char;
hasil_pembagian:real;
begin
writeln('kalkulator2');
writeln('***********');
repeat
writeln('jenis:');
readln(jenis);
writeln('masukan nilai x');readln(x);
writeln('masukan nilai y');readln(y);
hasil_penjumlahan:= x+y;
hasil_pengurangan:= x-y;
hasil_perkalian:= x*y;
hasil_pembagian:= x/y;
if jenis='+' then
begin
writeln('hasil_penjumlahan= ',hasil_penjumlahan);
end;
if jenis='-' then
begin
writeln('hasil_pengurangan= ',hasil_pengurangan);
end;
if jenis='*' then
begin
writeln('hasil_perkalian= ',hasil_perkalian);
end;
if jenis='/' then
begin
writeln('hasil_pembagian= ',hasil_pembagian:0:5);
end;
write('hitung lagi? (y/t)=');readln(c);
clrscr;
until (c='T') or (c='t');
end.