Вывод коэффициента рекуррентности q

до цикла цикл ®

.

Проверка корректности вычисления q

До цикла: предшествующее слагаемое ;

Значение переменной .

Цикл начинается при значении переменной и завершается при .

: : : : : : : : : :
n

Программка для задачки 1:

PROGRAM lab7_1;

uses crt;

CONST n=9; { количество частей суммы }

x=0.6; { для этого Х вычислить сумму }

VAR s :real; { разыскиваемая сумма }

q :real; { коэффициент рекуррентности }

a Вывод коэффициента рекуррентности q1,a2 :real; { предшествующий и последующий элементы суммы }

i :integer; { счетчик частей суммы }

BEGIN

clrscr; { чистка экрана }

s:=1; { значение суммы до начала цикла }

a1:=1; { слагаемое конкретно до цикла}

FOR i:=1 TO n DO

begin

q:=-x/i; { i-й коэффициент рекуррентности }

a2:=a1*q; { последующий элемент суммы }

s:=s+a2; { суммирование }

a1:=a2 { "переброс Вывод коэффициента рекуррентности q" – подготовка к последующему такту цикла}

end;

writeln;

writeln (' x=',x:5:1,' s=',s:9:6);

readln;

END.

Экран выполнения программки для задачки 1:

Программка для задачки 2:

PROGRAM lab_7_2;

USES crt;

CONST xn=0.1 ; { изначальное значение Х }

xk=1.0; { конечное значение Х }

hx=0.1; { шаг по Х }

eps=1e-6; { точность вычисления суммы }

VAR S :real; { сумма }

q Вывод коэффициента рекуррентности q :real; { коэффициент рекуррентности }

a1,a2 :real; { предшествующий и последующий элементы суммы }

x :real; { текущее значение Х }

i :integer; { счетчик частей суммы }

k :integer; { счетчик количества точек Х }

BEGIN

clrscr; { чистка экрана }

x:=xn; { исходная точка Х }

k:=1; { номер точки X }

WHILE x<=xk+eps DO { начало цикла по Х }

BEGIN

s:=1; { значение Вывод коэффициента рекуррентности q суммы до цикла в К-й точке Х }

a1:=1; { слагаемое конкретно до цикла}

i:=1; { изначальное значение счетчика i }

REPEAT {цикл REPEAT для вычисления суммы в К-й точке Х}

q:=-x/i;

a2:=a1*q;

s:=s+a2;

i:=i+1;

a1:=a2

UNTIL абс(a2)

writeln Вывод коэффициента рекуррентности q;

writeln ( k:2,'. ',' x=',x:3:1,' s=',s:9:6 );

k:=k+1;

x:=x+hx; { переход на последующий Х }

END; { завершился оператор WHILE }

repeat until keypressed; { задержка экрана }

END.

Экран выполнения программки для задачки 2:

Варианты заданий

1. ;

1) n = 6, x = 0.1; 2) x = 0.1…1.0,

2. ;

1) n = 8, x = 1.2; 2) x = 1…2,

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

Лабораторная работа № 5

МАССИВЫ

Цель работы–исследование методов описания и особенностей работы одномерных и Вывод коэффициента рекуррентности q двумерных массивов, закрепление способностей в составлении простых разветвляющихся и повторяющихся программ.

Постановка задачки: выполнить два задания, по одному на каждый вид массива.

Теоретические сведения

Обыкновенные типы данных определяют разные огромного количества атомарных (неделимых) значений. Составные либо структурированные типы, в отличие от обычных, задают огромного количества «сложных» значений; каждое значение из Вывод коэффициента рекуррентности q такового огромного количества образует некий агрегат (совокупа) нескольких значений другого типа (либо других типов). Можно сказать, что составные типы определяют некий метод образования новых типов из уже имеющихся, при этом отдельные элементы составных значений могут иметь хоть какой, в том числе составной, тип. Таким макаром, Pascal допускает образование структур случайной Вывод коэффициента рекуррентности q трудности, позволяя тем достигнуть адекватного представления в программке данных, с которыми она оперирует.

