Programación General > Pascal

 Problema.

(1/1)

lizzmdq:
Hola a todos, bueno estaba haciendo un programa en pascal que consiste en :

[ ![/size][/b] ] Ingresar la descripcion de 25 productos, Precio Costo , Precio Venta.
[ ![/size][/b] ]  Calcule y Muestre Porcentaje de ganancias de c/u.
[ ![/size][/b] ]  Producto con costo mayor.

Aca el code de como voy.


--- Código: Text ---program prod;uses crt;varCP,VP,gan:real;DP,porc:stringpos,i:intenger;begin  clrscr;     may:=0;for i:=1 to 25 dobeginWirteln('Ingrese Descripcion del producto',i);readln(DP);writeln('Ingrese costo del producto');readln(CP);writeln('Ingrese Precio venta del producto');readln(VP);gan:=VP-CP;porc:=CP*gan/100;writeln('El porcentaje de la ganancia es :',porc);if CP>may thenbeginmay:=CP;pos:=i;end;end;writeln('El producto de mayor costo es:',pos);readkey;end. 
No puedo ver donde esta el problema.

salu2

ProfesorX:
Para empezar, tienes varios errores de sintaxis, en algunas partes pones intenger en lugar de integer, en otra parte pones Wirteln en lugar de Writeln, y finalmente, defines la variable porc como string, cuando en realidad deberia ser de tipo real.

Esos son los errores que vi a simple vista, quizas haya mas, pero no tengo mi compilador de pascal para probarlo.

Saludos :hola:

lizzmdq:
Gracias :).
Los errores de sintaxis ya los sabia , lo que queria saber eran las operaciones como estaban al final funciono (parece... :whistling: ) , asi:


--- Código: Text ---program woow;uses crt;varCP,may,porc,VP,gan:real;DP:string;pos,i:integer;begin  clrscr;     may:=0;for i:=1 to 5 dobeginWriteln('Ingrese Descripcion del producto N§ :',i);readln(DP);writeln('Ingrese Costo del producto');readln(CP);writeln('Ingrese Precio venta del producto');readln(VP);gan:=VP-CP;porc:=gan*100/VP;writeln('El porcentaje de la ganancia es :',porc:2:2);if CP>may thenbeginmay:=CP;pos:=i;end;end;writeln('El producto de mayor costo es:',pos);readkey;end.  
salu2

Navegación

[0] Índice de Mensajes