Ejercicios Pascal (III) - Número máximo.

Estamos en la tercer entrega de la guía Pascal.
Anteriormente mostramos como sumar dos números.
En ésta ocasión vamos a ingresar 2 números y mostraremos en pantalla el mayor de estos 2.

El código es el siguiente:

program nuevo;
uses crt;
var a,b,c:integer;
begin
Clrscr;
writeln ('Ingrese un numero '); readln (a);
writeln ('Ingrese un numero '); readln (b);
if a > b then
c:=a
else c:=b;
writeln ('El numero mayor es ',c);
readkey;
end.

Explicación.

if a > b then: Nos encontramos con "if", es un comando condicional. Y con then (Traducción: Entonces). Lo que significa "if a > b then" es; Si la variable a es mayor a la variable b entonces.
Debajo van las instrucciones y luego nos encontramos con "Else" (Traducción: Si no).
La sintaxis de if es:

if a > b then
tareas
else
tareas;

Como pueden observar el 1ª tareas no tiene ";" y el último si. Es una regla más del if.

Traducido el comando:

Si la variable a es mayor a la variable b entonces
Tarea 1.
Si no cumple la primera condición que haga lo siguiente.
Tarea 2.

Ésto es lo único nuevo en el programa (if).

Puede intentar realizar un trabajo similar, pero en lugar de buscar el mayor buscar el menor.

Atentamente Eric.

Estamos en la tercer entrega de la guía Pascal.
Anteriormente mostramos como sumar dos números.
En ésta ocasión vamos a ingresar 2 números y mostraremos en pantalla el mayor de estos 2.

El código es el siguiente:

program nuevo;
uses crt;
var a,b,c:integer;
begin
Clrscr;
writeln ('Ingrese un numero '); readln (a);
writeln ('Ingrese un numero '); readln (b);
if a > b then
c:=a
else c:=b;
writeln ('El numero mayor es ',c);
readkey;
end.

Explicación.

if a > b then: Nos encontramos con "if", es un comando condicional. Y con then (Traducción: Entonces). Lo que significa "if a > b then" es; Si la variable a es mayor a la variable b entonces.
Debajo van las instrucciones y luego nos encontramos con "Else" (Traducción: Si no).
La sintaxis de if es:

if a > b then
tareas
else
tareas;

Como pueden observar el 1ª tareas no tiene ";" y el último si. Es una regla más del if.

Traducido el comando:

Si la variable a es mayor a la variable b entonces
Tarea 1.
Si no cumple la primera condición que haga lo siguiente.
Tarea 2.

Ésto es lo único nuevo en el programa (if).

Puede intentar realizar un trabajo similar, pero en lugar de buscar el mayor buscar el menor.

Atentamente Eric.