Pascal/Turbo Pascal - Necesito ayuda urgente

   
Vista:

Necesito ayuda urgente

Publicado por Randle (1 intervención) el 30/06/2009 17:17:15
program asignacion;
uses crt;
type
cedula = array[1..30] of longint;
nombre = array[1..10] of string[10];
edad = array[1..10] of integer;
promedio = array[1..10] of integer;
region = array[1..10] of integer;
acumulado=array[1..10] of integer;
total=array[1..10] of integer;
R1=array[1..10]of integer;
R2=array[1..10]of integer;
R3=array[1..10]of integer;
var
ced:cedula;
nom: nombre;
ed:edad;
ioresult,resp:integer;
i:integer;
prom:promedio;
Reg:Region;
tot:total;
acumR1:integer;
acumR2:integer;
acumR3:integer;
seccion1:integer;
seccion2:integer;
cursoA:integer;
cursoB:integer;
procedure registro_datos(ced1:cedula;no:nombre;ed1:edad;pro:promedio;re:region);
var
cedl:longint;
nombr:string;
ed:integer;
promed:integer;
reg:integer;
R1,R2,R3:integer;
total:integer;
begin
for i:= 1 to 10 do
begin
clrscr;
cedl:=0;
while (cedl<1)do
begin
REPEAT
gotoxy(10,07);write('CEDULA ');
readln(cedl);
until ioresult=0;
end;
gotoxy(10,08); write('NOMBRE Y APELLIDO: ');
readln(nombr);
gotoxy(10,09); write('EDAD: ');
readln(ed);
clrscr;
gotoxy(10,10); write(' REGION: ');
readln(Reg);
Begin
if ((Reg='1') or (Reg='2') or (Reg='3')) then

begin
clrscr;
repeat
if((R1=0) or (R2=0) or (R3=0)) then
begin
(R1):=R1+1;
total:=(acumR1*R1/100)
until R1>=10
end;
end;
end;
clrscr;
begin
repeat
(R2):=R2+1;
total:=(acumR2*R2/100)
until R2>=10
end;
end;
clrscr;
begin
repeat
(R3):=R3+1;
total:=(acumR3*R3/100)
until R3>=10

end;
end;
(Me aparece el error "26" en la linea de comparar las Reg='1' or Reg'=2' or Reg='3'
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:Necesito ayuda urgente

Publicado por juan (44 intervenciones) el 30/06/2009 17:31:47
randle , lo q se puede ver a simple vista , no lo compile es q "(Me aparece el error "26" en la linea de comparar las Reg='1' or Reg'=2' or Reg='3' ) " porque para preguntar al ser de tipo entero va sin las comillas , no es un digito caracter, ocea hiria (Me aparece el error "26" en la linea de comparar las Reg=1 or Reg=2 or Reg=3). Saludos
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:Necesito ayuda urgente

Publicado por Willy (181 intervenciones) el 04/07/2009 22:10:05
Hola Randle.
Aún corrigiendo lo que te mensionó juan, veo que también tienes problemas en la línea 68:

total:=(acumR1*R1/100)
until R1>=10

Ten en cuenta que R1 es un array[1..10] y no uedes multiplicar acumR1 * R1
Solo podrías multipicar o dividir por ejemplo (acumR1*R1[2]/100) ya que R1[1] representa un solo valor numérico, en cambio solo R1 se refiere a una celda que contiene 10 valores numéricos.

Sigue postendo si tienes más dudas.

PD.
Es una buena idena siempre poner comentarios en tu programa para que cuando otra persona tenga que leerlos, los entienda con mayor facilidad (como en este caso).

¡Saludos!
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:Necesito ayuda urgente

Publicado por alex (1 intervención) el 07/08/2009 19:08:01
18.-Algoritmo y diagrama de flujo para escribir un programa que calcule los N primeros múltiplos de 4 (4 inclusive), donde N es un valor introducido por teclado
y la prubea de escritoio urgent enviala a mi correo es para aoita
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