Membuat program untuk menghitung resistor 4 gelang dengan pascal 

program HitungResistor4Pita; var warna: array[1..4] of string; nilaiResistor, i: longint; function getAngka(warna: string): integer; begin case warna of 'hitam': getAngka := 0; 'coklat': getAngka := 1; 'merah': getAngka := 2; 'oranye': getAngka := 3; 'kuning': getAngka := 4; 'hijau': getAngka := 5; 'biru': getAngka := 6; 'ungu': getAngka := 7; 'abu-abu': getAngka := 8; 'putih': getAngka := 9; else getAngka := -1; end; end; function getPengali(warna: string): longint; begin case warna of 'hitam': getPengali := 1; 'coklat': getPengali := 10; 'merah': getPengali := 100; 'oranye': getPengali := 1000; 'kuning': getPengali := 10000; 'hijau': getPengali := 100000; 'biru': getPengali := 1000000; 'ungu': getPengali := 10000000; 'abu-abu': getPengali := 100000000; 'putih': getPengali := 1000000000; else getPengali := -1; end; end; begin nilaiResistor := 0; for i := 1 to 4 do begin write('Masukkan warna pita ke-', i, ': '); readln(warna[i]); if (i < 4) and (getAngka(warna[i]) = -1) or ((i = 4) and (getPengali(warna[i]) = -1)) then begin writeln('Input warna tidak valid! Coba lagi.'); exit; end; if i < 3 then nilaiResistor := nilaiResistor * 10 + getAngka(warna[i]) else if i = 3 then nilaiResistor := (nilaiResistor * 10 + getAngka(warna[i])) * getPengali(warna[4]); end; writeln('Nilai resistor: ', nilaiResistor, ' ohm'); end.