Lunes 23 de Diciembre de 2024, 03:03
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Programación General
»
Pascal
»
Porke No Me Compila?
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Porke No Me Compila? (Leído 1392 veces)
MaRRaldo
Nuevo Miembro
Mensajes: 2
Porke No Me Compila?
«
en:
Domingo 7 de Enero de 2007, 18:14 »
0
program EIX_activitat1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
T_poli = RECORD
grau: integer;
coef: ARRAY [0..15] of real;
end;
var
a,b,PoliGran,PoliPetit,s,m:T_poli;
k:integer;
procedure llegir_polinomi (VAR p:T_poli);
var i:integer;
begin
write('GRAU MAX POLINOMI: ');
readln(p.grau); writeln;
for i:=0 to p.grau do
begin
write('Indrodueix el coeficient per a grau [',i,']: ');
readln(p.coef
);
end;
end;
procedure sumar_polinomi (VAR a,b,s:T_poli);
var i:integer;
begin
if a.grau>b.grau then
begin
PoliGran:= a;
PoliPetit:= b;
end
else
begin
PoliGran:= b;
PoliPetit:= a;
end;
for i:=0 to PoliGran.grau do
begin
s.coef
:= PoliGran.coef
+ PoliPetit.coef
;
end;
writeln; writeln;
write('EL RESULTAT DE LA SUMA ES:'); writeln;
writeln;
for i:=0 to PoliGran.grau do
begin
writeln('GRAU [',i,']: ',s.coef
:0:0,'');
end;
end;
procedure multiplicar_polinomi (VAR a,b,m:T_poli);
var i,j:integer;
begin
if a.grau>b.grau then
begin
PoliGran:= a;
PoliPetit:= b;
end
else
begin
PoliGran:= b;
PoliPetit:= a;
end;
m.coef[i+j]:=0;
for i:=0 to PoliPetit.grau do
for j:=0 to PoliGran.grau do
begin
m.coef[i+j]:=m.coef[i+j]+(PoliPetit.coef
*PoliGran.coef[j]);
end;
for i:=0 to PoliGran.grau do
begin
writeln('GRAU [',i,']: ',m.coef
:0:0,'');
end;
end;
var
opcio:integer;
begin
writeln;
writeln('OPERACIONS AMB POLINOMIS');
writeln;
writeln;
begin
repeat
writeln ('MENU:');
writeln ('Llegir polinomi');
writeln ('Sumar polinomi');
writeln ('mulitiplicar polinomi');
writeln ('sortir del programa');
readln (opcio);
case (opcio) of
1:writeln ('has escollit llegir poli');
2:writeln ('has escollit sumar poli');
3:writeln ('has escollit multiplicar poli');
0:writeln ('has escollit acabar');
else
writeln ('error');
end;
readln
until opcio = 0
readln;
end.
me da un error en readln; y en el end. final, alguna ayuda plz
Tweet
robertogt
Miembro activo
Mensajes: 97
Nacionalidad:
Re: Porke No Me Compila?
«
Respuesta #1 en:
Domingo 7 de Enero de 2007, 23:20 »
0
proba con este codigo
Código: Text
program EIX_activitat1;
uses
CRT; {le cambié esto para que me corriera, es decir el SysUtils}
type
T_poli = RECORD
grau: integer;
coef: ARRAY [0..15] of real;
end;
var
a,b,PoliGran,PoliPetit,s,m:T_poli;
k:integer;
procedure llegir_polinomi (VAR p:T_poli);
var i:integer;
begin
write('GRAU MAX POLINOMI: ');
readln(p.grau); writeln;
for i:=0 to p.grau do
begin
write('Indrodueix el coeficient per a grau [',i,']: ');
readln(p.coef[i]);
end;
end;
procedure sumar_polinomi (VAR a,b,s:T_poli);
var i:integer;
begin
if a.grau>b.grau then
begin
PoliGran:= a;
PoliPetit:= b;
end
else
begin
PoliGran:= b;
PoliPetit:= a;
end;
for i:=0 to PoliGran.grau do
begin
s.coef[i] := PoliGran.coef[i] + PoliPetit.coef[i];
end;
writeln; writeln;
write('EL RESULTAT DE LA SUMA ES:'); writeln;
writeln;
for i:=0 to PoliGran.grau do
begin
writeln('GRAU [',i,']: ',s.coef[i]:0:0,'');
end;
end;
procedure multiplicar_polinomi (VAR a,b,m:T_poli);
var i,j:integer;
begin
if a.grau>b.grau then
begin
PoliGran:= a;
PoliPetit:= b;
end
else
begin
PoliGran:= b;
PoliPetit:= a;
end;
m.coef[i+j]:=0;
for i:=0 to PoliPetit.grau do
for j:=0 to PoliGran.grau do
begin
m.coef[i+j]:=m.coef[i+j]+(PoliPetit.coef[i]*PoliGran.coef[j]);
end;
for i:=0 to PoliGran.grau do
begin
writeln('GRAU [',i,']: ',m.coef[i]:0:0,'');
end;
end;
var
opcio:integer;
begin
writeln;
writeln('OPERACIONS AMB POLINOMIS');
writeln;
writeln;
{begin} {le quite el begin que estaba aqui}
repeat
writeln ('MENU:');
writeln ('Llegir polinomi');
writeln ('Sumar polinomi');
writeln ('mulitiplicar polinomi');
writeln ('sortir del programa');
readln (opcio);
case (opcio) of
1:writeln ('has escollit llegir poli');
2:writeln ('has escollit sumar poli');
3:writeln ('has escollit multiplicar poli');
0:writeln ('has escollit acabar');
else
writeln ('error');
end;
readln; {le agrege;}
until opcio = 0; {le agrege;}
readln;
end.
Un dia sin sol es como, ya sabes, ... noche
Saiyan1
Miembro activo
Mensajes: 54
Re: Porke No Me Compila?
«
Respuesta #2 en:
Lunes 8 de Enero de 2007, 15:43 »
0
Código: Text
else
writeln ('error');
end;
readln
until opcio = 0
readln;
end.
en esta ultima parte de tu codigo
no lei nada del codigo.. me fie en lo que describiste del error que comentas...
te falta punto y coma despues del readln
y otro punto y coma despues de until opcio = 0
o sea que te quedaría
Código: Text
readln;
until opcio = 0;
readln;
end.
Saludos
----------------------
Gustavo Insaurralde
Foro de Analista Programador
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Programación General
»
Pascal
»
Porke No Me Compila?