Operatii simple specifice sirurilor recurente

Acasă > Operatii simple specifice sirurilor recurente

3.1.Citirea sirurilor din fisier

Citirea dintr-un fisier text `f1.txt` a elementelor unui sir distribuit astfel:

Aplicatia 3.1.1.Pe prima linie se gaseste dimensiunea iar pe randul al doilea elementele

9 8 7

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-se citeste n si se sare la linia urmatoare,din fisier;

-pentru fiecare I de la 1 la n;

-se citeste x[i] din fisier.

Rezolvare:

uses crt;

var f1:text;

i,n:integer;

x:array[1…20]of integer;

begin

assign(f1,`fl.txt`);

reset(f1);

readln(fl,n);

for i:=1 to n do

read(f1,x[i]);

for i:=1 to n do

write(x[i],` `);

close(f1);

readln;

end.

Aplicatia 3.1.2.Pe prima linie se gaseste dimensiunea iar elementele se gasesc cate unul pe rand.

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-se citeste n si se sare la linia urmatoare,din fisier;

-pentru fiecare I de la 1 la n;

-se citeste x[i]din fisier

Rezolvare:

………..

readln(f1,n);

for i:=1 to n do

readln(f1,x[i]);

………..

Aplicatia 3.1.3.Toate elementele se gasesc pe prima linie,fara a sti numarul lor

1 2 3

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-la inceput nu se stie cate elemente are sirul(i=0);

-atat timp cat nu s-a terminat linia;

-se mareste numarul de elemente cu 1(s-a gasit alt element);

-se citeste elemental current(x[i]);

-numarul elementelor din sir este i.

Rezolvare:

………

i:=0

while not eoln(f1)do

begin

i:=i+1;

read(f1,x[i]);

end

n=i(s-a citit sirul x1,x2,…,xn).

………

Aplicatia 3.1.4.Elementele se gasesc care unul pe linie,fara a sti numarul lor.

Algoritm de rezolvare:

-la inceput nu se stie cate elemente are sirul(i:=0);

-atat timp cat nu s-a terminat fisierul;

-se mareste numarul de elemente cu 1(s-a gasit alt alement);

-se citeste elemental current(x[i])si se trece la linia urmatoare;

-numarul elementelor din sir este I;

Rezolvare:

………..

i:=0;

while not eof(f1)do

begin

i:=i+1;

readln(f1,x[i]);

end;

n:=i;(s-a citit sirul x1,x2,…,xn)

3.2.Scrierea sirurilor in fisier

Fie scrise in fisierul `f2.txt`elementele sirului astfel:

Aplicatia 3.2.1.Pe prima linie se gaseste dimensiunea,iar pe randul al doilea se gasesc elementele.

9 8 7

Algoritm de rezolvare:

-se scrie n in fisier si se sare la linie noua;

-pentru fiecare i de la 1 la n;

-se srie x[i] din fisier.

Rezolvare:

program p1;

uses crt;

var f2:text;

i,n:integer;

x:array[1..20]of integer;

begin

clrser;

assign(f2,`f2.txt`);

rewrite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.2.Pe prima linie se gaeste dimensiunea,iar elementele se gasesc cate unul pe rand.

Algoritm de rezolvare:

-se scrie n in fisier si se sare la linie noua;

-pentru fiecare i de la 1 la n;

Se scrie x[i],in fisier.

Rezolvare:

program p1;

uses crt;

var f2:text;

i,n:integer;

x:array[1…20]of integer;

begin

clrscr;

assign(f2,`f2.txt`);

rewrite(f2);

