8/17/2019 Nur Suci Romadhon 12.84.202.034 LAZARUS

1/8

program tahunkabisat;

var 

tahun:integer;

begin

writeln('program tahun kabisat');

writeln('tahun=');

readln(tahun);

if tahun mod 4=0

then writeln('kabisat')

else writeln('bukan kabisat');

readln;

end.

----------------------------------------------------------------------------------------------------------------

program project1;

var 

1! "! #$! %anjang: eal;

begin

writeln('menentukan panjang garis singgug lingkaran luar');

writeln('1:');

readln(1);

writeln('":');

readln(");

writeln('#$:');

readln(#$);

panjang:=s&rt(s&r(#$)s&r(1"));

writeln('maka panjang adalah:'! panjang:0:");

readln;

end.

8/17/2019 Nur Suci Romadhon 12.84.202.034 LAZARUS

2/8

program genapganjil;

var 

nilai:integer;

begin

writeln('program genap ganjil');

writeln('nilai=');

  readln(nilai);

  if (nilai mod 2=0)

  then writeln('bilangan genap')

  else writeln('bilangan ganjil');

  readln;

end.

----------------------------------------------------------------------------------------------------------------

program pemilihanaksi;

var 

a:integer;

begin

writeln('program pemilihan aksi');

writeln('a:');

readln(a);

if a0

then write('bilangan bulat positif')

else write('bilangan bulat negatif');

readln;

end.

8/17/2019 Nur Suci Romadhon 12.84.202.034 LAZARUS

3/8

program nomor1;

var 

*%! ama! +anggal,-ahir! +empat,-ahir! .enis,/elamin! #gama! tatus!

%angkat: string;

begin

writeln ('%rogram nomor 1');

writeln('*%:');

readln(*%);

writeln('ama:');

readln(ama);

writeln('+anggal -ahir:');

readln(+anggal,-ahir);

writeln('+empat -ahir:');

readln(+empat,-ahir);

writeln('.enis /elamin:');

readln(.enis,/elamin);

writeln('#gama:');

readln(#gama);

writeln('tatus:');

readln(tatus);

writeln('%angkat:');

readln(%angkat);

readln;

end

8/17/2019 Nur Suci Romadhon 12.84.202.034 LAZARUS

4/8

program nomor";

var 

2! 3: real;

begin

writeln ('%rogram nomor "');

writeln ('3:');

readln (3);

2:=(567389");

writeln ('maka 2:'!2:0:");

readln;

end

program nomor9;

var 

nilai: longint;

begin

writeln ('%rogram nomor 9');

writeln('ilai=');

readln(nilai);

if(nilai mod " = 0) then writeln('$*-## #%') else writeln('$*-##

#.*-');

readln;

end

8/17/2019 Nur Suci Romadhon 12.84.202.034 LAZARUS

5/8

program nomor4;

var 

ama,$arang: string;

8/17/2019 Nur Suci Romadhon 12.84.202.034 LAZARUS

6/8

8/17/2019 Nur Suci Romadhon 12.84.202.034 LAZARUS

7/8

program nomor>;

var 

nilai: integer;

begin

writeln('%rogram nomor >');

writeln('ilai:');

readln(ilai);

if(nilai=0) then writeln('$*-## ?-') else if(nilai") then

writeln('$*-## %?*+*2') else if (ilai@0)then writeln('$*-##

egatif');

readln;

end

program nomorA;

var 

! :eal;

begin

writeln ('%rogram nomor A');

write ('.arijari='); BCasukkan ilai .ari"D

readln ();

:=4597pi777;

writeln ('.adi olumenEa='!:0:");

readln;

end

8/17/2019 Nur Suci Romadhon 12.84.202.034 LAZARUS

8/8

program nomorF;

var 

nilai,siswa: real;

begin

writeln('%rogram nomor F');

writeln('ilai iswa:');

readln(ilai,iswa);

if(nilai,siswa@A6) then writeln('C*G*#-') else writeln('-H-H');

readln;

end

----------------------------------------------------------------------------------------------------------------

program nomor;

var 

a! b! c! I1! I": real;

begin

writeln ('%rogram nomor ');

writeln('masukkan a:');

readln(a);

writeln('masukkan b:');

readln(b);

writeln('masukkan c:');

readln(c);

I1:=(b8(s&rt(s&r(b)47a7c)))5"7a;writeln('maka I1 adalah'! I1:0:");

I":=(b8(s&rt(s&r(b)847a7c)))5"7a;

writeln('maka I" adalah'! I":0:");

readln;

end