SIMPLE_PASCAL
- Buatlah flowchart untuk menghitung perkalian bilangan dengan menggunakan tanda tambah, perhitungkan kemungkinan bilangan uji, 0, dan negatif.
program dasar,
program dengan kemungkinan bilangan uji, 0, dan negatif
program kali;
var
x,y,s:integer;
tanda:integer;
begin
tanda := 1;
writeln;
writeln;
write('Isi bilangan yang mau dikalikan -=> :'); readln(x);
write('Isi bilangan pengali -=> :'); readln(y);
if (y < 0) then
begin
tanda:= -1;
y := y * tanda;
end;
s := 0;
while (y > 0) do
begin
s := s + x;
y := y - 1;
end;
writeln(' Hasil kali adalah -=> : ', s * tanda);
readln;
end.
- Buatlah flowchart untuk menghitung pembagian bilangan dengan menggunakan tanda kurang, perhitungkan kemungkinan bilangan uji, 0, dan negatif.
program dasar
- Buatlah flowchart untuk menghitung nilai X1, dan X2, untuk persamaan kwadrat ax2 + bx + c = 0, perhitungkan kemungkinan bilangan uji, 0, dan negatif, determinan = 0, determinan > 0, dan determinan < 0.
program abc;
var
a, b, c, d, x1, x2: real;
begin
writeln;
writeln(' ax^2 + bx + c = 0');
writeln;
write (' Isi nilai a -=> '); readln(a);
write (' b -=> '); readln(b);
write (' c -=> '); readln(c);
d := (b * b) - (4 * a * c);
if (d = 0) then
begin
writeln ('akar kembar x1 = x2 = ',-b/(2*a):3:3);
end;
if (d > 0) then
begin
x1 := -b/(2*a) + sqrt(d)/(2*a);
x2 := -b/(2*a) - sqrt(d)/(2*a);
writeln ('x1 = ',x1:3:3);
writeln ('x2 = ',x2:3:3);
end;
if (d < 0) then
begin
d:= d * -1;
writeln ('x1 = ', -b/(2*a):3:3,' +i', sqrt(d)/(2*a):3:3);
writeln ('x2 = ', -b/(2*a):3:3,' -i', sqrt(d)/(2*a):3:3);
end;
readln;
end.
Latihan 1
- Buatlah program dalam bahasa Pascal untuk menghitung total luas bidang diluar segi6 dan didalam lingkaran seperti pada gambar berikut ini dengan menggunakan
- a procedure
- b function
Parameter yang digunakan adalah jari-jari (r)
- Buatlah program dalam bahasa Pascal untuk menghitung total luas bidang diluar lingkaran dan didalam bujursangkar seperti pada gambar berikut dengan menggunakan
- a procedure
- b function
Parameter yang digunakan adalah jari-jari (r)
- Buatlah program dalam bahasa Pascal untuk menghitung volume diluar bola didalam kubus bila dalam kubus seperti pada gambar berikut ini dengan menggunakan
- a procedure
- b function
Parameter yang digunakan adalah jari-jari (r)
Latihan 2
- Buat program untuk menghitung nilai kombinasi sbb
nCr = n! / r! * (n - r)!
- Buatlah program untuk menghitung luas sector pada suatu lingkaran
- . Buatlah program menghitung volume bola dalam kubus.
Contoh program menggunakan fungsi,
menghitung luas diluar lingkaran didalam bujur sangkar.