BUNYI KLIK PADA MOTOR 4 TAK

Gejala Bunyi Aneh Pada Mesin 4-Tak Bunyi aneh pada mesin motor 4-tak bisa menjadi pertanda kerusakan. Namun, tidak semua 'noise' berarti kerusakan. "Ada motor yang jarak clearance antar metalnya diposisikan maksimum, sehingga berisik

Y INILAH PROGAM BINTANG BERBENTUK PIRAMID

Program bintang_piramid;

Uses wincrt;

Var

c,a,b,n : integer;

begin

write(‘masukan angka genap sembarang utk menunjukkan baris pyramid’);

readln(n);

writeln;

for a := 1 to (n div 2)+1 do

begin

for b := 1 to (n div 2)+(1-a) do

write(‘ ‘);

for c := 1 to (a*2)-1 do

write(‘*’);

writeln;

end;

end.

Program konversi suhu dari Celcius ke Reamur, Fahrenheit dan Kelvin

Program Konversi_Suhu;
Var pilihan:byte;
C, F, Re, K:real;
Begin
Writeln(‘Pilihan’);
Writeln(’1. Program Konversi Celcius ke Reamur’);
Writeln(’2. Program Konversi Celcius ke Farenhait’);
Writeln(’3. Program Konversi Celcius ke Kelvin’);
Writeln(’0. Selesai’);
Pilihan:=9;
While (pilihan <1) or (pilihan >3) do
Begin
Writeln(‘Pilih nomer (0-3)?’);
read(pilihan);
end;
if pilihan=1 then
Begin
Writeln(‘Berapa derajat Celcius?’);
Read(C);
Re:= C*0.8;
Writeln(C,’derajat Celcius adalah’,Re,’derajat Reamur’);
Readln;
End;
if pilihan=2 then
Begin
Writeln(‘Berapa derajat Celcius?’);
Read(C);
F:= C*1.8+32;
Writeln(C,’derajat Celcius adalah’,F,’derajat Farenhait’);
Readln;
End;
if pilihan=3 then
Begin
Writeln(‘Berapa derajat Celcius?’);
Read(C);
K:= C+273.15;
Writeln(C,’derajat Celcius adalah’,K,’Kelvin’);
Readln;
End;
Readln;
Readln;
Readln;
End.

program menentukan bilangan ganjil dan genap

program ganjil_genap;
var b : integer;

begin
      writeln('masukkan bilangannya');
       read (b);
       if b mod 2=0 then
       begin
       writeln(' iku bilangan genap');
       readln;
       readln;
       end
       else
       begin
       writeln(' iku bilangan ganjil');
       end;
       readln;
       readln;
end.