program konversi suhu

program konversi;
uses wincrt;
var pilihan,c,f,k,r: real;pilihasn:string;
        begin
        writeln('konversi suhu');
        writeln('1. menghitung C ke F');
        writeln('2. menghitung C ke K');
        writeln('3. menghitung C ke R');
        begin
        writeln('pilih nomor(1-3)?');read(pilihan);
        end;


        if pilihan= 1 then
        begin
        write('tulis berapa derajat celcius?');
        readln(c);
        f:=32+c*1.8;
        writeln;
        writeln(c,'derajat celcius adalah ',F,'derajat fahrenheit');
        readln;
        end;

        if pilihan =2 then
        begin
        write('tulis berapa derajat celcius?');
        readln(c);
        k:=c+273.15;
        writeln;
        writeln(c,'derajat celcius adalah',k,'derajat kelvin');
        readln;
        end;

        if pilihan =3 then
        begin
        write('tulis berapa derajat celcius?');
        readln(C);
        r:=c*0.8;
        writeln;
        writeln(c,'derajat celcius adalah',r,'derajat reamur');
        readln;
        end;
        end.

program bintang piramit

Program bintang_piramid;

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 bilangan ganjil genap

Program ganjil_genap;

Var X, sisa : integer ;

Ket : string;

Begin

Write(‘masukkan semua bilangan : ‘);

readln(x);

Sisa := x mod 2;

If sisa = 0 then ket :=’genap’ else ket :=’ganjil’;

Write(‘jadi jenis bilangan adalah : ‘);

writeln(ket);

readln;

end.