Pascal/Turbo Pascal - Ayuda con ejercicios de pascal

 
Vista:
sin imagen de perfil
Val: 6
Ha disminuido su posición en 3 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con ejercicios de pascal

Publicado por kylo (8 intervenciones) el 30/06/2018 06:07:09
Hola soy estudiante universitario y nesecito ayuda con estos ejercicios:
1.- realizar un programa de pascal que introduciendo las horas de trabajo hombre al mes calcule el total a ganar por su trabajo
2.-Realizar un programa en pascal que introduzca la edad por teclado y muestre por pantalla
si edad es 0 y 10 es un infante
si edad es 11 y 17 es un adolescente
si edad es 18 y 30 es un adulto joven
si edad es 31 y 55 es un adulto
si edad es 56 y 100 es un adulto mayor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 69
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con ejercicios de pascal

Publicado por dario (38 intervenciones) el 30/06/2018 07:28:32
Hola, prueba este codigo.
Salu2.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 6
Ha disminuido su posición en 3 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con ejercicios de pascal

Publicado por kylo (8 intervenciones) el 30/06/2018 14:30:24
Gracias si compilaron puedes ayudarme con otros 2? aqui estan:
.-Introduciendo dos numeros reales y usando la sentencia CASE, debera seleccionar que operacion realizar suma(+),resta(-),multiplicacion(*),division(/),modulo(%).
.- hacer un programa que determine el mayor de 3 numeros utilizando el operador logico AND.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 69
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con ejercicios de pascal

Publicado por dario (38 intervenciones) el 30/06/2018 16:17:53
Ejercicio Nro1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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.

Ejercicio Nro 2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 6
Ha disminuido su posición en 3 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con ejercicios de pascal

Publicado por poter (8 intervenciones) el 30/06/2018 17:52:13
hola como harias tu este ejercicio yo lo hice asi:
Realizar un programa en pascal que introduciendo o seleccionando
una letra muestre en pantalla los equipos de futboll indicando
al grupo que pertenece
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 69
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con ejercicios de pascal

Publicado por dario (38 intervenciones) el 01/07/2018 05:50:15
Por lo visto esta bien, lo he compilado y no hay errores.
Salu2.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con ejercicios de pascal

Publicado por Poter (6 intervenciones) el 05/07/2018 03:20:06
Hola porfavor pueden ayudarme con este último ejercicio gracias
.- Realizar un programa que introduciendo el monto de la compra de un producto, determine los
siguientes montos
Si es menor de 1000 Bs -------- No tiene Descuento.
Si es mayor a 1000 Bs y menor de 10000 Bs. ------ tiene un Descuentos del 9%.
Si es mayor a 10000Bs y menor de 30000Bs -------tiene un descuento del 15%.
Si es mayor a 30000Bs -------- tiene un descuento del 18%.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 69
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con ejercicios de pascal

Publicado por dario (38 intervenciones) el 05/07/2018 06:24:07
Hola, te dejo este codigo por si te ayuda.
Salu2.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 6
Ha disminuido su posición en 3 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda con ejercicios de pascal

Publicado por poter (8 intervenciones) el 05/07/2018 16:53:51
Gracias por toda la ayuda Saludos!.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar