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.
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


0