Tugas Algoritma : Program turbo pascal ( Bilangan Ganjil Genap & Umur )

Postingan Pertama untuk memenuhi Tugas Algoritma..


Latihan 1..

Program Bilangan Ganjil Genap Dalam Bahasa Pascal :



Program Bilangan_Ganjil_Genap;
{ Bilangan Ganjil Genap }
uses crt;
var
angka           : Integer
begin
clrscr
writeln('masukan angka');readln(angka);
if (angka mod 2=0) then
begin
writeln('Bilangan Genap');readln;
end;
begin
if (angka mod 2< >0) then
writeln('Bilangan Genap');readln;
end;
end.

Compile:

hasil:

Latihan 2

Program Umur Dalam Bahasa Pascal :

Program Umur;
{ umur }
uses crt;
var
usia       : real;
indeks   : string [50];
begin;
clrscr;
write('berapa umur anda ?? ');readln(usia);
if (usia >=17) then indeks:='anda dewasa';
if (usia <17) then indeks:='anda belum dewasa';
writeln(indeks);
end.

Compile:

 Hasil:

 sekian.. Mohon maaf bila ada kekurangan..