uses crt;
procedure ejercicio_1;
Var
horastrabajadas: Real;
salario: Real;
total: Real;
Begin
clrscr;
Write('Horas trabajadas al mes: ');
ReadLn(horastrabajadas);
Write('Salario por hora: ');
ReadLn(salario);
total := horastrabajadas*salario;
WriteLn('El salario total sera de ',total:4:2);
End;
procedure ejercicio_2;
Var
edad: integer;
Begin
Write('Ingrese edad: ');
ReadLn(edad);
If (edad>=0) And (edad<=10) Then
WriteLn('es un infante')
Else If (edad>=11) And (edad<=17) Then
writeLn('es un adolescente')
Else If (edad>=18) And (edad<=30) Then
WriteLn('es un adulto joven')
Else If (edad>=31) And (edad<=55) Then
WriteLn('es un adulto')
Else
WriteLn('es un adulto mayor');
end;
{Principal}
begin
ejercicio_1;
writeln;
ejercicio_2;
end.
uses crt;
var
a,b,s,r,m,d:real;
opc,n1,n2,modulo:integer;
begin
clrscr;
write('Introduzca dos numeros separados con enter: ');
readln(a,b);
writeln('Que operacion desea realizar');
write('1=suma, 2=resta, 3=multiplicacion, 4=division, 5=modulo: ');
readln(opc);
case opc of
1:
begin
s:=a + b;
writeln('La suma es: ',s:4:2);
end;
2:
begin
r:=a - b;
writeln('La diferencia es es: ',r:4:2);
end;
3:
begin
m:=a * b;
writeln('El producto es: ',m:4:2);
end;
4:
begin
d:=a / b;
writeln('El resultado es: ',d:4:2);
end;
5:
begin {la operacion modulo solo es para numeros enteros}
writeln;
write('Primer numero: ');
readln(n1);
write('Segundo numero: ');
readln(n2);
modulo:=n1 mod n2;
writeln('El modulo es: ',modulo);
end;
end;
end.
uses crt;
var
mayor,a,b,c:integer;
BEGIN
clrscr;
write('Ingrese 3 numeros separados por enter: ');
readln(a,b,c);
if (a > b) and (a > c) then
mayor:=a
else if (b > a) and (b > c) then
mayor:=b
else
mayor:=c;
writeln('El mayor es: ',mayor)
END.
program guia_3
;uses wincrt;
var
grupo:char;
begin
clrscr;
write('Introduzca una letra entre A y G para saber a que grupo de futboll pertenece :');
read(grupo);
CASE UPCASE (Grupo) of
'A':writeln('Grupo A');
'B':writeln('Grupo B');
'C':writeln('Grupo C');
'D':writeln('Grupo D');
'E':writeln('Grupo E');
'F':writeln('Grupo F');
'G':writeln('Grupo G');
Else
write('no existe esta letra');
end;
end.
uses crt;
var
monto,desc:real;
begin
clrscr;
write('Monto de la compra: ');
readln(monto);
if monto < 1000 then
writeln('No tiene descuento')
else if (monto >= 1000) and (monto <= 10000) then begin
desc:=monto * 0.09;
writeln('Tiene un descuento del 9%, el total a pagar es: ',monto-desc:4:2);
end
else if (monto > 10000) and (monto <= 30000) then begin
desc:=monto * 0.15;
writeln('Tiene un descuento del 15%, el total a pagar es: ',monto-desc:4:2);
end
else begin
desc:=monto * 0.18;
writeln('Tiene un descuento del 18%, el total a pagar es: ',monto-desc:4:2);
end;
end.