Program input output

Program survei;
var
nd,l,nb,h:string;
nb:string;
umur,ti,ta,jk,:integer;

procedure judul;
begin
writeln('---------------------------------------------------------------');
writeln('*                  program survei                             *');
writeln('---------------------------------------------------------------');
end;

begin
clrscr;
judul;
write('masukan nama depan: ');    readln(nd);
write('masukan nama belakang: '); readln(nb);
write('halo ',nd,'',nb,' apa kabar');
readln;
clrscr;
judul;
write('berapa usia kamu ',nb,' : '); readln(umur);
write('dimana kamu lahir ',nb,': '); readln(l);
write('Apa Hobi Kamu: '); readln(h);
clrscr;
judul;
write('masukan jenis kelamin(1=laki/2=perempuan): ' ); readln(jk);
write('masukan tinggi anda: ' );        readln(ti);
if jk >= 2  then
ta:=170- ti
else
if jk <= 1 then    ta:= 186- ti; 
if ta <= 0 then    writeln('tinggi anda ideal')   
  else  if ta > 0 then
writeln('tinggi anda belum ideal kurang ',ta,' cm lagi');
readln;
clrscr;
judul;
writeln('Profil Kamu');
writeln('Nama Lengkap : ',nd,'',nb);
writeln('Umur         : ',umur);
writeln('Tempat Lahir : ',l);
writeln('Hobi         : ',h);
writeln('Tinggi       : ',ti);
readln;

end.

Related Posts by Categories