[ Foro de Pascal ]

array

09-Nov-2020 07:18
yam esp
0 Respuestas

buenas! necesito ayuda con esto, quiero saber qué es lo que estoy haciendo mal, en la parte que ingreso el rol al imprimirlo me tira una oración con diferentes signos, a lo cual se espera los precios cargados previamente. Espero respuesta. Gracias de antemano.



program quince;
const dimF1=1000;
     dimF2=5;
type cP=1..dimF1;
    rl=1..5;
    stg=string[20];
    roles=array[1..dimF2]of real;
    part=record
         paisR:stg;
         codP:cP;
         nomP:stg;
         rol:roles;
         cantHT:integer;
         end;
    partS=array[1..dimF2]of part;

procedure cargarR(var r:roles);
begin
 r[1]:=35.20;
 r[2]:=27.45;
 r[3]:=31.03;
 r[4]:=44.28;
 r[5]:=39.87;
end;



var ps:parts;
   p:part;
   dimL,i:integer;
   r:roles;
   c:rl;
begin
 dimL:=0;
 cargarR(r);
 write('pais de residencia: ');readln(p.paisR);
 write('codigo de proyecto: ');readln(p.codP);
 while(diml<dimF1)and(p.codP<>-1)do begin
   write('nombre del proyecto: ');readln(p.nomP);
   write('rol: ');readln(p.rol[c]);
   write('cantidad de horas trabajadas: ');readln(p.cantHT);
   diml:=diml+1;
   ps[diml]:=p;  
   write('pais de residencia: ');readln(p.paisR);
   write('codigo de proyecto: ');readln(p.codP);
 end;




 for i:=1 to dimL do {imprime el vector/prueba}
   writeln(ps[i]);    
 readln;
end.




(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)