Menú para Ordenar Números
Program logicander;
Uses WinCrt;
Var
i, j, opc : integer;
Begin
WriteLn ( 'Menu para Ordenar Numeros' );
WriteLn ( '1-Ordenar por Numeros pares' );
WriteLn ( '2-Ordenar por Numeros impares' );
WriteLn ( '3-Ordenar por Numeros primos' );
ReadLn (opc);
If opc=1 then
Begin
ClrScr;
For i:= 1 to 10 do
If (i mod 2)=0 then
WriteLn (i);
end;
If opc=2 then
Begin
ClrScr;
For i:=1 to 10 do
If (i mod 2)=1 then
WriteLn (i);
end;
If opc=3 then
Begin
ClrScr;
For j:= 1 to 2 do
WriteLn (j);
For i:=3to 10 do
If (i mod 2)=1 then
If (i<>9) then
WriteLn (i)
end;
end.
Notas y promedio (con contador)
Program Logicander;
Uses WinCrt;
Var
contador, nota, promedio : real;
i, n : integer;
Begin
WriteLn ( '¿Cuantas notas tiene el alumno?' );
ReadLn (n);
For i:= 1 to n do
Begin
WriteLn ( 'Ingrese nota', i);
ReadLn (nota);
contador:= contador+nota;
end;
WriteLn ( 'La suma es: ', contador:3:2);
promedio:= contador/n;
WriteLn ( 'El promedio es: ', promedio:3:2);
end.
Uses WinCrt;
Var
contador, nota, promedio : real;
i, n : integer;
Begin
WriteLn ( '¿Cuantas notas tiene el alumno?' );
ReadLn (n);
For i:= 1 to n do
Begin
WriteLn ( 'Ingrese nota', i);
ReadLn (nota);
contador:= contador+nota;
end;
WriteLn ( 'La suma es: ', contador:3:2);
promedio:= contador/n;
WriteLn ( 'El promedio es: ', promedio:3:2);
end.
Menú de Ordenamiento desde 1-10 (Ascendente y Descendente) (Con N)
Program Logicander;
Uses WinCrt;
Var
i, n, opc : integer;
Begin
WriteLn ( 'Menu' );
WriteLn ( '1.- Ordenar de Manera Ascendente 1-n' );
WriteLn ( '2.- Ordenar de Manera Descendente n-1' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Ordenar de manera Ascendente' );
WriteLn ( '¿Cuantas veces desea que se repita?' );
ReadLn (n);
for i:= 1 to n do
WriteLn (i);
end;
If opc=2 then
Begin
WriteLn ( 'Ordenar de manera Descendente' );
WriteLn ( '¿Cuantas veces desea que se repita?' );
ReadLn (n);
for i:= n downto 1 do
WriteLn (i);
end;
end.
Menú de Ordenamiento desde 1-10 (Ascendente y Descendente)
Program Logicander;
Uses WinCrt;
Var
i, n, opc : integer;
Begin
WriteLn ( 'Menu' );
WriteLn ( '1.- Ordenar de Manera Ascendente 1-10' );
WriteLn ( '2.- Ordenar de Manera Descendente 10-1' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Ordenar de manera Ascendente' );
for i:= 1 to 10 do
WriteLn (i);
end;
If opc=2 then
Begin
WriteLn ( 'Ordenar de manera Descendente' );
for i:= 10 downto 1 do
WriteLn (i);
end;
end.
Uses WinCrt;
Var
i, n, opc : integer;
Begin
WriteLn ( 'Menu' );
WriteLn ( '1.- Ordenar de Manera Ascendente 1-10' );
WriteLn ( '2.- Ordenar de Manera Descendente 10-1' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Ordenar de manera Ascendente' );
for i:= 1 to 10 do
WriteLn (i);
end;
If opc=2 then
Begin
WriteLn ( 'Ordenar de manera Descendente' );
for i:= 10 downto 1 do
WriteLn (i);
end;
end.
¿Cuantas veces desea repetir lógica? (Descendente)
Program logicander;
Uses WinCrt;
Var
i, n : integer;
Begin
WriteLn ( '¿Cuantas veces desea repetir logica?' );
ReadLn (n);
For i:= n downto 1 do
WriteLn ( 'La Curse', i)
end.
Uses WinCrt;
Var
i, n : integer;
Begin
WriteLn ( '¿Cuantas veces desea repetir logica?' );
ReadLn (n);
For i:= n downto 1 do
WriteLn ( 'La Curse', i)
end.
¿Cuantas veces deseas repetir lógica? (Ascendente)
Program logicander;
Uses WinCrt;
Var
i, n : integer;
Begin
WriteLn ( '¿Cuantas veces desea repetir logica?' );
ReadLn (n);
For i:= 1 to n do
WriteLn ( 'La Curse', i)
end.
Uses WinCrt;
Var
i, n : integer;
Begin
WriteLn ( '¿Cuantas veces desea repetir logica?' );
ReadLn (n);
For i:= 1 to n do
WriteLn ( 'La Curse', i)
end.
Repetir 'Hola' (Ascendente)
Program logicander;
Uses WinCrt;
Var
i : integer;
Begin
WriteLn ( 'Repite Hola de Forma Ascendente' );
For i:= 1 to 10 do
WriteLn ( 'Hola', i);
end.
Uses WinCrt;
Var
i : integer;
Begin
WriteLn ( 'Repite Hola de Forma Ascendente' );
For i:= 1 to 10 do
WriteLn ( 'Hola', i);
end.
Repetir 'Hola'
Program logicander;
Uses WinCrt;
Var
i : integer;
Begin
For i:= 1 to 3 do
WriteLn ( 'Hola' );
end.
Uses WinCrt;
Var
i : integer;
Begin
For i:= 1 to 3 do
WriteLn ( 'Hola' );
end.
Menú de Sistemas de Conversión
Program logicander;
Uses WinCrt;
Var
kilogramos, toneladas, gramos, kilometros, centimetros, litros, onzas, metros, mililitros : real;
opc : integer;
Begin
Writeln ( 'Menu de Sistemas de Conversion' );
WriteLn ( '1- Medidas de Peso' );
WriteLn ( '2- Medidas de Volumen' );
WriteLn ( '3- Medidas de Distancia' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Submenu de Medidas de Peso' );
WriteLn ( '1-Gramos a Kilogramos' );
WriteLn ( '2-Gramos a Toneladas' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Gramos a Kilogramos' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
kilogramos:=gramos*0.001;
WriteLn ( 'Gramos en kilogramos son: ', kilogramos:5:3);
end;
If opc=2 then
Begin
WriteLn ( 'Gramos a Toneladas' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
toneladas:=gramos*0.000001;
WriteLn ( 'Gramos en toneladas son: ', toneladas:5:3);
end;
end;
If opc=2 then
Begin
WriteLn ( 'Submenu de Medidas de Volumen' );
WriteLn ( '1-Litros a Mililitros' );
WriteLn ( '2-Litros a Onzas liquidas' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Litros a Mililitros' );
WriteLn ( 'Ingrese litros' );
ReadLn (litros);
mililitros:=litros*1000;
WriteLn ( 'Litros en mililitros son: ', mililitros:5:3);
end;
If opc=2 then
Begin
WriteLn ( 'Litros a Onzas liquidas' );
WriteLn ( 'Ingrese litros' );
ReadLn (litros);
onzas:=litros/0.0295;
WriteLn ( 'Litros a Onzas líquidas son: ', onzas:5:3);
end;
end;
If opc=3 then
Begin
WriteLn ( 'Submenu de Medidas de Distancia' );
WriteLn ( '1-Metros a Kilómetros' );
WriteLn ( '2-Metros a Centímetros' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Metros a Kilometros' );
WriteLn ( 'Ingrese metros' );
ReadLn (metros);
kilometros:=metros*0.001;
WriteLn ( 'Metros en Kilometros son: ', kilometros:5:3);
end;
If opc=2 then
Begin
WriteLn ( 'Metros a Centimetros' );
WriteLn ( 'Ingrese metros' );
ReadLn (metros);
centimetros:=metros*100;
WriteLn ( 'Metros a Centimetros son: ', centimetros:4:3);
end;
end;
end.
Menú para novios
Program logicander;
Uses WinCrt;
Var
si, no, opc : integer;
Begin
WriteLn ( 'Menu para novios' );
WriteLn ( '¿Quieres ser mi novia?' );
WriteLn ( 'Pulse 1 para decir que SI' );
WriteLn ( 'Pulse 2 para decir que NO' );
ReadLn (opc);
If opc=1 then
WriteLn ( '¡Te han dicho que SI!' )
else
If opc=2 then
Begin
WriteLn ( '¡Te han dicho que NO! FRIENDZONED' );
WriteLn ( '¿Quieres seguir intentando?' );
WriteLn ( 'Pulse 1 para decir que SI' );
WriteLn ( 'Pulse 2 para decir que NO' );
ReadLn (opc);
If opc=1 then
WriteLn ( '¡Felicitaciones, la ladilla ha dado frutos!' )
else
If opc=2 then
WriteLn ( 'Lo siento campeon, la vida continua' )
end;
end.
Uses WinCrt;
Var
si, no, opc : integer;
Begin
WriteLn ( 'Menu para novios' );
WriteLn ( '¿Quieres ser mi novia?' );
WriteLn ( 'Pulse 1 para decir que SI' );
WriteLn ( 'Pulse 2 para decir que NO' );
ReadLn (opc);
If opc=1 then
WriteLn ( '¡Te han dicho que SI!' )
else
If opc=2 then
Begin
WriteLn ( '¡Te han dicho que NO! FRIENDZONED' );
WriteLn ( '¿Quieres seguir intentando?' );
WriteLn ( 'Pulse 1 para decir que SI' );
WriteLn ( 'Pulse 2 para decir que NO' );
ReadLn (opc);
If opc=1 then
WriteLn ( '¡Felicitaciones, la ladilla ha dado frutos!' )
else
If opc=2 then
WriteLn ( 'Lo siento campeon, la vida continua' )
end;
end.
Calculo del Sueldo según Salario Mínimo
Program logicander;
Uses WinCrt;
Var
diurno, nocturno, cdiurno, cnocturno, total : real;
Begin
WriteLn ( 'Ingrese las horas diurnas trabajadas' );
ReadLn (diurno);
WriteLn ( 'Ingrese las horas nocturnas trabajadas' );
ReadLn (nocturno);
WriteLn ( 'Ingrese el costo de las horas diurnas trabajadas' );
ReadLn (cdiurno);
WriteLn ( 'Ingrese el costo de las horas nocturnas trabajadas' );
ReadLn (cnocturno);
total:= (diurno*cdiurno)+(nocturno*cnocturno);
WriteLn ( 'Su sueldo mensual seria: ', total:5:3);
If total<1780 then
WriteLn ( 'Usted gana por debajo del sueldo minimo' )
else
WriteLn ( 'Usted gana por encima del sueldo minimo' )
end.
Calculo de edad
Program logicander;
Uses WinCrt;
Var
edad, falta, fn, presente : integer;
Begin
WriteLn ( 'Ingrese el año actual' );
ReadLn (presente);
WriteLn ( 'Ingrese su año de nacimiento' );
ReadLn (fn);
edad:= presente-fn;
falta:= 18-edad;
WriteLn ( 'Su edad es: ', edad);
WriteLn ( 'Le falta/n para ser mayor de edad: ', falta);
If edad<18 then
WriteLn ( 'Usted aun es menor de edad')
Else
WriteLn ( 'Usted ya es mayor de edad' )
end.
Uses WinCrt;
Var
edad, falta, fn, presente : integer;
Begin
WriteLn ( 'Ingrese el año actual' );
ReadLn (presente);
WriteLn ( 'Ingrese su año de nacimiento' );
ReadLn (fn);
edad:= presente-fn;
falta:= 18-edad;
WriteLn ( 'Su edad es: ', edad);
WriteLn ( 'Le falta/n para ser mayor de edad: ', falta);
If edad<18 then
WriteLn ( 'Usted aun es menor de edad')
Else
WriteLn ( 'Usted ya es mayor de edad' )
end.
Menú Miligramos/Kilogramos/Onzas/Toneladas
Program logicander;
Uses WinCrt;
Var
miligramos, kilogramos, onzas, toneladas, gramos, opc : real;
Begin
WriteLn ( 'Menu para transformar de gramos alguna de las siguientes opciones' );
WriteLn ( 'Pulse 1 para transformar a Miligramos' );
WriteLn ( 'Pulse 2 para transformar a Kilogramos' );
WriteLn ( 'Pulse 3 para transformar a Onzas' );
WriteLn ( 'Pulse 4 para transformar a Toneladas' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Transformaremos de Gramos a Miligramos' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
miligramos:= gramos*1000;
WriteLn ( 'El resultado en miligramos seria: ', miligramos:5:5);
end;
If opc=2 then
Begin
WriteLn ( 'Transformaremos de Gramos a Kilogramos' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
kilogramos:= gramos*0.001;
WriteLn ( 'El resultado en kilogramos seria: ', kilogramos:5:5);
end;
If opc=3 then
Begin
WriteLn ( 'Transformaremos de Gramos a Onzas' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
onzas:= gramos*0.0352740;
WriteLn ( 'El resultado en Onzas seria: ', onzas:5:5);
end;
If opc= 4 then
Begin
WriteLn ( 'Transformaremos de Gramos a Toneladas' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
toneladas:= gramos*0.000001;
WriteLn ( 'El resultado en Toneladas seria: ', toneladas:5:5);
end;
end.
Uses WinCrt;
Var
miligramos, kilogramos, onzas, toneladas, gramos, opc : real;
Begin
WriteLn ( 'Menu para transformar de gramos alguna de las siguientes opciones' );
WriteLn ( 'Pulse 1 para transformar a Miligramos' );
WriteLn ( 'Pulse 2 para transformar a Kilogramos' );
WriteLn ( 'Pulse 3 para transformar a Onzas' );
WriteLn ( 'Pulse 4 para transformar a Toneladas' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Transformaremos de Gramos a Miligramos' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
miligramos:= gramos*1000;
WriteLn ( 'El resultado en miligramos seria: ', miligramos:5:5);
end;
If opc=2 then
Begin
WriteLn ( 'Transformaremos de Gramos a Kilogramos' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
kilogramos:= gramos*0.001;
WriteLn ( 'El resultado en kilogramos seria: ', kilogramos:5:5);
end;
If opc=3 then
Begin
WriteLn ( 'Transformaremos de Gramos a Onzas' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
onzas:= gramos*0.0352740;
WriteLn ( 'El resultado en Onzas seria: ', onzas:5:5);
end;
If opc= 4 then
Begin
WriteLn ( 'Transformaremos de Gramos a Toneladas' );
WriteLn ( 'Ingrese gramos' );
ReadLn (gramos);
toneladas:= gramos*0.000001;
WriteLn ( 'El resultado en Toneladas seria: ', toneladas:5:5);
end;
end.
Mayor de 5 numeros
Program logicander;
Uses WinCrt;
Var
a, b, c, d, e : integer;
Begin
WriteLn ( 'Ingrese A' );
ReadLn (a);
WriteLn ( 'Ingrese B' );
ReadLn (b);
WriteLn ( 'Ingrese C' );
ReadLn (c);
WriteLn ( 'Ingrese D' );
ReadLn (d);
WriteLn ( 'Ingrese E' );
ReadLn (e);
If (a>b) and (a>c) and (a>d) and (a>e) then
WriteLn ( 'Mayor es A' )
Else
If (b>a) and (b>c) and (b>d) and (b>e) then
WriteLn ( 'Mayor es B' )
Else
If (c>a) and (c>b) and (c>d) and (c>e) then
WriteLn ( 'Mayor es C' )
Else
If (d>a) and (d>b) and (d>c) and (d>e) then
WriteLn ( 'Mayor es D' )
Else
If (e>a) and (e>b) and (e>c) and (e>d) then
WriteLn ( 'Mayor es E' )
end.
Uses WinCrt;
Var
a, b, c, d, e : integer;
Begin
WriteLn ( 'Ingrese A' );
ReadLn (a);
WriteLn ( 'Ingrese B' );
ReadLn (b);
WriteLn ( 'Ingrese C' );
ReadLn (c);
WriteLn ( 'Ingrese D' );
ReadLn (d);
WriteLn ( 'Ingrese E' );
ReadLn (e);
If (a>b) and (a>c) and (a>d) and (a>e) then
WriteLn ( 'Mayor es A' )
Else
If (b>a) and (b>c) and (b>d) and (b>e) then
WriteLn ( 'Mayor es B' )
Else
If (c>a) and (c>b) and (c>d) and (c>e) then
WriteLn ( 'Mayor es C' )
Else
If (d>a) and (d>b) and (d>c) and (d>e) then
WriteLn ( 'Mayor es D' )
Else
If (e>a) and (e>b) and (e>c) and (e>d) then
WriteLn ( 'Mayor es E' )
end.
Menú Circulo/Cuadrado/Triangulo
Program logicander;
Uses WinCrt;
Var
circulo, cuadrado, triangulo, op, radio, area, lado, ac, at, a, l : real;
begin
WriteLn ( 'Menu de Geometria' );
WriteLn ( '1.- Area de un Circulo' );
WriteLn ( '2.- Area de un Cuadrado' );
WriteLn ( '3.- Area de un Triangulo' );
WriteLn ( 'Ingrese una opcion' );
ReadLn (op);
If op=1 then
Begin
WriteLn ( 'Calcularemos el Area de un Circulo' );
WriteLn ( 'Ingrese el radio' );
ReadLn (radio);
area:= 3.1416*(radio*radio);
WriteLn ( 'El resultado es: ', area:3:3);
end;
If op=2 then
Begin
WriteLn ( 'Calcularemos el Area de un Cuadrado' );
WriteLn ( 'Ingrese el lado' );
ReadLn (lado);
ac:= (lado*lado);
WriteLn ( 'El area del Cuadrado es: ', ac:3:3);
end;
If op=3 then
Begin
WriteLn ( 'Calcularemos el Area de un Triangulo' );
WriteLn ( 'Ingrese el lado' );
ReadLn (l);
WriteLn ( 'Ingrese la altura' );
ReadLn (a);
at:= (l*a)/2;
WriteLn ( 'El area del Triangulo es: ', at:3:3);
end;
end.
Menú Suma/Resta/Multiplicación
Program logicander;
Uses WinCrt;
Var
opc : integer;
a, b, re : integer;
begin
WriteLn ( 'Menu de Matematica' );
WriteLn ( '1.- Suma' );
WriteLn ( '2.- Resta' );
WriteLn ( '3.- Multiplicacion' );
WriteLn ( 'Ingrese una opcion' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
re:= a+b;
WriteLn ( 'El resultado de la suma es: ', re);
end;
If opc=2 then
Begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b');
ReadLn (b);
re:= a-b;
WriteLn ( 'El resultado de la resta es: ', re);
end;
If opc=3 then
Begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
re:= a*b;
WriteLn ( 'El resultado de la multiplicacion es: ', re);
end;
end.
Uses WinCrt;
Var
opc : integer;
a, b, re : integer;
begin
WriteLn ( 'Menu de Matematica' );
WriteLn ( '1.- Suma' );
WriteLn ( '2.- Resta' );
WriteLn ( '3.- Multiplicacion' );
WriteLn ( 'Ingrese una opcion' );
ReadLn (opc);
If opc=1 then
Begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
re:= a+b;
WriteLn ( 'El resultado de la suma es: ', re);
end;
If opc=2 then
Begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b');
ReadLn (b);
re:= a-b;
WriteLn ( 'El resultado de la resta es: ', re);
end;
If opc=3 then
Begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
re:= a*b;
WriteLn ( 'El resultado de la multiplicacion es: ', re);
end;
end.
Condición del Alumno - Notas
Program logicander;
Uses WinCrt;
Var
n1, n2, n3, n4, total : integer;
prom, nota : real;
begin
WriteLn ( 'Ingrese la nota del Primer corte' );
ReadLn (n1);
WriteLn ( 'Ingrese la nota del Segundo corte' );
ReadLn (n2);
WriteLn ( 'Ingrese la nota del Tercer corte' );
ReadLn (n3);
WriteLn ( 'Ingrese la nota del Cuarto corte' );
ReadLn (n4);
total:= n1+n2+n3+n4;
prom:= total/4;
nota:= (prom*20)/100;
WriteLn ( 'La suma de los cuatro cortes es: ', total);
WriteLn ( 'El promedio de los cuatro cortes es: ', prom:3:2);
WriteLn ( 'La nota final es: ', nota:3:2);
If nota<10 then
WriteLn ( 'Reprobado' )
else
If (nota>10) and (nota<12) then
WriteLn ( 'Regular' )
else
If (nota>12) and (nota<14) then
WriteLn ( 'Bueno' )
else
If (nota>14) and (nota<17) then
WriteLn ( 'Sobresaliente' )
else
If nota>17 then
WriteLn ( 'Excelente' )
end.
Uses WinCrt;
Var
n1, n2, n3, n4, total : integer;
prom, nota : real;
begin
WriteLn ( 'Ingrese la nota del Primer corte' );
ReadLn (n1);
WriteLn ( 'Ingrese la nota del Segundo corte' );
ReadLn (n2);
WriteLn ( 'Ingrese la nota del Tercer corte' );
ReadLn (n3);
WriteLn ( 'Ingrese la nota del Cuarto corte' );
ReadLn (n4);
total:= n1+n2+n3+n4;
prom:= total/4;
nota:= (prom*20)/100;
WriteLn ( 'La suma de los cuatro cortes es: ', total);
WriteLn ( 'El promedio de los cuatro cortes es: ', prom:3:2);
WriteLn ( 'La nota final es: ', nota:3:2);
If nota<10 then
WriteLn ( 'Reprobado' )
else
If (nota>10) and (nota<12) then
WriteLn ( 'Regular' )
else
If (nota>12) and (nota<14) then
WriteLn ( 'Bueno' )
else
If (nota>14) and (nota<17) then
WriteLn ( 'Sobresaliente' )
else
If nota>17 then
WriteLn ( 'Excelente' )
end.
Calculo de Masa Corporal 2
Program logicander;
Uses WinCrt;
Var
imc, peso, altura : real;
begin
WriteLn ( 'Ingrese su peso' );
ReadLn (peso);
WriteLn ( 'Ingrese su altura' );
ReadLn (altura);
imc:= peso/(altura*altura);
WriteLn ( 'Su IMC es: ', imc:5:2);
If imc<19 then
WriteLn ( 'Delgado' )
else
If (imc>19) and (imc<25) then
WriteLn ( 'Normal' )
else
If imc>22 then
WriteLn ( 'Ideal' )
else
If (imc>26) and (imc<30) then
WriteLn ( 'Sobrepeso' )
else
If imc>30 then
WriteLn ( 'Controle su Peso' )
end.
Uses WinCrt;
Var
imc, peso, altura : real;
begin
WriteLn ( 'Ingrese su peso' );
ReadLn (peso);
WriteLn ( 'Ingrese su altura' );
ReadLn (altura);
imc:= peso/(altura*altura);
WriteLn ( 'Su IMC es: ', imc:5:2);
If imc<19 then
WriteLn ( 'Delgado' )
else
If (imc>19) and (imc<25) then
WriteLn ( 'Normal' )
else
If imc>22 then
WriteLn ( 'Ideal' )
else
If (imc>26) and (imc<30) then
WriteLn ( 'Sobrepeso' )
else
If imc>30 then
WriteLn ( 'Controle su Peso' )
end.
a>b a>c b>a b>c c>a c>b
Program logicander;
Uses WinCrt;
Var
a, b, c : integer;
begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
WriteLn ( 'Ingrese c' );
ReadLn (c);
If (a>b) and (a>c) then
WriteLn ( 'Mayor es a' )
else
If (b>a) and (b>c) then
WriteLn ( 'Mayor es b' )
else
If (c>a) and (c>b) then
WriteLn ( 'Mayor es c' )
end.
Uses WinCrt;
Var
a, b, c : integer;
begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
WriteLn ( 'Ingrese c' );
ReadLn (c);
If (a>b) and (a>c) then
WriteLn ( 'Mayor es a' )
else
If (b>a) and (b>c) then
WriteLn ( 'Mayor es b' )
else
If (c>a) and (c>b) then
WriteLn ( 'Mayor es c' )
end.
a>b
Program logicander;
Uses WinCrt;
Var
a, b : integer;
begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
If a>b then
WriteLn ( 'Mayor es a' )
else
WriteLn ( 'Mayor es b' )
end.
Uses WinCrt;
Var
a, b : integer;
begin
WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
If a>b then
WriteLn ( 'Mayor es a' )
else
WriteLn ( 'Mayor es b' )
end.
Suscribirse a:
Comentarios (Atom)