Pemrograman Delphi

Program Soal Fisika - Blog

Program Menghitung Kecepatan dan Jarak

SOAL :

Sebuah benda bergerak dengan kecepatan awal 50 m/s. Jika benda tersebut bergerak dengan percepatan tetap sebesar 10 m/s². Berapakah kecepatan benda tersebut setelah bergerak selama 20 sekon ? Berapakah Jarak yang ditempuhnya ?

Kecepatan Awal : m/s

Percepatan : m/s²

Waktu : s

JAWABAN ANDA :

		Periksa	Kunci
Kecepatan Akhir :				m/s
Jarak :				m

Program Menghitung Hambatan Pengganti pada Rangkaian Seri dan Paralel

SOAL :

Sebuah rangkaian listrik terdiri dari 3 buah resistor, masing-masing R1 = 20 ohm, R2 = 30 ohm dan R3 = 60 ohm. Jika ketiga resistor tersebut dirangkai seri, berapakah hambatan penggantinya ? Berapa hambatan penggantinya jika ketiganya dirangkai paralel ?

R1 : ohm

R2 : ohm

R3 : ohm

JAWABAN ANDA :

		Periksa	Kunci
Seri Rs :				ohm
Paralel Rp :				ohm

<!DOCTYPE html>

<head>

<title>Program Soal Fisika - Blog</title>

<style>

.container-fisika {

font-family: Arial, sans-serif;

width: 100%;

max-width: 750px;

background-color: #e6e699;

border: 3px solid #0055ff;

border-radius: 8px;

box-shadow: 0 4px 15px rgba(0,0,0,0.2);

margin: 0 auto 30px auto;

overflow: hidden;

box-sizing: border-box;

}

.container-fisika * { box-sizing: border-box; }