Одним из главных структурированных типов алгоритмических языков программирования является тип-массив. Каждое значение типа-массива состоит из фиксированного числа частей 1-го и такого же базисного типа. Таковой метод образования новых значений (фиксированное число однотипных компонент Вывод коэффициента рекуррентности q) позволяет обозначать значения этих типов одним (групповым) именованием, а доступ к отдельным элементам массивов организовать средством указания этого группового имени и индекса нужного элемента.

Для корректного определения типа-массива нужно задать две свойства: тип частей массива, также количество и метод «нумерации» частей. Последние свойства задаются средством указания типа индекса Вывод коэффициента рекуррентности q. Определение постоянного типа имеет последующий вид:

Type

A:array [ t1 ] of t2;

где arrayиof – служебные слова, t1 обозначает тип индекса массива, t2 – тип компонент массива. В предстоящем идентификатор этого типа может быть применен в описании переменных.

В качестве типа индекса может выступать хоть какой дискретный тип, не считая Longint и ограниченных типов, построенных из типа Вывод коэффициента рекуррентности q Longint; а именно, допустимы перечислимые и ограниченные типы. Элементами массива могут быть значения хоть какого типа.

Ниже приведены несколько примеров описания массивов.

Type

M1 = array[1..100] of real;

M2 = array[char] of boolean;

Matrix = array[1..10] of array[1..20] of integer;

Var

Vector : M1;

Sym_Table : M2;

Arr1,Arr2 : Matrix;

Следует выделить некие различия меж массивами в языке Pascal и в неких Вывод коэффициента рекуррентности q других языках программирования.

Во-1-х, в Pascal количество частей массива всегда должно быть фиксированным, другими словами определяться при трансляции программки. Это считается определенным недочетом языка, потому что не во всех программках можно заблаговременно предсказать нужный размер массива (который может определяться зависимо от тех либо других критерий, возникающих Вывод коэффициента рекуррентности q в процессе выполнения).

Для задания количества частей массива употребляется имя типа; число частей определяется количеством вероятных значений обозначенного типа, что отличает Pascal от многих других языков, в каких размер массива задается или целым числом (либо выражением целого типа), или спектром целых чисел. Такая особенность языка Pascal присваивает ему дополнительную Вывод коэффициента рекуррентности q упругость, позволяя “нумеровать” элементы массива не только лишь целыми числами, да и значениями случайного дискретного типа. К примеру, массив Sym_Table из предшествующего примера может правильно моделировать некую логическую шкалу, в какой каждому символу (с типом char) соответствует некое логическое значение, а доступ к элементам этого массива может быть организован последующим образом:

Sym Вывод коэффициента рекуррентности q_Table [‘a’] := true;

If Sym_Table [‘.’] then …;

В качестве частей массива могут выступать значения хоть какого типа, а именно, ими могут быть значения всех составных типов, к примеру массивы:

Var

V2 : array[1..10] of array[1..20] of byte ;

Такую переменную можно трактовать двойственно: или как массив, состоящий из нескольких массивов, или как один двумерный массив Вывод коэффициента рекуррентности q (матрица). Для сокращения записи в схожих случаях можно использовать эквивалентную форму определения постоянных типов, где в квадратных скобках указывается перечень типов индексов, разбитых запятыми, к примеру:

Var

V2:array[1..10,1..20] of byte;

Количество индексов в определении (другими словами размерность массива) в языке не ограничивается.

Pascal допускает единственно вероятное действие над массивом Вывод коэффициента рекуррентности q в целом: внедрение его в операторе присваивания, к примеру:

Vect1:=Vect2;

при этом оба массива в этом случае обязаны иметь схожий тип.

Доступ к элементам массива строится обычно: после идентификатора массива в квадратных скобках указывается индекс подходящего элемента либо перечень индексов, определяющий элемент многомерного массива. В качестве индексов Вывод коэффициента рекуррентности q могут выступать произвольные выражения, тип которых должен соответствовать типу индексов в описании массива.

Так, доступ к элементам массива, описанного в первом примере, строится последующим образом:

Vector[1];

Vector[(i+1)*2].

