Pascal/Turbo Pascal - Escribir un programa en turbo Pascal, de sueldo de empleados y números

 
Vista:
Imágen de perfil de Isa
Val: 2
Ha disminuido su posición en 14 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Escribir un programa en turbo Pascal, de sueldo de empleados y números

Publicado por Isa (1 intervención) el 03/07/2020 16:21:05
IMG_20200703_090224

Necesito ayuda sobre como resolver estos 2 programas! El de la imagen, y este:
Escribir un programa en turbo Pascal que calcule la suma de los números enteros comprendidos entre uno (1) y cincuenta (50), usando ciclo repetitivo.

Estoy muy pérdida! Les agradecería un montón si me ayudan, por favor, necesito terminarlo hoy :(
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: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Escribir un programa en turbo Pascal, de sueldo de empleados y números

Publicado por dario (49 intervenciones) el 04/07/2020 07:39:29
Hola, te dejo el ejercicio Nro 1.
Salu2.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
	aumento:real;
	salario:integer;
begin
	clrscr;
	write('Salario del empleado: ');
	readln(salario);
 
	case salario of
		0..9000: aumento:=salario * 1.20; {20%}
		9001..15000: aumento:=salario * 1.10; {10%}
		15001..20000: aumento:=salario * 1.05; {5%}
		else aumento:=salario;
	end;
 
	writeln('Nuevo salario: ',aumento:4: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
1
Comentar
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Escribir un programa en turbo Pascal, de sueldo de empleados y números

Publicado por dario (49 intervenciones) el 04/07/2020 07:43:54
Ejercicio Nro 2:

1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var
	i,suma:integer;
begin
	clrscr;
	suma:=0;
 
	for i:=1 to 50 do
		suma:=suma + i;
 
	writeln('La suma de los numeros entre 1 y 50 es ',suma);
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