Osnovy_informatiki_-_5_Primery_programm-1

Задачи на обработку последовательностей, вводимых пользователем

27.10.2012

Чердынцева М.И.

1

Пример 1

•Обработка всех элементов последовательности.

•Сумма/ произведение/ среднее всех

27.10.2012

Чердынцева М.И.

2

var i,n:integer; a:real; s,p,sr:real;

begin

repeat	read(n) until n>0;
{подготовка}
s:=0;
p:=1;

for i:=1 to n do begin

read(a);

s:=s+a;

p:=p*a;

end;

sr:=s/n;

writeln(s,p,sr);

end.

27.10.2012

Чердынцева М.И.

3

Пример 2

•Поиск максимального (минимального) и его номера

27.10.2012

Чердынцева М.И.

4

var i,n:integer; a:real; max:real; nmax:integer;

begin read(n);

{подготовка}

read(max); nmax:=1; {read(a); max:=a;} for i:=2 to n do

begin read(a);

if a>max then begin

max:=a;

nmax:=i;

end;

end;

writeln(max, nmax);

end.	Чердынцева М.И.	5
27.10.2012

Пример 3

•Количество, среднее элементов с заданным свойством.

•Например, положительных

27.10.2012

Чердынцева М.И.

6

var i,n:integer; a:real; s:real; k:integer;

begin read(n); {подготовка} k:=0; s:=0;

for i:=1 to n do begin

read(a);

if a>0 then begin k:=k+1; s:=s+a;

end;

end;

writeln(k); if k>0 then

writeln(s/k);

end.	Чердынцева М.И.	7
27.10.2012

Пример 4

•Обработка пар (троек и т.д) элементов.

•Количество смен знака в

последовательности ненулевых

27.10.2012

Чердынцева М.И.

8

var i,n:integer; a,ap:real; k:integer;

begin read(n); {подготовка}

read(ap); k:=0; for i:=2 to n do begin

read(a);

if a*ap<0 then k:=k+1; ap:=a; {сдвиг в паре}

end;

writeln(k);

end.

27.10.2012

Чердынцева М.И.

9

Пример 5

•Обработка серий элементов последовательности. Серия – подряд

расположенные элементы с заданными

свойствами.

•Количество серий из одних нулей.

27.10.2012

Чердынцева М.И.

10