Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  WORK
Language: PASCAL
Code:
Program Forca;
Uses Crt;

Procedure DesForca;
Begin
Texcolor (15);
Writeln   ('  _________    ');
Writeln (' |         |   ');
Writeln (' |         |   ');
Writeln (' |             ');
Writeln (' |             ');
Writeln (' |             ');
Writeln (' |             ');
Writeln (' |             ');
Writeln ('_|_            ');
End;

Procedure DesCabeca (Var Cor:Byte);
Begin
GotoXY (1,4);
TextColor (Cor);
Writeln (' |         0   ');
End;

Procedure DesTronco (Var Cor:Byte);
Begin
GotoXY (1,5);
TextColor (Cor);
Writeln (' |         |   ');
End;

Procedure DesBD (Var Cor:Byte);
Begin
GotoXY (1,5);
TextColor (Cor);
Writeln (' |        /|   ');
End;

Procedure DesBE (Var Cor:Byte);
Begin
GotoXY (1,5);
Writeln (' |        /|\   ');
End;

Procedure DesPD (Var Cor:Byte);
Begin
GotoXY (1,6);
Writeln (' |        /    ');
End;

Procedure DesPE (Var Cor:Byte);
Begin
GotoXY (1,6);
Writeln (' |        / \  ');
End;

Begin

ClrScr;

DesForca;
Readkey;
DesCabec (15);
Readkey;
DesTronco (15);
Readkey;
DesBD (14);
Readkey;
DesBE (14);
Readkey;
DesPD (4);
Readkey;
DesPE (4);
Readkey;
End.     
Comments: