НЕКОММЕРЧЕСКАЯ КОРПОРАТИВНАЯ ОРГАНИЗАЦИЯ
АССОЦИАЦИЯ ПЕДАГОГИЧЕСКИХ РАБОТНИКОВ МОСКОВСКОЙ ОБЛАСТИ

 

Приложение 2

 

Решение:

1 группа:Заполнить одномерный массив A(N) элементами последовательности Фибоначчи. НайтисуммупервыхK элементов.

ProgramFib;

Uses crt;

var a: array [1..100] of integer;

i,k,s: integer;

begin

clrscr;

Writeln ('Введите размерность массива ');

Read (n);

WriteLn ('Последовательность чисел Фибоначчи:');

a[1]:=1; a[2]:= 1;

for i:= 3 to n do begin

a[i]:= a[i-1] + a[i-2];

end;

writeLn;

for i:=1 to n do

write (a[i]:5);

WriteLn ('ВведитеК: ');

readLn (k);

s:= 0;

for i:= 1 to k do

s:= s + a[i];

WriteLn('Суммапервых ', k, 'элементов = ', s);

readln;

end.

 

2 группа:Дана последовательность Фибоначчи A(N). Что больше: сумма четных или произведение нечетных элементов и насколько.

Program Fib;

Uses crt;

var a: array [1..100] of integer;

i, n, p,s: integer;

begin

clrscr;

Writeln ('Введите размерность массива ');

Read (n);

a[1]:=1; a[2]:= 1;

for i:= 3 to n do begin

a[i]:= a[i-1] + a[i-2];

end;

WriteLn ('ПоследовательностьчиселФибоначчи:');

for i:=1 to n do

write (a[i]:5);

writeln;

s:= 0; p:=1;

for i:= 1 to n do begin

if a[i] mod 2 = 0 then s:= s + a[i]

else p:= p*a[i];

end;

if s>p then WriteLn ('Сумма четных чисел Фибоначчи больше произведения нечетных на ', s-p)

else

WriteLn ('Произведение нечетных чисел Фибоначчи больше суммы четных на ', p-s);

readln;

end.

 

3 группа:Напечатать те элементы массива A(N), индексы которых являются четными числами последовательности Фибоначчи.

Program Fib;

Uses crt;

var a: array [1..100] of integer;

I, n, k, s: integer;

begin

clrscr;

Writeln ('Введите размерность массива ');

Read (n);

a[1]:=1; a[2]:= 1;

for i:= 3 to n do begin

a[i]:= a[i-1] + a[i-2];

end;

WriteLn ('ПоследовательностьчиселФибоначчи:');

for i:=1 to n do

write (a[i]:5);

writeln;

WriteLn ('элементы массива, индексы которых являются четными числами последовательности Фибоначчи: ');

For i:= 1 to n do

if i mod 2 = 0 then

Write (a[i], '-');

Readln;

End.

 

4 группа:Заполнить массив A(N) так: первые K элементов заполнить элементами последовательности Фибоначчи, остальным - присвоить число m.

Program Fib;

Uses crt;

var a: array [1..100] of integer;

I, n, k, m: integer;

begin

clrscr;

Writeln ('Введите размерность массива ');

Read (n);

Writeln ('ВведитеК');

Readln (k);

Writeln ('Введитеm ');

Readln (m);

a[1]:=1; a[2]:= 1;

for i:= 3 to n do begin

a[i]:= a[i-1] + a[i-2];

end;

WriteLn ('ПоследовательностьчиселФибоначчи:');

for i:=1 to n do

write (a[i]:5);

writeln;

for i:= k+1 to n do

a[i]:= m;

for i:= 1 to n do

writeLn (a[i], '-');

readLn;

end.

 

Сверимся с ответами при фиксированных переменных величинах:

1 группа при n = 10, k = 5

2 группа при n = 10

3 группа при n = 10

4 группа при n = 10, k = 5, m = 22

 

Дополнительные задачи:

1. Программа вычисляющая среднее арифметическое массива:

 

Program SRedMass;

const N=10;

var SR,S:real;

I,Kol:integer;