Двумерный массив V2, описанный чуть повыше, допускает таковой доступ к своим элементам:

V2[3,7]

V2[i,j]

Разглядим подробнее массив V2. Вследствие того, что его Вывод коэффициента рекуррентности q можно трактовать как «массив массивов», то, к примеру, конструкция V2[k] полностью допустима в языке и в этом случае обозначает k–й массив в группе из 10 массивов байтовых частей. Для того чтоб адресоваться, скажем, к 5-му элементу этого массива, можно записать V2[k][5].

Такая запись корректна, но Вывод коэффициента рекуррентности q ее более обычный эквивалент – V2[k,5] – можно считать сокращением начальной записи.

Элемент массива считается переменной (индексированной); он может получать значения (к примеру, в операторе присваивания), также участвовать в выражениях, где он представляет значение, помещенное в соответственный элемент данного массива. Ассортимент операций над элементами массива на сто процентов определяется типом этих частей Вывод коэффициента рекуррентности q (базисным типом массива).

Разглядим примеры решения неких типовых задач, связанных с обработкой массивов.

1. Упорядочивание массива по возрастанию.

Упорядочивание массива по какому-либо признаку именуется сортировкой. Есть разные способы сортировки, они различаются в главном по скорости получения результата. Разглядим какой-то из них – способ “пузырька”. Это более обычный Вывод коэффициента рекуррентности q (да и более неспешный) способ сортировки. Его еще именуют «сортировка обменом пар».

Разглядим метод этого способа тщательно. Пусть имеется последовательность из 6 чисел, содержащих последующие значения: 1, 3, 4, 2, 6, 5.

Пройдем по массиву, сравнивая 1-ый элемент со вторым, 2-ой с третьим и т.д. до 5-ого. Будем инспектировать упорядоченность, и если она нарушена (т Вывод коэффициента рекуррентности q.е. если значение некого элемента больше значения последующего элемента), то поменяем эти значения местами. К примеру, дойдя до третьего элемента, значение которого равно 4, мы найдем, что оно больше значения 4-ого элемента, равного 2. Выполнив обмен, получим новейшую последовательность значений: 1, 3, 2, 4, 6, 5.

После чего перейдем к четвертому элементу. Сейчас его значение равно Вывод коэффициента рекуррентности q 4. Значение последующего элемента равно 6, оно больше 4, потому обмена значениями не происходит. Перейдя к пятому, обнаруживаем, что его значение больше шестого, и производим обмен. Итак, выполнив один проход по массиву, получим последовательность значений: 1, 3, 2, 4, 5, 6.

Эта последовательность до конца не отсортирована. Но мы можем с уверенностью сказать, что больший элемент находится на собственном месте Вывод коэффициента рекуррентности q – на правой границе массива. Выполняя новые проходы, всякий раз сокращая количество просматриваемых частей на 1, мы в конечном счете отсортируем все значения. Данный метод получил заглавие «пузырьковая сортировка», потому что в процессе каждого прохода элемент вроде бы «всплывает» на свое место, подобно пузырьку воздуха в воде.

Приведем пример Вывод коэффициента рекуррентности q программки, реализующей описанный метод сортировки.

Program sort;

Const

n=7;

Var

a:array[1..n] of real;

x,i,j:integer;

Begin

For i:=1 to n do

Begin

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

readln(a[i]);

end;

For i:=1 to n-1 do

For j:=1 to n-i do

If a[j]>a[j+1] then

Begin

x:=a[j];

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

a[j+1]:=x

end;

For i:=1 to n do

write(a[i]:5);

readln Вывод коэффициента рекуррентности q;

End.

2. Поиск элемента в массиве.