readln(n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.3.Toate elemenele se gasesc pe prima linie,fara a sti numarul lor.

1 2 3

Algoritm de rezolvare:

-pentru I de la 1 la n:

Se scrie x[i]si spatiu.

for i:=1 to n do

write(f2,x[i],` `);

Rezolvare:

program p1:

uses crt;

var f2:text;

I,n:integer;

X:array[1…20]of integer;

begin

clrser;

assign(f2,`f2.txt`);

rewite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.4. Elementele se gasesc cate unul pe linie,fara a sti numarul lor.

Algoritm de rezolvare:

-pentru i de la 1 la n

Se scrie x[i] si se sare la linie noua.

for i:=1 to n do

writeln(f2,x[i],` `)

Rezolvare:

program p1:

uses crt;

var f2:text;

i,n:integer;

x:array[1..20]of integer;

begin

clrscr;

assign(f2,`f2.txt`)

rewrite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

writeln(f2,x[i],` `)

close(f2);

readln;

end.

3.1.Citirea sirurilor din fisier

Citirea dintr-un fisier text `f1.txt` a elementelor unui sir distribuit astfel:

Aplicatia 3.1.1.Pe prima linie se gaseste dimensiunea iar pe randul al doilea elementele

9 8 7

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-se citeste n si se sare la linia urmatoare,din fisier;

-pentru fiecare I de la 1 la n;

-se citeste x[i] din fisier.

Rezolvare:

uses crt;

var f1:text;

i,n:integer;

x:array[1…20]of integer;

begin

assign(f1,`fl.txt`);

reset(f1);

readln(fl,n);

for i:=1 to n do

read(f1,x[i]);

for i:=1 to n do

write(x[i],` `);

close(f1);

readln;

end.

Aplicatia 3.1.2.Pe prima linie se gaseste dimensiunea iar elementele se gasesc cate unul pe rand.

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-se citeste n si se sare la linia urmatoare,din fisier;

-pentru fiecare I de la 1 la n;

-se citeste x[i]din fisier

Rezolvare:

………..

readln(f1,n);

for i:=1 to n do

readln(f1,x[i]);

………..

Aplicatia 3.1.3.Toate elementele se gasesc pe prima linie,fara a sti numarul lor

1 2 3

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-la inceput nu se stie cate elemente are sirul(i=0);

-atat timp cat nu s-a terminat linia;

-se mareste numarul de elemente cu 1(s-a gasit alt element);

-se citeste elemental current(x[i]);

-numarul elementelor din sir este i.

Rezolvare:

………

i:=0

while not eoln(f1)do

begin

i:=i+1;

read(f1,x[i]);

end

n=i(s-a citit sirul x1,x2,…,xn).

………

Aplicatia 3.1.4.Elementele se gasesc care unul pe linie,fara a sti numarul lor.

Algoritm de rezolvare:

-la inceput nu se stie cate elemente are sirul(i:=0);

-atat timp cat nu s-a terminat fisierul;

-se mareste numarul de elemente cu 1(s-a gasit alt alement);

-se citeste elemental current(x[i])si se trece la linia urmatoare;

-numarul elementelor din sir este I;

Rezolvare:

………..

i:=0;

while not eof(f1)do

begin

i:=i+1;

readln(f1,x[i]);

end;

n:=i;(s-a citit sirul x1,x2,…,xn)

3.2.Scrierea sirurilor in fisier

Fie scrise in fisierul `f2.txt`elementele sirului astfel:

Aplicatia 3.2.1.Pe prima linie se gaseste dimensiunea,iar pe randul al doilea se gasesc elementele.

9 8 7

Algoritm de rezolvare:

-se scrie n in fisier si se sare la linie noua;

-pentru fiecare i de la 1 la n;

-se srie x[i] din fisier.

Rezolvare:

program p1;

uses crt;

var f2:text;

i,n:integer;

x:array[1..20]of integer;

begin

clrser;

assign(f2,`f2.txt`);

rewrite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.2.Pe prima linie se gaeste dimensiunea,iar elementele se gasesc cate unul pe rand.

Algoritm de rezolvare:

-se scrie n in fisier si se sare la linie noua;

-pentru fiecare i de la 1 la n;

Se scrie x[i],in fisier.

Rezolvare:

program p1;

uses crt;

var f2:text;

i,n:integer;

x:array[1…20]of integer;

begin

clrscr;

assign(f2,`f2.txt`);

rewrite(f2);

readln(n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.3.Toate elemenele se gasesc pe prima linie,fara a sti numarul lor.

1 2 3

Algoritm de rezolvare:

-pentru I de la 1 la n:

Se scrie x[i]si spatiu.

for i:=1 to n do

write(f2,x[i],` `);

Rezolvare:

program p1:

uses crt;

var f2:text;

I,n:integer;

X:array[1…20]of integer;

begin

clrser;

assign(f2,`f2.txt`);

rewite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.4. Elementele se gasesc cate unul pe linie,fara a sti numarul lor.

Algoritm de rezolvare:

-pentru i de la 1 la n

Se scrie x[i] si se sare la linie noua.

for i:=1 to n do

writeln(f2,x[i],` `)

Rezolvare:

program p1:

uses crt;

var f2:text;

i,n:integer;

x:array[1..20]of integer;

begin

clrscr;

assign(f2,`f2.txt`)

rewrite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

writeln(f2,x[i],` `)

close(f2);

readln;

end.

3.1.Citirea sirurilor din fisier

Citirea dintr-un fisier text `f1.txt` a elementelor unui sir distribuit astfel:

Aplicatia 3.1.1.Pe prima linie se gaseste dimensiunea iar pe randul al doilea elementele

9 8 7

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-se citeste n si se sare la linia urmatoare,din fisier;

-pentru fiecare I de la 1 la n;

-se citeste x[i] din fisier.

Rezolvare:

uses crt;

var f1:text;

i,n:integer;

x:array[1…20]of integer;

begin

assign(f1,`fl.txt`);

reset(f1);

readln(fl,n);

for i:=1 to n do

read(f1,x[i]);

for i:=1 to n do

write(x[i],` `);

close(f1);

readln;

end.

Aplicatia 3.1.2.Pe prima linie se gaseste dimensiunea iar elementele se gasesc cate unul pe rand.

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-se citeste n si se sare la linia urmatoare,din fisier;

-pentru fiecare I de la 1 la n;

-se citeste x[i]din fisier

Rezolvare:

………..

readln(f1,n);

for i:=1 to n do

readln(f1,x[i]);

………..

Aplicatia 3.1.3.Toate elementele se gasesc pe prima linie,fara a sti numarul lor

1 2 3

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-la inceput nu se stie cate elemente are sirul(i=0);

-atat timp cat nu s-a terminat linia;

-se mareste numarul de elemente cu 1(s-a gasit alt element);

-se citeste elemental current(x[i]);

-numarul elementelor din sir este i.

Rezolvare:

………

i:=0

while not eoln(f1)do

begin

i:=i+1;

read(f1,x[i]);

end

n=i(s-a citit sirul x1,x2,…,xn).

………

Aplicatia 3.1.4.Elementele se gasesc care unul pe linie,fara a sti numarul lor.

Algoritm de rezolvare:

-la inceput nu se stie cate elemente are sirul(i:=0);

-atat timp cat nu s-a terminat fisierul;

-se mareste numarul de elemente cu 1(s-a gasit alt alement);

-se citeste elemental current(x[i])si se trece la linia urmatoare;

-numarul elementelor din sir este I;

Rezolvare:

………..

i:=0;

while not eof(f1)do

begin

i:=i+1;

readln(f1,x[i]);

end;

n:=i;(s-a citit sirul x1,x2,…,xn)

3.2.Scrierea sirurilor in fisier

Fie scrise in fisierul `f2.txt`elementele sirului astfel:

Aplicatia 3.2.1.Pe prima linie se gaseste dimensiunea,iar pe randul al doilea se gasesc elementele.

9 8 7

Algoritm de rezolvare:

-se scrie n in fisier si se sare la linie noua;

-pentru fiecare i de la 1 la n;

-se srie x[i] din fisier.

Rezolvare:

program p1;

uses crt;

var f2:text;

i,n:integer;

x:array[1..20]of integer;

begin

clrser;

assign(f2,`f2.txt`);

rewrite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.2.Pe prima linie se gaeste dimensiunea,iar elementele se gasesc cate unul pe rand.

Algoritm de rezolvare:

-se scrie n in fisier si se sare la linie noua;

-pentru fiecare i de la 1 la n;

Se scrie x[i],in fisier.

Rezolvare:

program p1;

uses crt;

var f2:text;

i,n:integer;

x:array[1…20]of integer;

begin

clrscr;

assign(f2,`f2.txt`);

rewrite(f2);

readln(n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.3.Toate elemenele se gasesc pe prima linie,fara a sti numarul lor.

1 2 3

Algoritm de rezolvare:

-pentru I de la 1 la n:

Se scrie x[i]si spatiu.

for i:=1 to n do

write(f2,x[i],` `);

Rezolvare:

program p1:

uses crt;

var f2:text;

I,n:integer;

X:array[1…20]of integer;

begin

clrser;

assign(f2,`f2.txt`);

rewite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.4. Elementele se gasesc cate unul pe linie,fara a sti numarul lor.

Algoritm de rezolvare:

-pentru i de la 1 la n

Se scrie x[i] si se sare la linie noua.

for i:=1 to n do

writeln(f2,x[i],` `)

Rezolvare:

program p1:

uses crt;

var f2:text;

i,n:integer;

x:array[1..20]of integer;

begin

clrscr;

assign(f2,`f2.txt`)

rewrite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

writeln(f2,x[i],` `)

close(f2);

readln;

end.

3.1.Citirea sirurilor din fisier

Citirea dintr-un fisier text `f1.txt` a elementelor unui sir distribuit astfel:

Aplicatia 3.1.1.Pe prima linie se gaseste dimensiunea iar pe randul al doilea elementele

9 8 7

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-se citeste n si se sare la linia urmatoare,din fisier;

-pentru fiecare I de la 1 la n;

-se citeste x[i] din fisier.

Rezolvare:

uses crt;

var f1:text;

i,n:integer;

x:array[1…20]of integer;

begin

assign(f1,`fl.txt`);

reset(f1);

readln(fl,n);

for i:=1 to n do

read(f1,x[i]);

for i:=1 to n do

write(x[i],` `);

close(f1);

readln;

end.

Aplicatia 3.1.2.Pe prima linie se gaseste dimensiunea iar elementele se gasesc cate unul pe rand.

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-se citeste n si se sare la linia urmatoare,din fisier;

-pentru fiecare I de la 1 la n;

-se citeste x[i]din fisier

Rezolvare:

………..

readln(f1,n);

for i:=1 to n do

readln(f1,x[i]);

………..

Aplicatia 3.1.3.Toate elementele se gasesc pe prima linie,fara a sti numarul lor

1 2 3

Algoritm de rezolvare:

-se deschide fisierul,pentru citire;

-la inceput nu se stie cate elemente are sirul(i=0);

-atat timp cat nu s-a terminat linia;

-se mareste numarul de elemente cu 1(s-a gasit alt element);

-se citeste elemental current(x[i]);

-numarul elementelor din sir este i.

Rezolvare:

………

i:=0

while not eoln(f1)do

begin

i:=i+1;

read(f1,x[i]);

end

n=i(s-a citit sirul x1,x2,…,xn).

………

Aplicatia 3.1.4.Elementele se gasesc care unul pe linie,fara a sti numarul lor.

Algoritm de rezolvare:

-la inceput nu se stie cate elemente are sirul(i:=0);

-atat timp cat nu s-a terminat fisierul;

-se mareste numarul de elemente cu 1(s-a gasit alt alement);

-se citeste elemental current(x[i])si se trece la linia urmatoare;

-numarul elementelor din sir este I;

Rezolvare:

………..

i:=0;

while not eof(f1)do

begin

i:=i+1;

readln(f1,x[i]);

end;

n:=i;(s-a citit sirul x1,x2,…,xn)

3.2.Scrierea sirurilor in fisier

Fie scrise in fisierul `f2.txt`elementele sirului astfel:

Aplicatia 3.2.1.Pe prima linie se gaseste dimensiunea,iar pe randul al doilea se gasesc elementele.

9 8 7

Algoritm de rezolvare:

-se scrie n in fisier si se sare la linie noua;

-pentru fiecare i de la 1 la n;

-se srie x[i] din fisier.

Rezolvare:

program p1;

uses crt;

var f2:text;

i,n:integer;

x:array[1..20]of integer;

begin

clrser;

assign(f2,`f2.txt`);

rewrite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.2.Pe prima linie se gaeste dimensiunea,iar elementele se gasesc cate unul pe rand.

Algoritm de rezolvare:

-se scrie n in fisier si se sare la linie noua;

-pentru fiecare i de la 1 la n;

Se scrie x[i],in fisier.

Rezolvare:

program p1;

uses crt;

var f2:text;

i,n:integer;

x:array[1…20]of integer;

begin

clrscr;

assign(f2,`f2.txt`);

rewrite(f2);

readln(n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.3.Toate elemenele se gasesc pe prima linie,fara a sti numarul lor.

1 2 3

Algoritm de rezolvare:

-pentru I de la 1 la n:

Se scrie x[i]si spatiu.

for i:=1 to n do

write(f2,x[i],` `);

Rezolvare:

program p1:

uses crt;

var f2:text;

I,n:integer;

X:array[1…20]of integer;

begin

clrser;

assign(f2,`f2.txt`);

rewite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

write(f2,x[i],` `);

close(f2);

readln;

end.

Aplicatia 3.2.4. Elementele se gasesc cate unul pe linie,fara a sti numarul lor.

Algoritm de rezolvare:

-pentru i de la 1 la n

Se scrie x[i] si se sare la linie noua.

for i:=1 to n do

writeln(f2,x[i],` `)

Rezolvare:

program p1:

uses crt;

var f2:text;

i,n:integer;

x:array[1..20]of integer;

begin

clrscr;

assign(f2,`f2.txt`)

rewrite(f2);

readln(n);

for i:=1 to n do

readln(x[i]);

writeln(f2,n);

for i:=1 to n do

writeln(f2,x[i],` `)

close(f2);

readln;

end.