A:array[1..N] of real;

begin S:=0; Kol:=0;

for I:=1 to N do

begin

read(A[I]);

if A[I]>0 then

S:=S+A[I]; Kol:=Kol+1;

SR:=S/Kol;

end;

Write('ср.арифм.= ',SR);

end.

 

2. Программа сортировки элементов массива пузырьковым методом:

Program SortPuzyrok;

const n=20;

var a : array [1..n] of integer;

i,j,k,prom : integer;

begin

for i:=1 to n do

begin

a[i]:=random(101);

write(a[i],' ');

end;

writeln;

for i:=2 to n do

for j:=1 to n do

if a[i]<a[j] then

begin

prom:=a[j];

a[j]:=a[i];

a[i]:=prom;

end;

for i:=1 to n do

begin

write(a[i],' ');

end;

end.

 

Добавление элемента в массив:

1) Задать случайным образом N элементов числового массива – числа от 0 до 20. Вставить в него число «-20» перед к-ым элементом.

Чтобы вставить в массив новый элемент на место К, нужно прежде всего предусмотреть для него место в массиве. Поэтому объявление массива будет выглядеть так: <имя>: array [1..n+1] of <тип>;

Обязательно ввести к – ый порядковый номер. В теле программы все элементы, начиная с к-ого и до N, следует передвинуть на 1 место к концу массива. После этого можно на к-ое место поставить значение, заданное по условию задачи:

For i := n downto кdo

a[i+1] := a[i];

a[i] := <новоезначение>;

 

Решение:

Program zad1;

Uses crt;

Var  I,N,K:byte; A:array[1..100] of integer;

Begin clrscr;

Writeln(‘Введи размерность массива’);

Readln (N);

Writeln(‘исходный массив’);

Randomize;

For i:=1 to N do begin

A[i]:=random(20)+1;

Write(A[i]:3);

End;

Writeln;

Writeln(‘Введи номер к-го элемента’);

Readln (K);

For i:=N downto K do

A[i+1]:=A[i];

A[i]:=-20;

Writeln(‘измененныймассив’);

For i:=1 to N+1 do begin

Write(A[i]:3);

Readln;

End.

 

 

 

 

 

 

 

Удаление элементов из массива.

5) Задать случайным образом N элементов числового массива – числа 0 до 10. Удалить из него10-ый элемент. Чтобы удалить из массива элемент № 10, нужно все элементы, начиная с (10+1)-ого, передвинуть на 1 место к началу массива. Тогда алгоритм удаления элемента запишется так: For i := 10 to n-1 do a[i] := a[i+1];

 

Решение:

Program zad2;

Uses crt;

Var  I,N:byte; A:array[1..100] of integer;

Begin clrscr;

Writeln(‘Введи размерность массива’);

Readln (N);

Writeln(‘исходный массив’);

Randomize;

For i:=1 to N do begin

A[i]:=random(10)+1;

Write(A[i]:3);

End;

Writeln;

For i:=10 to N-1 do

A[i]:=A[i+1];

Writeln(‘измененныймассив’);

For i:=1 to N-1 do begin

Write(A[i]:3);

Readln;

End.

 

Задать случайным образом N элементов числового массива

2) вставить «10» перед первым положительным элементом;

 При решении данной задачи, обратить внимание учащихся на то, что необходимо сначала найти  первый положительный элемент и определить его порядковый номер.

Решение:

Program zad3;

Uses crt;

Var  I,N,x:byte; A:array[1..100] of integer;

Begin clrscr;

Writeln(‘Введи размерность массива’);

Readln (N);

Writeln(‘исходныймассив’);

Randomize;

For i:=1 to N do begin

A[i]:=random(20)-10;

Write(A[i]:3);

End;

Writeln;

For i:=N downto 1 do begin

If A[i]>0 then x:=I;

End;

Writeln(‘порядковый номер первого положительного элемента =’,x);

For i:=N downto x do

A[i+1]:=A[i];

A[i]:=10;

Writeln(‘измененныймассив’);

For i:=1 to N+1 do begin

Write(A[i]:3);

Readln;

End.