Одна из принципиальных невычислительных задач – поиск данного значения посреди частей массива. Таковой поиск также именуется поиском по ключу. На практике поиск осуществляется в упорядоченном массиве. Имеются разные методы поиска. В данном учебном примере осуществим поиск методом сплошного перебора. Если элемент найден, напечатаем его номер, если нет Вывод коэффициента рекуррентности q – выдадим соответственное сообщение. Значимым будет то, какой из схожих частей массива, равных данному, нас интересует: 1-ый, встретившийся при поиске, либо последний. В данном примере будем находить 1-ый. Поиск осуществляется в цикле. Как элемент найден, нужно выйти из цикла. Для преждевременного выхода из цикла используем оператор бесспорного перехода goto. Если преждевременный выход Вывод коэффициента рекуррентности q не произойдет, означает, элемент, равный данному, в массиве отсутствует. В таком случае выдача сообщения об отсутствии элемента должна быть сходу после цикла поиска. Как следует, чтоб обойти печать номера элемента, нужно использовать очередной оператор goto и еще одну метку в программке.

Вероятный вариант программки поиска:

Program poisk;

Const

n=7;

label1,2;

Var

a:array[1..n] of real Вывод коэффициента рекуррентности q;

x:real;i:integer;

Begin

For i:=1 to n do

Begin

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

readln(a[i]);

end;

write(‘введите разыскиваемое x=’);

readln(x);

For i:=1 to n do

If a[i]=x then goto 1;

writeln(‘такового числа в массиве нет’);

goto 2;

1: write(‘номер элемента массива, равного данному значению ’,i)

End.

3.Методы обработки матриц.

Двумерный массив либо Вывод коэффициента рекуррентности q прямоугольная матрица B из n строк и m столбцов в общем виде смотрится последующим образом:

b11 b12 b1m

b21 b22 b2m

bn1 bn2 bnm

На языке Pascal имена частей массива записываются также с 2-мя номерами (индексами):

b[1,1],b[1,2],…,b[1,m],b[2,1],b[2,2],…,b[2,m],…,b[n,1],b[n,2],…,b[n,m].

В Вывод коэффициента рекуррентности q памяти компьютера элементы двумерного массива размещены один за одним: после частей первой строчки следуют элементы 2-ой строчки матрицы и т.д. Если количество строк матрицы равно количеству столбцов, то такая матрица именуется квадратной. Основная диагональ квадратной матрицы проходит из левого верхнего угла в правый нижний.

Разглядим задачки Вывод коэффициента рекуррентности q обработки матриц и методы их решения.

3.1. Вычисление суммы частей главной диагонали квадратной матрицы.

Для решения задачки нужно выполнить последующие шаги: ввести матрицу в память; отыскать сумму частей главной диагонали; напечатать итог. Описание матрицы, как и описание одномерного массива, употребляется для резервирования памяти. В описании матрицы указываются спектры для 2-ух Вывод коэффициента рекуррентности q номеров: строк и столбцов.

При обработке массивов в разделе описания переменных программки возникают имена индексов частей: для одномерных массивов – одной, для двумерного – 2-ух целочисленных переменных.

При вычислении суммы частей диагонали следует направить внимание на имена суммируемых частей: оба индекса имеют однообразное значение, т.е. в общем виде имя элемента диагонали Вывод коэффициента рекуррентности q будет b[i,i]. Это значит, что можно рассматривать диагональ как одномерный массив и использовать один цикл для вычислений.

Программка имеет последующий вид:

Program Sum_Diagonal;

Const

N=3;

Var

b:array[1..n,1..n] ofreal;

I,j:interger;

S:real;

Begin

writeln(‘введите значения частей матрицы по строчкам’);

writeln(‘в конце каждой строчки жмите Вывод коэффициента рекуррентности q Enter’);

for i:=1 to n do

Begin

forj:=1 to n do read(b[i,j]);

writeln;

end;

S:=0;

for i:=1 to n do

S:=s+b[i,i];

write(‘сумма частей диагонали матрицы s=’,s);

End.

3.2.Нахождение больших частей каждой строчки матрицы.

Каждую строчку матрицы можно рассматривать как одномерный массив и использовать идею нахождения большего значения в программке maxim из предшествующего раздела Вывод коэффициента рекуррентности q. Отысканные значения будем помещать в одномерный массив a.

Program Max_In_Rows;

Const

n=3;

Var

b:array[1..n,1..n] ofreal;

I,j:interger;

a:array [1..n] of real;

Begin

