Pogramas de pascal usando repeat

Solo disponible en BuenasTareas
  • Páginas : 4 (771 palabras )
  • Descarga(s) : 0
  • Publicado : 6 de marzo de 2011
Leer documento completo
Vista previa del texto
1.-PROGRAM EJER43;
USES CRT;
VAR x: INTEGER;
BEGIN
X: =0;
Cursor;
REPEATWRITELN (x);
X: =x+1;
UNTIL x=10;
END.

2.-Program prog6;

Uses CRT;

Var

X: integer;

Begin

Clrscr;

X: =1;

REPEAT

BEGIN

Gotoxy(10, 4+x);

Write (x,' CONEJITO BLANCO HIMALAYA');

X: =x+1;

END

UNTIL x = 5;

Readln;

End.

3.-Program ejemplo;
Uses crt;
Var
numero, suma, promedio : real;contador : integer;

Begin
clrscr;
Repeat
gotoxy(10,13); Write('Introduce un numero ');
readln(numero);
suma:=suma numero;
contador:=contador+1;
Until contador = 5;promedio:=suma/5;

gotoxy(10,15);Write('El promedio de esos números es ',promedio:5:2);
readln;
End.

4.-PROGRAM EJER45;
USES CRT;
VAR num: INTEGER;
BEGIN
Num: =2;
Clrscr;
REPEAT
WRITELN (num);núm.:= núm. + 2;
UNTIL núm.= 26;
END.

5.-PROGRAM EJER48;
USES CRT;
VAR tabla, x, num: INTEGER;
BEGIN
Cursor;
WRITE ('Introduzca un numero para hacer su tabla de
Multiplicar: ');
READLN (num);WRITELN ('');
REPEAT
WRITELN (table);
X: = x + 1;
Table: = num * x;
UNTIL x=11;
END.
6.-PROGRAM EJER49;
USES CRT;
VAR respuesta: CHAR;
BEGIN
Clrscr;
REPEAT
WRITELN ('DESEACONTINUAR: S/N '); READLN (respuesta);
UNTIL respuesta='N';
END.

7.-PROGRAM EJER50;
USES CRT;
VAR tiempo: REAL;
VAR cap_ini, cap_fin: REAL;
CONST interés = 0.05;
BEGIN
Clrscr;
WRITE ('Introduzcael capital para calcular cuánto tardara ');
WRITE ('en duplicarse, con un interés del 5%: ');
READLN (cap_ini);
WRITELN ('');
IF cap_ini < 0 THEN
BEGIN
WRITE ('No se puede incluir un capitalnegativo');
EXIT;
END;
Tiempo:=0;
cap_fin:= cap_ini;
REPEAT
cap_fin:=cap_fin + (cap_fin * interés);
Tiempo:= tiempo + 1;
UNTIL cap_fin > (cap_ini * 2);
WRITELN ('Tardara', tiempo: 3:0,'...
tracking img