Lectura

Solo disponible en BuenasTareas
  • Páginas : 2 (451 palabras )
  • Descarga(s) : 0
  • Publicado : 2 de septiembre de 2012
Leer documento completo
Vista previa del texto
Pseudocódigo Rectángulo
i,j :Entero
ren,col : Entero
Comienza
Ren <- 10
Col <- 10
Para i desde 0 hasta 50 hacer
Posición(ren,col+i)
Escribe(“*”)
Posición(ren+10,col+i)Escribe(“*”)
Fin (para)
Para j desde 0 hasta 50 hacer
Posición(ren+j,col)
Escribe(“*”)¨
Posición(ren+j,col+50)
Fin(para)
TERMINA

//Programa Rectangulo en C
//#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
int j,i;
int ren=10,col=10;
void main()
{
clrscr();
ren=10;
col=10;
for(i=0;i<=50;i++)
{
gotoxy(ren,col+i);
printf("+");gotoxy(ren+10,col+i);
printf("*");
}
for(j=0;j<=10;j++)
printf("*");
gotoxy(ren+j,col+50);
printf("*");
system("pause");
}

Programa Rectángulo en Pascal
program cuadro;
usescrt;
var
i,j:integer;
ren,col:integer;
begin
ren:=10;
col:=10;
for i := 0 to 50 do
gotoxy(ren, col+i);
write ('*');
gotoxy(ren+10,col+1);write('*');
end;
for j:=0 to 10 do
gotoxy(ren+j,col);
write('*');
gotoxy(ren+j,col+10);
write('*');
end;
end.Pseudocódigo Rectángulo
i,j :Entero
ren,col : Entero
largo,ancho:Entero

Comienza
Escribe(“Dame el renglón inicial”)
Lee(ren)
Escribe(“Dame la columna inicial”)
Lee(col)
Escribe(“Dame lalongitud de ancho”)
Lee(ancho)
Escribe(“Dame la longitud de largo”)
Lee(largo)
Para i desde 0 hasta ancho hacer
Posición(ren,col+i)
Escribe(“*”)
Posición(ren+10,col+i)
Escribe(“*”)Fin (para)
Para j desde 0 hasta largo hacer
Posición(ren+j,col)
Escribe(“*”)¨
Posición(ren+j,col+50)
Fin(para)
TERMINA
Programa Rectángulo en Pascal
program cuadro;
uses crt;
vari,j:integer;
ren,col:integer;
begin
write (“Dame el renglón inicial”)
(readren)
write (“Dame la columna inicial”)
read(col)
write (“Dame la longitud de ancho”)
Lee(ancho)...
tracking img