Pascal/Turbo Pascal - Otra duda con otro problema de pascal

   
Vista:

Otra duda con otro problema de pascal

Publicado por federico (19 intervenciones) el 02/05/2011 00:49:36
Buenas de nuevo, disculpen que moleste tanto pero lo que pasa es que no tengo a quien preguntarle.
Tengo este ejercicio y no me cuenta "'EL total de horas trabajadas para el turno tarde es ', osea solamente me cuenta el del turno mañana no sé porqué....Otra pregunta más, como hago para poner un "repeat" para que los números de los empleados sean distintos uno del otro? no sé que poner en el "until".

Mil gracias desde ya.



program dsds(input,output);
uses crt;
var i,acumm,acumt,ns,cantem,n1,n2,ne, canth,acum,l:integer;
turno,t,m:char;
begin
acumt:=0;
acumm:=0;
for i:=1 to 2 do
begin
writeln('ingresar numero de seccion');
readln(ns);
writeln('ingresar empleados');
readln(cantem);
acum:=0;
for l:= 1 to cantem do
begin
writeln('ingresar numero de empleado');
readln(ne);
writeln('ingresar cantidad de horas trabajadas');
readln(canth);
repeat
writeln('ingresar turno');
readln(turno);
until (turno='t') or (turno='m');
if turno=t then acumt:=acumt+canth
else acumm:=acumm+canth;
acum:=acum+canth;
end;
writeln('el promedio horas de la seccion es', acum/cantem:5:5);
end;
writeln('El total de horas trabajadas para el turno tarde es ', acumt);
writeln('El total de horas trabajadas para el turno mañana es ', acumm);
repeat until keypressed;
end.
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

Otra duda con otro problema de pascal

Publicado por ramon (2072 intervenciones) el 02/05/2011 11:57:08
{Comprueba este código es como tu lo presentas pero dando el numero de empleado a cada uno
diferente a ver si es lo que quieres sino comenta y intentare ayudar te mas}

program trabajo;
uses
crt;
var
emplet, emplem, horast, horasm, totalt, totalm : integer;
fin, turn, cont, horas, empln, secc, seccm : integer;
turno : char;
begin
clrscr;
textcolor(15);
write('ingrese N§ turnos 1 o 2 : ');
readln(turn);
clrscr;
fin := 1;
repeat
textcolor(15);
writeln('turno N§ : ',fin);
writeln;
write('ingresar numero de seccion : ');
readln(secc);
write('ingresar numero de empleados : ');
readln(empln);
write('ingresar turno [t/m] : ');
readln(turno);
if turno in['m','M'] then
emplem := empln;
if turno in['t','T'] then
emplet := empln;
cont := 1;
repeat
write('Empleado N§ ',cont,' ingresar cantidad de horas trabajadas : ');
readln(horas);
cont := cont + 1;
if turno in['t','T'] then
totalt := totalt + horas;
if turno in['m','M'] then
totalm := totalm + horas;
until cont > empln;
fin := fin + 1;
clrscr;
until fin > turn;
clrscr;
writeln('horas totales Turno Ma¤ana = ',totalm);
writeln('el promedio horas de la seccion es', totalm / emplem:8:2);
writeln;
writeln('horas totales Turno Tarde = ',totalt);
writeln('el promedio horas de la seccion es', totalm / emplet:8:2);
writeln;
writeln('Pulse una tecla para salir');
repeat until keypressed;
end.
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