Program colapso...................

Program colapso;
Uses WinCrt;
Var i,op,cont,j:integer;
Begin

Writeln ('****Menú repita para Hola****');
Writeln ('');
Writeln ('1-Ordenar por números pares');
Writeln ('2-Ordenar por números impares');
Writeln ('3-Ordenar por números primos');
Readln (op);

If op=1 then
Begin
ClrScr;
For i:=1 to 10 do
If (i mod 2)=0 then
Writeln (i);
End;

If op=2 then
writeln(j);
Begin
ClrScr;
For i:=1 to 10 do
If (i mod 2)=1 then
Writeln (i);
End;

If op=3 then
Begin
ClrScr;
for j:=1 to 2 do
writeln(j);
For i:=3 to 10 do
If ( i mod 2)=1 then
if (i<>9)then
writeln( i);

End;
End.

Leer más »

Repita For

program ordenamiento;
uses wincrt;
var
op,k,n:integer;
begin
writeln('***Menu***');
writeln('');
writeln('1-Ordenar numeros de manera Ascendente');
writeln('2-Ordenar numeros de manera Desendente');
readln(op);

if op=1 then
begin
 writeln('****Ordenar numeros de manera Ascendente****');
writeln('¿Cuantas Veces Quiere que se repita de manera Ascendente?');
readln(n);
writeln('');
for k:=1 to 10  do
writeln(k);


end

 else


if op=2 then
begin
writeln('****Ordenar numeros de manera Desendente****');
writeln('¿Cuantas Veces Quiere que se repita de manera Desendente?');
readln(n);
writeln('');
for k:=n downto 1  do
writeln(k);
end;
end.

Leer más »

El Mayor de 5 Numeros

program mayor;
uses wincrt;

var
a,c,b,d,e:integer;
begin
writeln('*****Mayor de 5 Numeros*****');
writeln('');
writeln('Introduzca un primer numero:');
readln(a);
writeln('Introduzca un segundo numero:');
readln(b);
writeln('Introduzca un tercer  numero: ');
readln(c);
writeln('Introduzca un cuarto  numero: ');
readln(d);
writeln('Introduzca un quinto  numero: ');
readln(e);
if (a>b) and (a>c) and (a>d) and (a>e) then
write('El Mayor es ', a)
else
if (b>a) and (b>c) and (b>d) and (b>e) then
write('EL Mayor es ', b)
else
if (c>a) and (c>b) and (c>d) and (c>e) then
write('EL Mayor es ', c)
else
if (d>a) and (d>c) and (d>b) and (d>e) then
write('EL Mayor es ', d)
else
if (e>a) and (e>c) and (e>d) and (e>b) then
write('EL Mayor es ', e);


end.

Leer más »

Programa de menu para coversionar los gramos

program menus;
uses wincrt;
var
op:integer;
a,b,c:real;

begin
 clrscr;
writeln('***Menu para Coversiones de Gramos***');
writeln('');
writeln('Eliga algunas de las opociones presionando numeros del 1 al 4');
writeln('');
Writeln('1- De Gramos a Miligramos');
writeln('2- De Gramos a Kilogramos');
writeln('3- De Gramos a Onzas');
writeln('4- De  Gramos a Toneladas');
readln(op);
if op=1 then
begin
write('');

write('');
writeln('*** Calculo de Gramos a Miligramos ***');
writeln('');
Writeln('Introduzca Gramos ');
readln(a);
b:= (a * 1)*1000;
write('Su Cantidad en Gramos es : ', b:2:0,' Mg');
end
else
if op=2 then
begin
write('');
writeln('*** Calculo de Gramos a Kilogramos ***');
writeln('');
Writeln('Introduzca Gramos ');
readln(a);
c:= a/1000;
write('Su Cantidad en Gramos es : ', c:2:3,' Kg');
end
else
 if op=3 then
begin
write('');
writeln('*** Calculo de Gramos a Onzas ***');
writeln('');
Writeln('Introduzca Gramos ');
readln(a);
c:= a* 0.0352740;
write('Su Cantidad en Gramos es : ', c:2:3,' Onz');
end
else
if op=4   then
begin
write('');
writeln('*** Calculo de Gramos a Toneladas***');
writeln('');
Writeln('Introduzca Gramos ');
readln(a);
c:= a/1000;
write('Su Cantidad en Gramos es : ', c:2:3,' Toneladas');
end
else
if op > 6 then
write('Error Opcion Incorecta');


end.

Leer más »

Quieres Ser MI novia

program forever;
uses wincrt;
var
op:integer;
begin
writeln('***Menu***');
writeln('');
writeln('Quieres ser mi novia?');
writeln('1- SI');
writeln('2- NO');
readln(op);
if op=1 then
write('Felicidades! Te han dicho si, "Dedicale La Cancion de Somos Novios"')
  else
if op=2 then
begin
writeln('Lo siento te han dicho que no vuelve a intetarlo');
 writeln('Quieres ser mi novia?');
writeln('1- SI');
writeln('2- NO');
readln(op);
if op=1 then
write('Tu Insistir te a dado fruto, Son Novios!!')
else
if op=2 then
write('Te sale Binomio de Oro - Olvidala!!');
end;




end.

Leer más »

Programa Para Calculo de Edad

program edad;

uses wincrt;

var

a,b,c,d:integer;

begin
writeln('****Programa Para Calculo de Edad****');
writeln('');
writeln('Introduzca su Fecha de Nacimiento Ejm: 1993 ');
readln(a);
writeln('Introduzca Año Actual Ejm: 2012 ');
readln(b);
c:=b-a;
d:=18-c;

if c >= 18 then
write('Usted es mayor de edad')
else
if c<18 then
write('Usted no es mayor de edad y le faltan, ', d ,' año(s) para cumplirlos ');

end.

Leer más »

Programa de Calculo de Sueldo

program  trabajo;
uses wincrt;
var
hdiur,hnoct,costdiur,costnoct,suma,a,b:real;
begin
writeln('****Programa de Calculo de Sueldo****');
writeln('Ingrese Costo de Horas Laboradas diurnas');
readln(costdiur);
writeln('Ingrese Horas Laboradas Diurnas');
readln(hdiur);
writeln('Ingrese Costo de Horas Laboradas Nocturnas');
readln(costnoct);
writeln('Ingrese Horas Laboradas Nocturnas');
readln(hnoct);
a:=costdiur*hdiur;
b:=costnoct*hnoct;
suma:= a+b;
write('total es ', suma:2:2);
if suma < 1780 then
write('  Usted gana una cantidad menor a sueldo minimo')
else
write('  Usted gana una cantidad mayor a sueldo minimo');

end.

Leer más »