Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  sair[
Language: PASCAL
Code:
program HelloWorld;

uses crt;

var
  op: byte;
  sair: char;
  i: byte;
  ii: byte;
  sair:char;

begin
 Repeat
  Repeat
   clrscr; 
   writeln('0.Sair');
   writeln('1.Mapa');
   read(op); 

    if op=1 then
      begin
     for i:=20 to 35 do
            begin
           for ii:=10 to 15 do
                begin
                  gotoxy(i,ii);
                  write('#');
                end;
         end; 

   for i:=37 to 46 do
            begin
           for ii:=16 to 20 do
                begin
                  gotoxy(i,ii);
                  write('#');
                end;
         end;   


 for i:=47 to 61 do
            begin
           for ii:=22 to 26 do
                begin
                  gotoxy(i,ii);
                  write('#');
                end;
         end;   
      end;

readkey;
  Until(op=0);
 Until(sair='s');
end.          
          
          
          
          
Comments: