Pascal/Turbo Pascal - diganme que le falta

 
Vista:

diganme que le falta

Publicado por luisd (3 intervenciones) el 23/05/2003 18:22:40
program sala;
uses crt;
type salario = record
nombre:string[35];
direccion: string[35];
telefono:string[9];
salario:real;
igss:string[25];
fechaingreso:string[10];
end;
var
nuevo_salario: array [1..150] of salario;
i:integer;
begin
clrscr;
writeln('ingrese registros');
for i:=1 to 10 do
begin
writeln('ingrese su nombre');
read( nuevo_salario[i]. nombre);
writeln(' ingrese su direccion');
read( nuevo_salario[i]. direccion);
writeln('ingrese su telefono');
read( nuevo_salario[i]. telefono);
writeln('ingrese su salario');
read( nuevo_salario[i]. salario);
writeln('ingrese su igss');
read(nuevo_salario[i]. igss);
writeln ('ingrese su fechaingreso');
read(nuevo_salario[i]. fechaingreso);
end;
for i:=1 to 10 do
begin
if nuevo_salario[i]. salario >= 1000 or
nuevo_salario[i]. salario <= 1999 then
salario:= nuevo_salario * 1.15
end;
if(nuevo_salario[i]. salario >=2000)and
(nuevo_salario[i]. salario<=3999) then
nuevo_salario[i]. salario:= nuevo_salario * 1.10
end;
if(nuevo_salario[i]. salario >=4000)and
(nuevo_salario[i]. salario<=4000) then
nuevo_salario[i]. salario:= nuevo_salario * 0.05
end;
begin
writeln(nuevo_salario[i]. nombre);
writeln (nuevo_salario[i]. salario);
end;
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

RE:diganme que le falta

Publicado por Diego Romero (786 intervenciones) el 24/05/2003 00:09:27
Aparte de sobrarte un espacio entre el punto y el nombre del campo del registro presta atención a que el for que debería hacer los calculos en el campo salario solo abarca al primer IF, el resto están afuera.
Otra cosa, tienes identificadores repetidos, el tipo "salario" declarado en la type es el mismo que el identificador de uno de los campos de ese mismo registro ("salario").
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

RE:diganme que le falta

Publicado por Cësar Augusto (182 intervenciones) el 28/05/2003 17:04:00
Además en la primera condición tienes un OR y supongo que lo que necesitas es un 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