program angka;
uses wincrt;
var
aa:integer;
tt:string;
procedure A;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1) or (m262=5)) or ((n262=1) or (n262=3)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure B;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=5) and (n262=1)) or ((m262=5) and (n262=5)) then
write(' ')
else if ((m262=1) or (m262=5)) or ((n262=1) or (n262=5) or (n262=3)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure C;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1)) or ((n262=1) or (n262=5)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure D;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=5) and (n262=1)) or ((m262=5) and (n262=5)) then
else if ((m262=1) or (m262=5)) or ((n262=1) or (n262=5)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure E;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1)) or ((n262=1) or (n262=5) or (n262=3)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure F;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1)) or ((n262=1) or (n262=3)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure G;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((n262=1) or (n262=3) or (n262=5) or (m262=1)) or ((n262=4) and (m262=5)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure H;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1) or (m262=5)) or ((n262=3)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure I;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=3)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure J;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=5)) or ((n262=5)) or ((m262=4) and (n262=1)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure K;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1)) or ((n262=1) and (m262=4)) or ((n262=2) and (m262=3)) or ((m262=2) and (n262=3)) or ((m262=3) and (n262=4)) or ((m262=4) and (n262=5)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure L;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1)) or ((n262=5)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure M;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1) or (m262=5)) or ((n262=2) and (m262=2)) or ((m262=3) and (n262=3)) or ((n262=2) and (m262=4)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure N;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1) or (m262=5)) or ((n262=2) and (m262=2)) or ((m262=3) and (n262=3)) or ((n262=4) and (m262=4)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure O;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=5)) or ((n262=5)) or ((m262=1) or (n262=1)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure P;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1) or (n262=1) or (n262=3)) or ((n262=2) and (m262=5)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure Q;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((n262=1) and (m262=5)) or ((n262=5) and (m262=1)) or ((n262=5) and (m262=4)) or ((m262=5) and (n262=4)) then
write(' ')
else if ((m262=1) or (n262=1) or (n262=4) or (m262=4)) or ((m262=5) and (n262=5)) or ((m262=3) and (n262=3)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure R;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1) or (n262=1) or (n262=3)) or ((n262=2) and (m262=5)) or ((n262=4) and (m262=3)) or ((n262=5) and (m262=4)) or ((n262=5) and (m262=5)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure S;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((n262=1) or (n262=3) or (n262=5)) or ((n262=4) and (m262=5) or (n262=2) and (m262=1)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure T;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=3)) or ((n262=1)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure U;
var n262,m262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=5)) or ((n262=5)) or ((m262=1)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure V;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((n262=5) and (m262=3)) or ((n262=3) and (m262=1)) or ((n262=3) and (m262=5)) or ((n262=4) and (m262=2)) or ((n262=4) and (m262=4)) then
write('#')
else if ((m262=1) and (n262=2)) or ((m262=5) and (n262=2)) or ((m262=1) and (n262=1)) or ((m262=5) and (n262=1)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure W;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((m262=1) or (m262=5)) or ((n262=3) and (m262=3)) or ((n262=4) and (m262=2)) or ((n262=4) and (m262=4)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure X;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((n262=1) and (m262=1)) or ((n262=2) and (m262=2)) or ((n262=3) and (m262=3)) or ((n262=4) and (m262=4)) or ((n262=5) and (m262=5)) then
write('#')
else if ((n262=5) and (m262=1)) or ((n262=4) and (m262=2)) or ((n262=2) and (m262=4)) or ((n262=1) and (m262=5)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure Y;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((n262=1) and (m262=1)) or ((n262=2) and (m262=2)) or ((n262=3) and (m262=3)) or ((n262=4) and (m262=3)) or ((n262=5) and (m262=3)) then
write('#')
else if ((n262=2) and (m262=4)) or ((n262=1) and (m262=5)) then
write('#')
else
write(' ');
writeln;
end;
end;
procedure Z;
var m262,n262:integer;
begin
for n262:=1 to 5 do
begin
for m262:=1 to 5 do
if ((n262=5) and (m262=1)) or ((n262=4) and (m262=2)) or ((n262=2) and (m262=4)) or ((n262=1) and (m262=5)) or ((n262=3) and (m262=3)) then
write('#')
else if ((n262=5) or (n262=1)) then
write('#')
else
write(' ');
writeln;
end;
end;
begin
repeat
writeln('M262asukkan Huruf');readln(tt);
write('1:A');
write(' 2:B');
write(' 3:C');
write(' 4:D');
write(' 5:E');
write(' 6:F');
write(' 7:G');
write(' 8:H');
write(' 9:I');
write(' 10:J');
write(' 11:K');
write(' 12:L');
write(' 13:M262');
write(' 14:N');
write(' 15:O');
write(' 16:P');
write(' 17:Q');
write(' 18:R');
write(' 19:S');
write(' 20:T');
write(' 21:U');
write(' 22:V');
write(' 23:W');
write(' 24:X');
write(' 25:Y');
write(' 26:Z');
read(aa);
case aa of
1: A;
2: B;
3: C;
4: D;
5: E;
6: F;
7: G;
8: H;
9: I;
10: J;
11: K;
12: L;
13: M262;
14: N;
15: O;
16: P;
17: Q;
18: R;
19: S;
20: T;
21: U;
22: V;
23: W;
24: X;
25: Y;
26: Z;
end;
until tt='tt';
end.
0 komentar :
Post a Comment