SESIÓN 3 - 5TO. SEC. - 2009 - I.E.P. CLARETIANO

TIPOS DE DATOS EN FREE PASCAL

ENTEROS:

- Integer

- Word

- Sh0rtint

- Longint

- Byte

REALES:

- Real

- Double

- Single

- Extended

- Comp

CADENA DE CARACTERES:

- String

CARACTER:

- Char

LÓGICO:

- Boolean

SENTENCIAS BÁSICAS DE PASCAL

LECTURA:

Read o Readln Ejm:

Readln(n,m);

ESCRITURA:

Write o Writeln Ejm:

Writeln('Bodas de Oro Claret 2009'); Writeln(n);

POSICIÓN DEL CURSOR:

Gotoxy(x,y) Ejm:

Gotoxy(15,7); writeln('Somos la promo 2009');

COLOR DE TEXTO:

TEXTCOLOR(COLOR); Ejm:

Textcolor(Blue); writeln('Programando en Pascal¡);

COLOR DE FONDO DE TEXTO:

TEXTBACKGROUND(COLOR); Ejm:

Textcolor(White); Textbackgound(Red);Writeln('Viva el Perú');

ALTA INTENSIDAD:

HIGHVIDEO; Ejm:

Highvideo; write('P');

BAJA RESOLUCIÓN:

LOWVIDEO; Ejm:

Lowvideo; Writeln('Paz');

RESOLUCIÓN NORMAL:

NORMVIDEO; Ejm:

Normvideo;

LIMPIAR PANTALLA:

CLRSCR; Ejm:

Clrscr;

RETARDO:

DELAY(Valor); Ejm:

Delay(600);

LEER UNA TECLA:

READKEY; Ejm:

Readkey;

ESTRUCTURAS ALGORÍTMICAS

Sentencia Condicional If.. Then

Sintaxis:

If condición Then

Acción;

Ejm:

If A>B Then

Writeln('A es mayor que B');

Sentencia Condicional IF...Then...Else

Sintaxis:

If condición Then

Acción1

Else

Acción2;

Ejm:

If A>B Then

Writeln('A es mayor')

Else

Writeln('B es mayor');

Sentencia For..To..Do

Sintaxis:

For I:=vi to vf Do

Acción;

Ejm1:

For I:=1 to 100 Do

Writeln(I);

Ejm2:

For I:=1 to 100 do

Begin

S.=S+I;

Writeln(I);

End;

Sentencia While...Do

Sintaxis:

While Condición Do

Begin

Acción1;

AcciónN;

End;

Ejm:

While C<=100 Do

Begin

W riteln(I);

C:=C+1;

End;

Sentencia Repeat...Until

Sintaxis:

Repeat

Acción1;

AcciónN;

Until Condición;

Ejm:

Repeat

Writeln(I);

C:=C+1;

Until C>100;

Sentencia Case ...Of

Sintaxis:

Case Selector Of
Caso1: Acción1;
Caso2:Acción2;
Caso3:Acción3;
CasoN:AcciónN:
End;

Otra forma:

Case Selector Of

Caso1:Acción1;

Caso2:Acción2;

...

CasoN: AcciónN

Else

OtraAcción;

End;

Ejm:

Case n Of

1:Writeln('Uno');

2:Writeln('Dos');

3.Writeln('Tres');

4:Writeln('Cuatro');

End;

Case M Of

1..4: C:=C+4;

5..7:C:=C+7;

7..10:C:=C+10

Else

C:=C+15;

End;

TAREA

Desarrollar un programa que nos permita leer un número entero e invertirlo, el número deberá ser consistenciado para que sea un número mayor que 10.