CARA BUAT TULISAN FTI DI
FREE PASCAL
uses
crt;
var a:char;
var b:char;
var c:char;
procedure cetak1();
begin
write(a);write(a);write(a);write(a);write(a);write(a);writeln;
end;
procedure cetak2();
begin
write(a);write(a);writeln;
end;
procedure cetak3();
begin
write(' ');write(' ');write(a);write(a);writeln;
end;
procedure cetak4();
begin
write(b);write(b);write(b);write(b);write(b);write(b);writeln;
end;
procedure cetak5();
begin
write(b);write(b);writeln;
end;
procedure cetak6();
begin
write(' ');write(' ');write(b);write(b);writeln;
end;
procedure cetak7();
begin
write(c);write(c);write(c);write(c);write(c);write(c);writeln;
end;
procedure cetak8();
begin
write(c);write(c);writeln;
end;
procedure cetak9();
begin
write(' ');write(' ');write(c);write(c);writeln;
end;
procedure F();
begin
cetak1;cetak1;cetak2;cetak1;cetak1;cetak2;cetak2;writeln;
end;
procedure T();
begin
cetak4;cetak4;cetak6;cetak6;cetak6;cetak6;cetak6;writeln;
end;
procedure I();
begin
cetak7;cetak7;cetak9;cetak9;cetak7;cetak7;writeln;
end; begin clrscr;
writeln;
write('Nama : Ruth Stephen Jenever');
writeln;
write('NIM
: 672015187');
writeln;
writeln;
writeln;
write('===========================');
writeln;
write('Masukan Pola F: ');readln(a);
write('Masukan Pola T: ');readln(b);
write('Masukan Pola I: ');readln(c) ;
write('===========================');
writeln;
F();T();I();
readkey;
end.
0 Comments