writeln(‘введите значения частей матрицы по строчкам’);

writeln(‘в конце каждой строчки жмите Enter’);

for i:=1 to n do

Begin

forj:=1 to n do read(b[i,j]);

writeln;

end;

for i:=1 to n do

Begin

a[i Вывод коэффициента рекуррентности q]:=b[i,1];

for j:=2 to n do

if a[i]then a[i]:=b[i,j];

end;

writeln (‘Самые большие значения строк матрицы S’);

writeln (‘Номер строчки Наибольшее значение’);

for i:=1 to n do

writeln (i:6,’ ’:20,a[i]);

End.

3.3. Нахождение сумм частей столбцов матрицы.

При обработке матриц можно производить операции как над строчками, так Вывод коэффициента рекуррентности q и над столбцами. При нахождении суммы частей столбцов можно использовать метод из программки summa предшествующего раздела. Для наилучшего осознания работы программки введем переменную S для вычисления суммы, а потом для каждого столбца запишем приобретенный итог в массив a, т.е. присвоим его переменной a[j], где j – текущий номер Вывод коэффициента рекуррентности q столбца матрицы.

Ниже приводится вероятный вариант программки.

Program Sum_By_Columns;

Const

n=3;

Var

b:array[1..n,1..n] ofreal;

I,j:interger;

S:=real;

a:array [1..n] of real;

Begin

writeln(‘введите значения частей матрицы по строчкам’);

writeln(‘в конце каждой строчки жмите Enter’);

for i:=1 to n do

Begin

forj:=1 to n do read(b[i,j]);

writeln;

end;

for j:=1 to n do

Begin

S Вывод коэффициента рекуррентности q:=0;

for i:=1 to n doS:=S+b[i,j];

a[,j]:=S;

end;

write(‘сумма частей столбцов матрицы: ’);

for i:=1 to n do

write(a[i]);

End.

3.4. Перестановка строк матрицы.

В прямоугольной матрице b из n строк и m столбцов требуется поменять местами две строчки. При решении этой задачки можно использовать Вывод коэффициента рекуррентности q метод обмена значениями 2-ух переменных из программки сортировки. Для этого довольно организовать цикл по переменной столбца и, используя промежную (буферную) переменную, поменять местами каждую пару частей, стоящих в одном столбце. При данных номерах строк K и L решение смотрится так:

Program Sum_Diagonal;

Const

n=3;m=4;

Var

b:array[1..n,1..m] ofreal;

c:real Вывод коэффициента рекуррентности q;

K,L,i,j:interger;

Begin

write(‘Введите номера меняемых местами строк матрицы’);

readln(K,L);

writeln(‘введите значения частей матрицы по строчкам’);

writeln(‘в конце каждой строчки жмите Enter’);

for i:=1 to n do

Begin

forj:=1 to n do read(b[i,j]);

writeln;

end;

for j:=1 to m do

Begin

c:=b[K,j];

b[K,j}:=b Вывод коэффициента рекуррентности q[L,j};

b[L,j}:=c;

end;

writeln;

writeln(‘матрица с переставленными строчками:’);

for i:=1 to n do

Begin

for j:=1 to m do

write(b[i,j]);

wtiteln

end;

End.

Пример решения лабораторной работы.

Задачка 1. Высчитать сумму отрицательных частей массива А(n), если понятно, что n = 5, A = (1.5, -4.6, 10, -1.7, -4.9).

Программка 1:

PROGRAM lab5_1;

CONST

n=5;

TYPE

ar=array[1..n] of real Вывод коэффициента рекуррентности q;

VAR

a:ar;

s:real;

i:integer;

BEGIN

{Ввод начальных данных}

