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.
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
0