Практикум по решению задач на ЭВМ. Тарова И.Н - 45 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
Лабораторная работа № 11
Вложенные циклы в матричных задачах
1) Даны целые числа а
1
, а
2
, а
3
. Получить целочисленную матрицу
[b
ij
]
i,j=1,2,3
, для которой b
ij
=a
i
-3a
j
.
2) Дано натуральное число n. Получить действительную матрицу
[a
ij
]
i,j=1,…,n
для которой
⎪
⎪
⎩
⎪
⎪
⎨
⎧
+
+
=
<+
=
.
32
arcsin
,,1
,),sin(
случаяхостальныхв
ji
ji
jiпри
jiприji
a
ij
3) Написать программу, которая вводит с клавиатуры двумерный массив
и вычисляет сумму его элементов по столбцам.
uses CRT;
const
m=2;
n=5;
var
a:array[1..m,1..n] of integer;
s:array[1..n] of integer;
i,j:integer;
begin
clrscr;
writeln( 'введите массив');
write('после ввода элементов каждой строки, ',n,' целых чисел, ');
writeln('нажмите <enter>');
for i:=1 to m do
begin
write ('->');
for j:=1 to n-1 do
read (a[i,j]);
readln (a[i,n]);
end;
writeln ('Результат сложения по стобцам: ');
for j:=1 to n do
for i:=1 to m do
s[j]:=s[j]+a[i,j];
writeln('-------------------');
for i:=1 to n do
45
                          Практикум по решению задач на ЭВМ




  Лабораторная работа № 11
                       Вложенные циклы в матричных задачах
  1) Даны целые числа а1, а2, а3. Получить целочисленную матрицу
     [bij]i,j=1,2,3 , для которой bij=ai-3aj.

  2) Дано натуральное число n. Получить действительную матрицу
                                        ⎧
     [aij]i,j=1,…,n   для которой       ⎪             sin(i + j ), при    i < j,
                                        ⎪
                                  aij = ⎨                 1, при      i = j,
                                        ⎪        i+ j
                                        ⎪arcsin 2i + 3 j    в      остальных       случаях.
                                        ⎩

3) Написать программу, которая вводит с клавиатуры двумерный массив
   и вычисляет сумму его элементов по столбцам.

  uses CRT;
  const
    m=2;
    n=5;
  var
    a:array[1..m,1..n] of integer;
    s:array[1..n] of integer;
    i,j:integer;
  begin
    clrscr;
    writeln( 'введите массив');
    write('после ввода элементов каждой строки, ',n,' целых чисел, ');
    writeln('нажмите ');
    for i:=1 to m do
        begin
           write ('->');
          for j:=1 to n-1 do
              read (a[i,j]);
              readln (a[i,n]);
        end;
    writeln ('Результат сложения по стобцам: ');
    for j:=1 to n do
        for i:=1 to m do
           s[j]:=s[j]+a[i,j];
    writeln('-------------------');
    for i:=1 to n do


                                               45

Страницы