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

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

Матрица А:

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

для 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.

Содержание

1.Основы алгоритмизации . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3

1.1. Этапы решения задач с помощью компьютера . . . . . . . . . . . . . . . . . . .3

1.2. Алгоритм: определение и свойства . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3

1.3. Запись алгоритма в виде блок-схем . . . . . . . . . . . . . . . . . . . . . . . . . . . .3

1.4. Основные типы вычислительных алгоритмов . . . . . . . . . . . . . . . . . . . 5

2. Основы программирования на Паскале . . . . . . . . . . . . . . . . . . . . . . . . . . . . .7

2.1. Основные элементы языка . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 7

2.2. Типы данных . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .11

2.3. Программирование линейных вычислительных процессов . . . . . . . 13

2.4. Организация программ разветвляющейся структуры . . . . . . . . . . . . 15

2.5. Организация программ циклической структуры . . . . . . . . . . . . . . . . 18

2.6. Подпрограммы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 22

3. Задачи для контрольной работы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .25

4. Примеры решения задач . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30

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

Редактор В. Л. Родичева

Подписано в печать 22.04.02. Формат . Бумага писчая. Печать плоская. Усл. печ. л. 2,09. Уч. - изд. л. 2,32. Тираж 250 экз. Заказ

Ивановский государственный химико-технологический университет

153460, г. Иваново, пр. Ф. Энгельса, 7.