Prototipo

Escribir un programa que lea tres números enteros e indique
si están o no, en orden numérico ascendente o descendente.

PROGRAM EJER_001;
Uses Crt;
var num1,num2,num3:Integer;

Begin
ClrScr;

WRITELN('Introduzca tres numeros:');
WRITE('Numero 1: '); READLN(num1);
WRITE('Numero 2: '); READLN(num2);
WRITE('Numero 3: '); READLN(num3);

WRITELN;
WRITELN;

If (num1 >num2) and (num2 > num3) then
WRITELN('Ha introducido los numeros en orden decreciente.')
Else if (num1 < num2) and (num2 < num3) then
WRITELN('Ha introducido los numeros en orden creciente.')
Else
WRITELN('No ha introducido los numeros en orden.');
End.

Escribir un programa que lea 5 valores de temperatura, y escriba el
número de veces que estuvo bajo 0º.

PROGRAM EJER_002;Uses Crt;
var temp,i,cont:Integer;
Begin
WRITELN ('Introduzca 5 valores de temperatura:');
WRITELN;

cont := 0;

For i := 0 to 4 do
Begin
WRITE('Valor ',i + 1,' : '); {i + 1 mostrará valores
del 1 al 5}
Readln(temp);
If temp < 0 Then
inc(cont); {cont = cont + 1}
End;

WRITELN;
WRITE('La temperatura ha estado ',cont);

If cont = 1 then
WRITE (' vez bajo 0')Else
WRITE (' veces bajo 0');
End.

Se realiza un examen, se piden las notas del número de alumnos
introducidos por el usuario, las cuales pueden ser únicamente enteras
entre 0 y 10. Debe decirse cuantos 0, 5 y 10 han aparecido. También
deben decirse las notas introducidas que no sean 0, 5 o 10.

PROGRAM EJER_003;
Uses Crt;
var cero, cinco, diez: Integer;
var nota, i, alumnos:Integer;
var notas_no: Array [1..30] of Integer;

Begin
ClrScr;

WRITE('Introduzca el numero de alumnos: '); READLN(alumnos);
WRITELN;

WRITELN('Introduzca las calificaciones: (en valores enteros) ');
WRITELN;
For i := 1 to alumnos do
Begin
WRITE('Alumno: '); READLN(nota);
If nota = 0 then inc(cero)
else if nota = 5 then inc(cinco)
else if nota = 10 then inc(diez)else
notas_no[i] := nota;
End;

WRITELN;
WRITE('Ha habido ',cero);
If cero = 1 then WRITELN(' cero.') else WRITELN
(' ceros.');
WRITE('Ha habido ',cinco);
If cinco = 1 then WRITELN(' cinco.') else WRITELN
(' cincos.');
WRITE('Ha habido ',diez);
If diez = 1 then WRITELN(' diez.') else WRITELN
(' dieces.');
WRITELN;
WRITELN('Las notas aparecidas que no son 0, 5 o 10son: ');
For i := 1 to i DO
IF notas_no[i] <> 0 then WRITE(notas_no[i],', ');
END.

Decir el numero de vocales que aparecen en una frase introducida por
el usuario. Debe acabar con un punto.

PROGRAM EJER_004;
Uses Crt;
Const vocales: Set of Char = (['A','E','I','O','U']);
{Poniendolas en mayusculas conseguimos unificar el valor de las vocales
y evitamos decir al usuario que lasintroduzca en mayusculas o
minusculas}
var cont, i:Integer;
var letra: Char;
var frase: Array[1..85] of Char;

Begin
ClrScr;
WRITELN('Escriba una frase, acabando con un punto'); WRITELN;
i:=0;
cont:=0;

REPEAT

letra := Readkey;{Readkey no mostrará los caracteres
en pantalla}
WRITE (letra); {Debemos incluirlo para que nos muestre los
caracteres}

if UPCASE(letra) invocales then {pregutamos si la letra introducida
es una vocal}
inc(cont);

frase[i]:=letra; {guardamos el valor de la letra en el array frase}

UNTIL letra = '.';
WRITELN;
WRITELN;
WRITE ('El numero de vocales introducidas es ',cont);
End.

PROGRAM EJER_004_2;
Uses Crt;
Const vocales: Set of Char = (['A','E','I','O','U']);
{Poniendolas en mayusculas conseguimos unificar el valorde las vocales
y evitamos decir al usuario que las introduzca en mayusculas o
minusculas}
var cont, i:Integer;
var letra: Char;
var frase: String;{Es lo unico que cambia con respecto a la otra version}

Begin
ClrScr;
WRITELN('Escriba una frase, acabando con un punto'); WRITELN;
i:=0;
cont:=0;

REPEAT

letra := Readkey; {Readkey no mostrara los caracteres en pantalla}
WRITE...