Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Методичка №825.doc
Скачиваний:
4
Добавлен:
16.12.2018
Размер:
443.39 Кб
Скачать

Пример расчета

Введите исходные данные

n=10

a[ 1]=1

a[ 2]=5

a[ 3]=-3

a[ 4]=-4

a[ 5]=0

a[ 6]=6

a[ 7]=-25

a[ 8]=-100

a[ 9]=9

a[ 10]=-7

Результаты расчета:

Количество нечетных и отрицательных членов последовательности

равно 3

Сумма членов последовательности, кратных 5, равна –120

Задача 4

Блок – схема алгоритма решения задачи

Да

Нет

Да

Нет

Программа

Program zadacha_4;

const

p=100;

var

a :array [1..p,1..p] of integer; {исходная матрица}

n ,m :integer;{размеры матрицы}

i , j :integer;{счетчики циклов}

max :integer;{максимальный элемент строки}

min :integer;{минимальный элемент строки}

razn :integer;{разность максимального и минимального элементов}

begin

write (‘m=’); readln (m);

write (‘n=’); readln (n);

writeln (‘Матрица’);

for i:=1 to m do

begin

for j:=1 to n do read (a[i,j]);

end;

writeln (‘Разность наибольшего и наименьшего элементов’);

for i:=1 to m do

begin

min :=a[i,1];

max :=a[i,1];

for j:=1 to n do

begin

if a[i,j]<min then min:=a[i,j];

if a[i,j]>max then max:=a[i,j];

end;

razn:=max-min;

writeln(‘для ‘,i:3,’-й строки равна ‘, razn:5);

end;

readln;

end.

Пример расчета

m = 4

n = 7

Матрица А:

5

23

-3

8

9

15

-26

7

19

13

-1

8

6

74

-8

65

87

3

1

9

5

77

96

4

5

8

3

7

Разность наибольшего и наименьшего элементов

для 1 – й строки равна 49

для 2 – й строки равна 75

для 3 – й строки равна 95

для 4 – й строки равна 93

Задача 5 Программа

Program zadacha_5;

type

mas=array [1..100] of integer;

var

n,m :word; {данные натуральные числа }

a,b :mas; {данные массивы целых чисел}

i :word; {счетчик цикла}

s :integer;{искомая величина}

function max(c:mas;k:integer);

begin

max:=c[1];

for i:=1 to k do if c[i]>max then max:=c[i];

end;

begin

write(‘n=’); readln(n);

for i:=1 to n do

begin

write(‘a[‘,i:3,’]=’); readln(a[i]);

end;

write(‘m=’); readln(m);

for i:=1 to m do

begin

write(‘b[‘,i:3,’]=’); readln(b[i]);

end;

s:=1+sqr(max(a,n))+sqr(max(b,m));

writeln(‘Искомая величина=’, s:10);

end.

Пример расчета

n = 5

a [ 1 ] = 2

a [ 2 ] = -6

a [ 3 ] = 10

a [ 4 ] = -15

a [ 5 ] = 8

m = 6

b [ 1 ] = -3

b [ 2 ] = -100

b [ 3 ] = 25

b [ 4 ] = 13

b [ 5 ] = 7

b [ 6 ] = 1

Искомая величина = 725

Список литературы

  1. Информатика. Базовый курс/Симонович С. В. и др. – СПб.:”Питер”, 2000.

  2. Турбо Паскаль 7.0. – К.:BHV,2000.

  3. Культин Н. Б. Turbo Pascal в задачах и примерах. – СПб.:БХВ,2000.