WriteLn(‘Введите ’, n, ' вещественных частей массива‘);

for i:=1 to n do

Read(a[i]);

{Выполнение задачи}

s:=0;

for i:=1 to n do

if a[i]<0 then s:=s+a[i];

{Вывод результата}

if s=0 then WriteLn(‘Отрицательных частей нет.’)

else WriteLn(' S=',s:8:4);

END.

Результаты Вывод коэффициента рекуррентности q расчета:

S=-11.2000

Задачка 2. Отыскать разность R меж наибольшим и наименьшим элементами массива

Программка 2:

PROGRAM lab;

CONST

m=3; {количество строк, столбцов}

TYPE

mas=array[1..m,1..m] of integer;

VAR

A:mas; {массив А}

R:integer; {разность}

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

Amin:integer; {минимальный элемент}

i,j:integer; {счетчики по строчкам, столбцам}

BEGIN

for i Вывод коэффициента рекуррентности q:=1 to m do {чтение начальных данных}

for j:=1 to m do read(A[i,j]);

close(fi)

Amin:=A[1,1]; {начальные установки}

Amax:=A[1,1];

for i:=1 to m do {поиск малого и наибольшего элементов} for j:=1 to m do

begin

if A[i,j]

if Вывод коэффициента рекуррентности q A[i,j]>Amax then Amax:=A[i,j]

end;

R:=Amax-Amin; {разность}

WriteLn(' R=',R:4);

close(fo)

END.

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

R = 20

Варианты заданий

Задачка 1

1. Отыскать корешки уравнения Ax + Bsina = 0, где a = 1.3, A = {1.1, 2.5, 3.9, 8.1, 4.5, 12.1, 11.9, 15.5}. (i = 1..8).

2. Вычислить массив , где – положительные корешки уравнения Ax + Bcosb = 0, при А = 0.75, B = 4.5, b = -1.5 .. 2.5, .

3. Отыскать сумму всех положительных частей Вывод коэффициента рекуррентности q массива A = {-1.2, 3.5, 4.1, 8.5, 5.3, -6.1, 3.4, 2.7}.

4. Отыскать произведение частей массива A = {1, 3.5, 4, -0.8, 1.9, 5, 13}, удовлетворяющих условию , если С = 2, D = 10. Сформировать из этих частей массив Z.

5. Вычислить

при Y = -5.5, X = {-1.8, -1.6, ... , 1.2}. Итог представить в виде массива.

6. Отыскать номера первого нечетного и последнего четного чисел из последовательности целых чисел N = {10, 8, 4, 3, 6, 15, 2}.

7. Даны два массива: A = {1.1, 2, 4, 5.1, -8.2, -1.5, 1.2}, B = {-1.3, 2.7, -3.2, 5, 1.8, -4.6, -1.2}. Отыскать число перемен символов Вывод коэффициента рекуррентности q последовательности попарных произведений

8. Отыскать разность меж наибольшим и К-м элементом массива А = {-1.1, 2.5, -2.9, 8.8, 14.5, 2.2, -1.3, 5.9} при К = 4.

9. Вычислить элементы массива

где x – корешки серии уравнений Аx + sini = 0, , А = 5.5.

10. Отыскать сумму первых К положительных частей массива А = (2.8, -3.5, -2.1, 4, 6, 8.1, 6.2, 9.5, 1.1) при К = 5.

11. Отыскать количество частей массива A = {1.2, 5, 7, 9.3, 6.9, -8, -1.5, 2.5, 2.8}, удовлетворяющих условию , если С = -3.5, D = 6. Сформировать из Вывод коэффициента рекуррентности q этих частей массив F.

12. Отыскать произведение последних N отрицательных частей массива А = (-5, 6.1, -9.2, 4, 5, -2, 7, -1, 5, 4, 1.9, -3, 5); N = 3.

13. Сформировать массив , четные составляющие которого равны компонентам массива А = (-5.1, 2.3, 4.6, 5.8, -2.9), нечетные – компонентам массива В = (2.8, 3, 5.4, -1.9, -4.1).

14. Отыскать количество положительных, отрицательных и равных нулю частей массива М = (-5, 0.1, 2.8, 0.64, 3, -5.1, 0, -7.5, 4.6, 10).

15. Посреди последовательности чисел отыскать 1-ое, наименьшее данного числа e (e = ).

16. Элементы Вывод коэффициента рекуррентности q массива A рассчитываются по формуле , i = 1..10. Сформировать массив B, элементы которого удовлетворяют условию , если С = 2.5, D = 10.3.

17. Задан массив целых чисел N = (1, 5, -3, 3, 15, 21, 8, -5). Нужно за один просмотр отыскать два малых числа.

18. Вычислить значения частей массива S, которые являются модулями частей массива Z: .

19. Даны два массива: М1 = (-5, 10, 21, 35, -9, 11, 4, 5) и М2 = (1, 5, 10, -3, 4, -15, 36, 6, 11). Отыскать их объединение Вывод коэффициента рекуррентности q и итог записать в массив М3.

20. Вычислить где х = , массив, элементы которого являются остатком от деления целых компонент массива N = (156, 18, 72, 10, 95, 100) на целое число К = 9.

21. Задан массив Х = (-1.5, 6.8, -3, 9, 7, -2.7, -4.5, 1.6). Вычислить произведение модулей отрицательных и сумму положительных частей массива Х.

22. Заданы массивы А = (-1.1, 2, 8, 9, 5, 5.3, 5, -5, 2.1) и С = (8, 9, 1, 2, -5, 3.4, 4.9, 6, 1.8). Отыскать их скрещение и итог записать в Вывод коэффициента рекуррентности q массив В.

23. Задан массив А = (5.5, -6, 8, 9.1, -3.5, 4.1, 10, -1, 2.5). Вычислить , где и – соответственно наибольший и малый элементы массива А; – их среднее арифметическое.

24. В массиве Н = (-0.5, 2.8, 9.1, -0.3, 10, -1, 2.1, 8.2) указать номер первого элемента, сумма которого с следующим за ним элементом не превосходит D (D = 1.5).

25. Вычислить

где – элементы массива В = (0.1, 2, 5, -3.1, 4.2, -1.2, 6, -2, 3.7, 5.2), n = 10, a = 4.5.

26. Решить квадратное уравнение , где А – сумма частей Вывод коэффициента рекуррентности q массива К = (2.1, 0.25, 1.4, -1.9), В – их произведение, а С = -1.34.

27. Вычислить элементы массива Y по формуле

где - корень уравнения , – элемент массива А = (1.2, -4.6, 3.8, -2.3, 0.6, 1.7).

28. Отыскать большее из чисел А, В, С, где А – сумма модулей отрицательных, В – произведение положительных частей массива К, С – разность меж наибольшим и наименьшим его элементами. К = (10.1, 0.2, -3.4, -0.5, 3.6, -12.9, 5.7).

29. Найти произведение 2-ух чисел А×В Вывод коэффициента рекуррентности q, где А – сумма первых К, а В – последних К частей массива С = (2, 4, -2, 9, 7, -10, 11, -1), К = 3.

30. Найти величины и индексы наибольшего по модулю и малого частей массива В = (-1.5, 6.9, 13, 6.2, -17, 8, 6.6).

Задачка 2

1. Задан массив А(m,n). Сформировать массив В из меньших частей каждой строчки массива А:

2. Дан массив В(m,n). Сформировать массив С Вывод коэффициента рекуррентности q(n) из сумм частей каждого столбца В:

3. В массиве Е(m,n) поменять местами элементы i-й и k-й строк:

4. В массиве Р(m,n) все элементы поделить на наибольший элемент k-го столбца:

5. Задан массив А(m,n). Сформировать массив С из частей четных Вывод коэффициента рекуррентности q столбцов и массив В из частей нечетных строк массива А:

6. Дан целочисленный массив О(m,n). Сформировать одномерные массивы В и С, содержащие, соответственно, четные и нечетные элементы массива А:

7. Сформировать массив В из произведений частей столбцов массива Z:

8. Сформировать массив Т из сумм частей, расположенных в строчках с отрицательными Вывод коэффициента рекуррентности q элементами на главной диагонали начального массива Z:

9. Сформировать массив NS из номеров строк массива R, в каких имеются повторяющиеся значения:

10. В массиве Q(m,n) поменять отрицательные элементы номером столбца, в каком они находятся:

11. Сформировать массив В из частей массива А, наименьших Е:

12. Сформировать массив В из частей, расположенных Вывод коэффициента рекуррентности q ниже главной диагонали начального массива К:

13. В массиве V(n,n) элементы строчки, содержащей больший элемент, поменять на s:

14. Конвертировать массив H(n,n), разделив все элементы на наибольший элемент К-го столбца:

15. Отыскать разность R меж наибольшим и наименьшим элементами массива W:

16. Задан массив A(m,n). Сформировать массив Вывод коэффициента рекуррентности q B из положительных частей массива A:

, m = 2, n = 3.

17. Конвертировать массив G(m,n), поменяв местами элементы К-го и (К+1)-го столбцов:

18. К отрицательным элементам массива D(m,n) прибавить S, а из положительных отнять X:

19. В массиве F(n,m) поменять все положительные элементы их квадратами Вывод коэффициента рекуррентности q, а отрицательные – их кубами:

20. Сформировать массив В из отношений частей N и S столбцов массива:

21. Сформировать массив R из номеров строк массива Y(m,n), в каких находятся наибольшие элементы каждого столбца:

22. Сформировать массив К из положительных отношений частей n-го и s-го столбцов массива

23. Сформировать одномерный массив В из Вывод коэффициента рекуррентности q частей массива А(n,n), которые по величине больше, чем С:

24. Элементы массива S(m,m) поделить на сумму частей, расположенных на главной диагонали:

25. Конвертировать массив А(m,n), умножив его элементы на сумму соответственных им индексов:

26. Сформировать массив В из частей главной диагонали и массив С из Вывод коэффициента рекуррентности q частей дополнительной диагонали начального массива А:

27. Найти сумму S частей массива А(n,n), расположенных ниже главной диагонали, и произведение Р частей массива А(n,n), расположенных выше главной диагонали:

28. Конвертировать массив К(m,m), заменив все элементы, огромные А, наибольшим элементом массива К, а элементы, наименьшие В, – наименьшим его элементом:

29. Найти Вывод коэффициента рекуррентности q массив В из произведений частей строк начального массива K:

30. Отыскать разность R меж наибольшим и наименьшим элементами массива Y:

Лабораторная работа № 6

ТЕКСТОВЫЕ ФАЙЛЫ

Цель работы–детализированное исследование файлов данных и методов доступа к ним; приобретение способностей ввода-вывода обычных переменных разных типов; ознакомление с вводом-выводом индексированных переменных, массивов; применение форматирования Вывод коэффициента рекуррентности q выводимой инфы.

Постановка задачки:

1. Начальные величины представить в виде наружного текстового файла, ввести их из файла и вывести на экран в формате.

2. Ввести начальный массив из текстового файла. Вывести его в естественном виде. Выполнить задание. Результаты вывести в другой текстовый файл.

Теоретические сведения

Физические файлы

Файл – поименованная область для хранения данных Вывод коэффициента рекуррентности q на физическом носителе. Доступ к файлу для обмена данными происходит по имени.

Устройства ЭВМ, с которыми происходит обмен данными, в MS DOS также рассматриваются как файлы и имеют свои имена:

CON – клавиатура (экран монитора); если ‘СОN’ организован для чтения, то это клавиатура, если для записи – экран;

LPT1, LPT2, LPT Вывод коэффициента рекуррентности q3 – параллельные порты (если установлены) – порты вывода данных;

PRN – принтер (синоним LPT1);

COM1, COM2 – поочередные порты коммуникации – порты ввода-вывода;

AUX – синоним COM1;

NUL – фиктивное устройство (бездонный файл) – только для вывода.

Логические файлы

Логический файл описывается при помощи переменной 1-го из файловых типов:

Var f : .

Он связывается с физическим файлом методом присвоения Вывод коэффициента рекуррентности q переменной файлового типа имени физического файла:

assign(f, ).

После чего все воззвания к файлу выполняются через файловую переменную f. Так поступают для унификации работы с файлами, чтоб можно было работать не с физическими устройствами ЭВМ, а с их логическими представителями.

Буфер


vitamin-v.html
vitamin-v17-amigdalin.html
vitamin-v6-piridoksin.html