progam bintang

program bintang_piramid;
uses wincrt;

var c,a,b,n : integer;
begin
  write ('masukkan jumlah bintang terakir : ');readln(n);
  writeln;
  if n mod 2 = 0 then
    for a := 1 to (n div 2) do begin
      for b := 1 to (n div 2)-a do
      write (' ');
      for c := 1 to (a*2) do
        write ('*');
      writeln;
    end
  else
    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 ganjil dan genap

Program ganjil_genap;

uses wincrt;

var
 bil, i,g1,g2,j1,j2,n: integer;
  rt1,rt2:real;
  

begin
    write('Masukkan Banyaknya Data ' );readln(n);
      for i := 1 to n do

      begin

       write('Bilangan ke:',i ,' ');readln(bil);

        if bil mod 2 = 0 then

        j1:=j1 +1;

        g1:=g1+bil;

      if bil mod 2 =1 then

         j2:=j2+1;

        g2:=g2+bil;

     end;

     rt1:=g1/j1;

     rt2:=g2/j2;

     writeln('Jumlah bil. Ganjil=' ,j2);

     writeln('Jumlah bil. Genap=' ,j1);

     writeln('Rerata Ganjil=' ,rt2:4:2);

     writeln('Rerata Genap=' ,rt1:4:2);

end.

program konversi suhu

Program Konversi_Suhu;
Var pilihan:byte;
C, F, Re, K:real;
Begin
Writeln(‘Pilihan’);
Writeln(’1. Dari Derajat Celcius ke Reamur’);
Writeln(’2. Dari Derajat Celcius ke Farenhait’);
Writeln(’3. Dari Derajat 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.

pepenkz

nama qw agoenkz