Циклические вычислительные процессы (последовательности)

Определить n первых членов рекуррентной последовательности.

Начало

Ввод n

Ak-1:=1; ak-2:=0; ak-3:=1;

N>3

Вывод ak-1; ak-2; ak-3;

S:=0; i:=1;

K:=4, n

a:=(a1*sqrt(abs(a3)))+(k*Sin(a2))

Вывод Ak

trunc(a) mod 2=0

S:=s+a; i:=i+1;

Ak-1:=ak; ak-2:=ak-1; ak-3:=ak-2;

Вывод S

S:=s+a; i:=i+1;

Конец

program Z9;

vark,n,i:integer;

a1,a2,a3,a,s:real;

begin

repeat

write('Введите число членов последовательности >3 n=');

read(n);

until n>3;

a1:=1;

a2:=0;

a3:=1;

write(a1:0:2,' ',a2:0:2,' ',a3:0:2,' ');

s:=0;   //сумма четных

i:=1;   //количество четных

for k:=4 to n do

begin

a:=(a1*sqrt(abs(a3)))+(k*Sin(a2));

write(a:0:2,' ');

if trunc(a) mod 2=0 then

begin

s:=s+a;

i:=i+1;

end;

a3:=a2;

a2:=a1;

a1:=a;

end;

writeln;

s:=s/i;

writeln('Ср.ариф. членов с четной целой частью=',s:0:2);

end.

Расчеты в одномерных массивах

Начало

Ввод A[i]

S:=0;

I > A[i]

i:=1, 11

i:=1, 11

S:=S+A[i];

Вывод S

Конец

program Z10;

var A:array[1..11] of integer;

i,k, S:integer;

begin

writeLn('ВводимэлементымассиваA:');

for i:=1 to 11 do

begin

write('A[',i,']=');

readLn(A[i]);

end;

S:=0;

for i:=1 to 11 do if i> A[i] then S:=S+A[i];

writeLn('сумма = ',S);

end.

Модификация одномерных массивов

Начало

Ввод A[i]

i:=1, N

Ввод N

Вывод A[i]

i:=1, N

I mod 2 =0

i:=1, 11

A[i]:=A[i] div 5

Вывод A[i]

i:=1, N

Конец

program Z11;

constNmass=100;

var A:array[1..Nmass] of integer;

i,N: byte;

begin

writeLn('Введите число элементов в массиве A');

readLn(N);

writeLn('Вводим элементы массива A:');

for i:=1 to N do

begin

write('A[',i,']=');

readLn(A[i]);

end;

writeLn('Исходныймассив A:');

for i:=1 to N do

write(A[i]:5);

writeLn;

// модификациямассива

for i:=1 to N do

ifi mod 2 = 0 then

     A[i]:=A[i] div 5;

writeLn;

writeLn('массив A после изменения:');

for i:=1 to N do

write(A[i]:5);

end.

 

Расчеты в двумерных массивах

Начало

i:=1, 4

Вывод P

sqr(A[i,j])<16 and A[i,j]>0

P:=1

Конец

j:=1, 3

Ввод A[I,j]

i:=1, 4

j:=1, 3

P:=p*A[I,j]

 

 

program Z12;

var A:array[1..4,1..3] of integer;

i,j: byte;

P:real;

begin

cls;

writeLn(‘вводимэлементымассиваA:');

for i:=1 to 4 do

for j:=1 to 3 do

begin

write('A[',i,',',j,']=');

readLn(A[i,j]);

end;

P:=1;

for i:=1 to 4 do

for j:=1 to 3 do

if (sqr(A[i,j])<16) and (A[i,j]>0) then

begin

p:=p*A[i,j];

end;

writeLn('произведение элементов квадрат которых < 16 ', p);

end.

Модификация двумерных массивов

Начало

i:=1, N

j:=1, M

Ввод A[I,j]

i:=1, N

i:=1, M

Вывод A[I,j]

Перевод строки

j mod 2 = 0

A[i,j]:=A[i,j] mod 10

i:=1, N

j:=1, M

i:=1, N

i:=1, M

Вывод A[I,j]

Перевод строки

Конец

program Z13;

constNmass=10;

var A:array[1..Nmass,1..Nmass] of integer;

N,M,i,j: byte;

begin

cls; 

writeLn('Введите число элементов в массиве A');

readLn(N,M); 

writeLn('Вводим элементы массива A:');

for i:=1 to N do

for j:=1 to M do

begin

write('A[',i,',',j,']=');

readLn(A[i,j]);

end;     

writeLn('Исходный массив A:');

for i:=1 to N do

begin

for j:=1 to M do

write(A[i,j]:5);

writeLn;

end;   

for i:=1 to N do

for j:=1 to M do

if j mod 2 = 0 then A[i,j]:=A[i,j] mod 10;

writeLn; 

writeLn('массив A после изменения:');

for i:=1 to N do

begin

for j:=1 to M do

write(A[i,j]:5);

writeLn;

end;

end.

Расчетывфайлах

Начало

i:=1, 15

Not EOF(F)

assign(f,'f.dat')

rewrite(f)

F←b

Ввод b

reset(f)

P:=1

b←F

abs(b) > 7 or abs(b) < 2

p:=p*b

K > 0

Вывод P

В файле нет подходящих элементов

K:=k+1

K:=0

close(f)

Конец

 

 

program Z14;

varb,p,k,i:integer;

f:file of integer;

begin

assign(f,'f.dat');

rewrite(f);

writeLn('вводите 9 компонентфайлаf:');

for i:=1 to 15 do

begin

writeLn('введите ',i,'-уюкомпонентуфайлаf');

readLn(b);

write(f,b);

end;

reset(f);

p:=1;

k:=0;

while not EOF(f) do

begin

read(f,b);

if (abs(b) > 7) or (abs(b) < 2) then

begin

p:=p*b;

K:=k+1;

end;

end;

if k>0 then writeLn('произведение =',p) else

writeLn('в файле нет подходящих элементов');

close(f);

end.

Модификация файлов

Начало

assign(f,'f.dat')

rewrite(f)

b←F

reset(f)

i:=1

K:=0

Ввод b

b≠777

F←b

i:=i+1

Ввод b

Not EOF(F)

Вывод b

Not EOF(F)

b←F

(b<5) and (b>-3)

k:=k+1

K mod 2 = 0

1

2

3

4

5

1

2

3

4

5

seek(f,filepos(f)-1)

b:=1

F←b

Конец

b←F

reset(f)

Not EOF(F)

Вывод b

program Z15;

varb,i,k:integer;

f:file of integer;

begin

assign(f,'f.dat');

writeLn('введите первую компоненту файла f или признак конца ввода:"777")');

rewrite(f);

readLn(b);

i:=1;

k:=0;

while b<>777 do

begin

write(f,b);

i:=i+1;

writeLn('введите ',i,'-юкомпонентуфайлаf');

readLn(b);

end;

reset(f);

writeLn('файлfдоизменения:');

while not EOF(f) do

begin

read(f,b);

write(b:5);

end;

writeLn;

reset(f);

while not EOF(f) do

begin

read(f,b);

if (b<5) and (b>-3) then

begin k:=k+1;

if k mod 2 = 0 then

begin

seek(f,filepos(f)-1);

b:=1;

write(f,b);

end;

end;

end;

reset(f);

writeLn('файлfпослеизменения:');

while not EOF(f) do

begin

read(f,b);

write(b:5);

end;

writeLn;

close(f);

end.