.app-header {

background: linear-gradient(to bottom, #0055ff, #0022aa);

color: white;

padding: 8px 15px;

font-weight: bold;

font-size: 14px;

display: flex;

justify-content: space-between;

}

.app-body { padding: 20px; }

.program-title {

text-align: center;

color: #8b0000;

font-size: 18px;

font-weight: bold;

background-color: #f0f0d0;

padding: 10px;

border: 1px solid #999;

margin-bottom: 20px;

border-radius: 4px;

}

.main-layout {

display: grid;

grid-template-columns: 1fr 1fr;

gap: 20px;

}

@media (max-width: 600px) {

.main-layout { grid-template-columns: 1fr; }

}

.soal-box {

background-color: white;

border: 1px solid #555;

padding: 15px;

color: #000080;

font-size: 14px;

line-height: 1.5;

min-height: 150px;

}

.soal-title {

font-weight: bold;

color: #0000ff;

margin-bottom: 5px;

}

.input-box {

display: flex;

flex-direction: column;

gap: 12px;

justify-content: center;

}

.input-group {

display: flex;

align-items: center;

justify-content: flex-end;

gap: 10px;

}

.input-group label {

font-weight: bold;

color: #0000ff;

font-size: 14px;

flex: 1;

text-align: right;

}

.input-group input {

width: 80px;

padding: 4px;

font-size: 14px;

text-align: center;

border: 1px solid #777;

}

.input-group .unit {

width: 45px;

font-size: 13px;

color: #333;

}

.checking-zone {

background-color: #40e0d0;

border: 2px solid #00aaaa;

margin-top: 20px;

padding: 15px;

border-radius: 4px;

overflow-x: auto;

}

.zone-title {

color: #ff0000;

font-weight: bold;

font-size: 14px;

margin-bottom: 10px;

}

.table-check {

width: 100%;

border-collapse: collapse;

}

.table-check th {

background-color: #000;

color: #40e0d0;

font-size: 12px;

padding: 4px;

text-align: center;

}

.table-check th.kunci-header {

background-color: #e6a8d7;

color: #000;

}

.table-check td {

padding: 6px 4px;

font-size: 14px;

}

.table-check input {

width: 70px;

padding: 2px;

text-align: center;

}

.status-cell {

background-color: white;

text-align: center;

font-weight: bold;

border: 1px solid #999;

width: 80px;

}

.kunci-cell {

background-color: white;

text-align: center;

font-weight: bold;

color: #000080;

border: 1px solid #999;

width: 80px;

}

.btn-action {

background-color: #ffff00;

color: black;

border: 2px solid #555;

padding: 8px 15px;

font-weight: bold;

cursor: pointer;

border-radius: 4px;

display: block;

margin: 15px auto 0 auto;

}

.btn-action:hover { background-color: #eeee00; }

.footer-tag {

font-size: 20px;

font-weight: bold;

margin-top: 15px;

}

.status-benar { color: green; }

.status-salah { color: red; }

</style>

</head>

<body>

<span>Soal Fisika - Kelas A</span>

</div>

<div class="program-title">Program Menghitung Kecepatan dan Jarak</div>

<div>

</div>

<label>Kecepatan Awal :</label>

</div>

<label>Percepatan :</label>

</div>

<label>Waktu :</label>

</div>

<div class="zone-title">JAWABAN ANDA :</div>

<thead>

<tr>

<th>Periksa</th>

<th class="kunci-header">Kunci</th>

</tr>

</thead>

<tbody>

<tr>

<td style="text-align: right; font-weight: bold; color: blue;">Kecepatan Akhir :</td>

</tr>

<tr>

<td style="text-align: right; font-weight: bold; color: blue;">Jarak :</td>

</tr>

</tbody>

</table>

<button class="btn-action" onclick="periksaKelasA()">PERIKSA JAWABAN</button>

</div>

<div class="footer-tag" style="color: #ff0000;">KHUSUS Kelas A</div>

</div>

<span>Soal Fisika - Kelas C</span>

</div>

<div class="program-title">Program Menghitung Hambatan Pengganti pada Rangkaian Seri dan Paralel</div>

<div>

</div>

</div>

</div>

</div>

<div class="zone-title">JAWABAN ANDA :</div>

<thead>

<tr>

<th>Periksa</th>

<th class="kunci-header">Kunci</th>

</tr>

</thead>

<tbody>

<tr>

</tr>

<tr>

<td style="text-align: right; font-weight: bold; color: blue;">Paralel Rp :</td>

</tr>

</tbody>

</table>

<button class="btn-action" onclick="periksaKelasC()">PERIKSA JAWABAN</button>

</div>

<div class="footer-tag" style="color: #000080;">KHUSUS KELAS C</div>

</div>

function periksaKelasA() {

const v0 = parseFloat(document.getElementById('a_v0').value) || 0;

const a = parseFloat(document.getElementById('a_a').value) || 0;

const t = parseFloat(document.getElementById('a_t').value) || 0;

const kunci_vt = v0 + (a * t);

const kunci_s = (v0 * t) + (0.5 * a * t * t);

document.getElementById('kunci_vt').innerText = kunci_vt;

document.getElementById('kunci_s').innerText = kunci_s;

const u_vt = parseFloat(document.getElementById('user_vt').value);

const u_s = parseFloat(document.getElementById('user_s').value);

const statusVtEl = document.getElementById('status_vt');

if (!isNaN(u_vt)) {

if (Math.abs(u_vt - kunci_vt) < 0.01) {

statusVtEl.innerText = "BENAR";

statusVtEl.className = "status-cell status-benar";

} else {

statusVtEl.innerText = "SALAH";

statusVtEl.className = "status-cell status-salah";

}

} else { statusVtEl.innerText = ""; }

const statusSEl = document.getElementById('status_s');

if (!isNaN(u_s)) {

if (Math.abs(u_s - kunci_s) < 0.01) {

statusSEl.innerText = "BENAR";

statusSEl.className = "status-cell status-benar";

} else {

statusSEl.innerText = "SALAH";

statusSEl.className = "status-cell status-salah";

}

} else { statusSEl.innerText = ""; }

}

function periksaKelasC() {

const r1 = parseFloat(document.getElementById('c_r1').value) || 0;

const r2 = parseFloat(document.getElementById('c_r2').value) || 0;

const r3 = parseFloat(document.getElementById('c_r3').value) || 0;

const kunci_rs = r1 + r2 + r3;

let kunci_rp = 0;

if (r1 > 0 && r2 > 0 && r3 > 0) {

kunci_rp = 1 / ((1/r1) + (1/r2) + (1/r3));

kunci_rp = Math.round(kunci_rp * 100) / 100;

}

document.getElementById('kunci_rs').innerText = kunci_rs;

document.getElementById('kunci_rp').innerText = kunci_rp;

const u_rs = parseFloat(document.getElementById('user_rs').value);

const u_rp = parseFloat(document.getElementById('user_rp').value);

const statusRsEl = document.getElementById('status_rs');

if (!isNaN(u_rs)) {

if (Math.abs(u_rs - kunci_rs) < 0.01) {

statusRsEl.innerText = "BENAR";

statusRsEl.className = "status-cell status-benar";

} else {

statusRsEl.innerText = "SALAH";

statusRsEl.className = "status-cell status-salah";

}

} else { statusRsEl.innerText = ""; }

const statusRpEl = document.getElementById('status_rp');

if (!isNaN(u_rp)) {

if (Math.abs(u_rp - kunci_rp) < 0.1) {

statusRpEl.innerText = "BENAR";

statusRpEl.className = "status-cell status-benar";

} else {

statusRpEl.innerText = "SALAH";

statusRpEl.className = "status-cell status-salah";

}

} else { statusRpEl.innerText = ""; }

}

</script>

</body>

</html>

Pengulangan adalah suatu cara untuk mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu.

Dalam Struktur Pengulangan kita harus memperhatikan bagian-bagian berikut ini :
KONDISI : yaitu Ekspresi boolean yang harus dipenuhi untuk melaksanakan pengulangan
BADAN : yaitu satu atau lebih aksi yang akan diulang

Pada dasarnya ada 3 jenis pengulangan, yaitu :
1. WHILE … DO
2. REPEAT ... UNTIL
3. FOR … DO

1. WHILE … DO

- Perulangan Tidak Tentu

- Digunakan untuk mengulang statemen selama kondisi masih bernilai Benar

- Bentuknya :
WHILE kondisi DO
AKSI
ENDWHILE

- Diagram alirnya :

- Contoh :

Procedure TForm1.BtUlangClick(Sender: TObject);
Var
i : real;
BEGIN
MmUlang.Clear;
i:=0;
while i<10 do
begin
i:=i+0.5;
MmUlang.Lines.Add(FloatToStr(i));
end;
end;

2. REPEAT ... UNTIL

- Perulangan Tidak Tentu

- Digunakan untuk mengulang statemen selama kondisi masih bernilai Salah

- Bentuknya :
REPEAT AKSI UNTIL
AKSI
kondisi

- Diagram alirnya :

- Contoh :

Procedure TForm1.BtUlangClick(Sender: TObject);
Var
i : real;
BEGIN
MmUlang.Clear;
i:=0;
repeat
i:=i+0.5;
MmUlang.Lines.Add(FloatToStr(i));
until i=10;
end;

3. FOR … DO

- Perulangan Tertentu

- Digunakan untuk mengulang statemen sebanyak yang ditentukan

- Bentuknya :
Untuk FOR ... TO .. DO FOR nilai_awal TO
nilai_akhir DO
AKSI
ENDFOR

Contoh :
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
c:char;
Begin
MmUlang.Clear;
for i:=1 to 10 do
MmUlang.Lines.Add(IntToStr(i));
for c:='A' to 'Z' do
MmUlang.Lines.Add(c);
end;

Untuk FOR ... DOWNTO .. DO FOR nilai_awal TO
nilai_akhir DO
AKSI
ENDFOR

Contoh :
Procedure TForm1.BtUlangClick(Sender: TObject);
var
i:integer;
c:char;
Begin
MmUlang.Clear;
for i:=10 downto 1 do
MmUlang.Lines.Add(IntToStr(i));
for c:='Z' downto 'A' do
MmUlang.Lines.Add(c);
end;

LATIHAN PENGULANGAN

Listing Programnya :

procedure TForm1.Button1Click(Sender: TObject);
Var
C,F : Real;
begin
C:= StrToFloat(edC.Text);
F:= 9*C/5+32;
edF.Text:=FloatToStr(F);
MeC.Lines.Add(FloatToStr(C));
MeF.Lines.Add(FloatToStr(F));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
F : Real;
i : Integer;
begin
i:=0;
While i<= 100 Do
Begin
F:= 9*i/5+32;
edFu.Text:=FloatToStr(F);
edCu.Text:=FloatToStr(i);
MeCu.Lines.Add(FloatToStr(i));
MeFu.Lines.Add(FloatToStr(F));
i:=i+10;
End;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
Var
F : Real;
i : Integer;
begin
i:=0;
Repeat
Begin
F:= 9*i/5+32;
Edit2.Text:=FloatToStr(F);
Edit1.Text:=FloatToStr(i);
Memo1.Lines.Add(FloatToStr(i));
Memo2.Lines.Add(FloatToStr(F));
i:=i+10;
End;
Until i> 100;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
Var
F : Real;
i : Integer;
begin
For i:=0 To 10 Do
Begin
F:= 9*10*i/5+32;
Edit3.Text:=FloatToStr(i*10);
Edit4.Text:=FloatToStr(F);
Memo3.Lines.Add(FloatToStr(i*10));
Memo4.Lines.Add(FloatToStr(F));
End
end;

Listing Programnya :

procedure TForm1.Button1Click(Sender: TObject);
Var
t,Vt : Real;
begin
t:= StrToFloat(edC.Text);
Vt:= 10+10*t;
edF.Text:=FloatToStr(Vt);
MeC.Lines.Add(FloatToStr(t));
MeF.Lines.Add(FloatToStr(Vt));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
Vt : Real;
i : Integer;
begin
i:=0;
While i<= 100 Do
Begin
Vt:= 10+10*i;
edFu.Text:=FloatToStr(Vt);
edCu.Text:=FloatToStr(i);
MeCu.Lines.Add(FloatToStr(i));
MeFu.Lines.Add(FloatToStr(Vt));
i:=i+10;
End;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
Var
Vt : Real;
i : Integer;
begin
i:=0;
Repeat
Begin
Vt:= 10+10*i;
Edit2.Text:=FloatToStr(Vt);
Edit1.Text:=FloatToStr(i);
Memo1.Lines.Add(FloatToStr(i));
Memo2.Lines.Add(FloatToStr(Vt));
i:=i+10;
End;
Until i> 100;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
Var
Vt : Real;
i : Integer;
begin
For i:=0 To 10 Do
Begin
Vt:= 10+10*i;
Edit3.Text:=FloatToStr(i*10);
Edit4.Text:=FloatToStr(Vt);
Memo3.Lines.Add(FloatToStr(i*10));
Memo4.Lines.Add(FloatToStr(Vt));
End
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
Var
Vt : Real;
i : Integer;
begin
For i:=10 downTo 0 Do
Begin
Vt:= 10+10*i;
Edit5.Text:=FloatToStr(i*10);
Edit6.Text:=FloatToStr(Vt);
Memo5.Lines.Add(FloatToStr(i*10));
Memo6.Lines.Add(FloatToStr(Vt));
End
End;

Pemrograman Delphi

Senin, 08 Juni 2026

Rabu, 24 Mei 2017

Tugas Pendahuluan

Senin, 09 Desember 2013

Soal Latihan

Selasa, 22 Oktober 2013

Contoh

Senin, 30 September 2013

Algoritma

Percabangan

Sabtu, 02 Juni 2012

Pengulangan