Pascal/Turbo Pascal - Solucion al problea de progresion aritmetica

   
Vista:

Solucion al problea de progresion aritmetica

Publicado por Mariano F. (57 intervenciones) el 10/12/2007 20:02:45
Holaaa a todos! Aca Subo la solucion al problema de progresion aritmetica, tal como habian pedido utliizando variables booleans y enteros, SIN utilizar strings, algo que decian que era imposible de hacer.
Cualquier cosa diganme si algo no funciona o algo para modificar :)

Program Progresion;
uses
crt;

procedure Abrir (var t:text);
begin
assign(t,"texto.txt");
reset (t)
end;

var
texto:text;
linea:byte;
num,num2,num3, aux:integer;
razon:integer;
hayprog:boolean;

begin
clrscr;
linea:=0;
Abrir(texto);
while not eof(texto) do begin
inc(linea);
read(texto,num);
read(texto,num2);
hayprog:=true;
while (hayprog=true) and (not eoln(texto)) do begin
read(texto,aux);
if (aux-num2) <> (num2-num) then begin
hayprog:=false;
if not eoln(texto) then
readln(texto,num3)
end;
razon:=aux - num2;
num:=num2;
num2:=aux;
end;
if hayprog=true then
writeln("En la linea ",linea," hay progresion de razon: ",razon)
else
writeln("En la linea ",linea, " NO hay progresion")
end;
close(texto);
readln
end.



Un abrazooo a todoss!!

Mariano F.
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:Solucion al problea de progresion aritmetica

Publicado por gustavo  (1 intervención) el 30/09/2009 14:21:16
la tienda andres se encuentra de aniversario y a programado una ceries de ofertas basadas en un porcentaje de descuento sobre el total de compra.

a) por un monto de mayor o igual a 500 mil pesos se le descuenta el 30%.

b)por un monto entre 200 mil pesos y 500 mil pesos se le descuenta el 20%.

c)y por debajo de 200 mil pesos y mayor que 80 mil pesos se le descuenta el 10%.

considerese 10 personas.
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