asdasd
Unknown
Unknown
Salomé Ureña de Henríquez (21 de octubre de 1850 - 6 de marzo de 1897) fue una reverenciada poetisa y educadora dominicana, siendo una de las figuras centrales de la poesía lírica del siglo XIX e innovadora de la educación femenina en su país.
Unknown
Liz-Art !!
Liz-Art !!
| PROGRAM Ciclo_FOR; VAR Numero : Integer; BEGIN FOR Numero := 1 to 50 DO WriteLn(Numero); END. |
| PROGRAM Ciclo_FOR_2; VAR Numero : Integer; BEGIN FOR Numero := 50 DOWNTO 1 DO WriteLn(Numero); END. |
| PROGRAM Ciclo_WHILE; VAR Numero : Integer; BEGIN Numero := 1; WHILE Numero <= 50 DO BEGIN WriteLn (Numero); Numero := Numero +1; END; END. |
| PROGRAM Ciclo_RepeatUntil; VAR Numero : Integer; BEGIN Numero := 1; REPEAT WriteLn (Numero); Numero := Numero + 1; UNTIL Numero = 50; END. |
Liz-Art !!
{$codepage UTF8}
VAR n : byte;
BEGIN
n:=1;
While n<11 do
Begin
Writeln(n);
n+=1
End;
END.
|
|
| Código fuente 11: While-do, Programa que muestra los números del 1 al 10. |
{$codepage UTF8}
VAR cadena : string;
BEGIN
cadena := ''; // cadena vacia
Write('Escriba un punto en una linea independiente para terminar : ');
While cadena <>'.' do Readln(cadena);
END.
|
|
| Código fuente 12: Otro uso de While-do. |
{$codepage UTF8}
VAR rpta : char;
a,b,area : single;
BEGIN
rpta:='S';
While (rpta='s') or (rpta='S') do
Begin
Write('Ingrese lado a : ');readln(a);
Write('Ingrese lado b : ');readln(b);
area:=a*b;
Writeln('area = ',area:10:3);
Write('Desea continuar [S] Si, [N] No : ');
Readln(rpta)
End;
END.
|
|
| Código fuente 13: Uso de While-do, para continuar con la ejecución de un programa. |
{$codepage UTF8}
USES math;
VAR rpta : char;
n,i : integer;
BEGIN
rpta:='S';
While (rpta='s') or (rpta='S') do
Begin
Write('Ingrese n : ');readln(n);
i:=1;
While i<=n do
Begin
Writeln(i:3,i**2:10,i**3:10);
i+=1
End;
Write('Desea continuar [S] Si, [N] No : ');
Readln(rpta)
End;
END.
|
TestPlistIphone
Anónimo
El estándar ATX (Advanced Technology Extended) se desarrolló como una evolución del factor de forma[1] de Baby-AT, para mejorar la funcionalidad de los actuales E/S y reducir el costo total del sistema. Este fue creado por Intel en 1995.