Лабораторные работы

@crayzers · Регистрация: 27.11.2009

Студворк — интернет-сервис помощи студентам

Пару дней осталось до сдачи помогите кто чем может… у кого есть уже какието готовые решения или примерные решения……

1. В чем сходство и различие в обращении к скалярной переменной и к элементу массива? Приведите три примера.
2. В чем сходство и различие одномерного и двумерного массива? Приведите не менее трех сходств и различий.
3. Двумерный массив NxN заполнен 0, 1 и 2. Выясните, стоят ли в нем два нуля рядом по горизонтали или вертикали. Напишите программу для решения этой задачи.
4. Проверьте, есть ли в квадратной матрице NxN такая строка, каждый элемент которой больше суммы элементов каждой другой строки. Напишите программу для решения этой задачи.
5. Найдите самый короткий путь между максимальным и минимальным элементами двумерного массива, если разрешается двигаться вправо, влево, вверх, вниз и по диагонали. Напишите программу для решения этой задачи.
6. В двухмерном массиве NxM найдите среднее арифметическое первого столбца и количество элементов в каждом из следующих столбцов, превышающих среднее арифметическое предыдущего столбца. Напишите программу для решения этой задачи.
7. Задан двумерный массив. Найдите сумму элементов первого столбца без одного последнего элемента, сумму элементов второго столбца без двух последних, сумму третьего столбца без трех последних и т.д. Последний столбец не обрабатывается. Среди полученных найдите максимальную сумму. Напишите программу для решения этой задачи.
8. В массиве хранятся натуральные числа из интервала от 10 до 50, сформированные случайным образом. Выведите его на экран построчно, где каждая строка содержит столько звездочек, каково значение соответствующего элемента массива. Напишите программу для решения этой задачи.
9. В одномерном массиве хранятся случайные натуральные числа от 1 до 65. Напечатайте в каждой строке столько звездочек, прижатых вправо, каково значение соответствующего элемента массива. Например, для А = {7, 3, 2, 3, 4} получим:
начало листа * * * * * * * правая граница печати
* * *
* *
* * *
* * * *

Напишите программу для решения этой задачи.
10. Отсортируйте одномерный массив так, чтобы в начале располагались четные элементы в порядке возрастания их значений, а затем - нечетные в порядку убывания их значений. Напишите программу для решения этой задачи.
11. Последовательность элементов задается следующими соотношениями:
для i > 4
Подсчитайте, сколько раз среди первых n элементов последовательность меняет знак. Напишите программу для решения этой задачи.
12. Задана информация об n книгах. О каждой книге известно количество страниц и среднее количество букв на каждой странице. Представьте эту информацию в виде, удобном для обработки на компьютере, и найдите номера книг, количество информации в которых находится между 12 Мб и 16 Мб. Напишите программу для решения этой задачи.
13. Сколько элементов двумерного массива больше любого элемента главной диагонали?
14. Вычислите: s = 2 + 22 + 222 + ... + 222...2. Последнее слагаемое содержит n цифр, где n > 1997. Напишите программу для решения этой задачи.
15. Назовем словом любую последовательность прописынх и строчних букв русского алфавита. Предложение состоит из слов, отделены одним или несколькими пробелами. В конце предложения ставиться точка.
15.1 - Разработать шаблон, который позволит задавать структуру слова. Шаблон должен содержать литералы (символы, задающие свое собственное словесное изображение и мета символы):
15-1-a Для изображения одного любого символа
15-1-б Для изображения строки, состоящей из произвольного, в том числе нулевого колличества символов
15-1-в Для указания символов, которые могут находиться в указанной позиции слова
15-1-г Для указания символов, которые не могут находиьтся в указанной позиции слова
16 В одномерном массиве с четным количеством элементов (2*n) находятся координаты N точек на плоскости. Они расположенность в следующем порядке: x1,y1,x2,y2,x3,y3.... определить номера точек которые могут быть вершинами правильного треугольника.

За ранее спасибо....

Помогите плиз....

@nonamez123 · 29.11.2010, 21:02

6.

Pascal
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
31
32
33
34
35
36
37
38
39
40
program test;
const n=100;
 
   var
      i,j,a,b,sum,c : integer;
      mas : array [1..n,1..n] of integer;
 
begin
sum:=0;
readln(a,b);
 
for i:= 1 to a do
for j:= 1 to b do
mas[i,j]:=random(5);
 
 
for i:= 1 to a do
begin
for j:= 1 to b do
write(mas[i,j]);
writeln;
end;
 
for i:= 1 to a do
sum:=sum+mas[i,1];
 
sum:=sum div a;
 
for i:= 2 to a do
begin
for j:= 1 to b do
if mas[i,j]>sum then inc(c);
writeln;
end;
 
writeln('srednee ',sum);
writeln('elementov >',sum,' : ',c);
readln;
 
end.

@patricksmirnov · 30.11.2010, 00:07

7

Pascal
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
31
32
33
34
35
36
37
38
program zadacha7;
uses crt;
const n=100;
var a:array[1..N,1..N] of integer;
stolbec,stroka:integer;
i,j,k,sum,max:integer;
Begin
write('Kolvo_strok= ');
readln(stroka);
write('Kolvo_stolbcov= ');
readln(stolbec);
 
for i:=1 to stroka do
  begin
    for j:=1 to stolbec do
     begin
     a[i,j]:=Random(10);
     write(a[i,j]:3);
     end;
    writeln;
  end;
  sum:=0;
  k:=1;
  max:=0;
for j:=1 to stolbec-1 do
  begin
    for i:=1 to stroka-k do
       begin
        sum:=sum+a[i,j];
 
       end;
       writeln('Summa_v_ ',j ,' = ' ,sum);
       if sum>max then max:=sum;
       sum:=0;
       k:=k+1;
  end;
writeln('max= ',max);
End.

@nonamez123 · 30.11.2010, 02:36

блин, а я уже хотел 7 делать)))

Добавлено через 15 минут
8.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program test;
   var
      i,j : integer;
      mas : array [1..40] of integer;
 
begin
{заполняем массив бредом}
randomize;
for i:=1 to 40 do
mas[i]:=random(50-10+1)+10;
 
{выведем массив на всякие пожарные для сравнения}
for i:=1 to 40 do
write(mas[i],',');
 
writeln;
{если я правельно понял, то нужно каждый элменент представить звёздочками}
for i:=1 to 40 do
begin
for j:=1 to mas[i] do
write('*');
writeln
end;
end.

@Nikkor · 30.11.2010, 11:45

Надеюсь, что верно: 3

Pascal
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
31
32
33
34
35
36
uses crt;
const
 n=2;
var a:array[1..n,1..n] of integer;
    i,j,g,v:integer;
 
begin
 clrscr;
  for i := 1 to n do    {zapolnenie nXn}
   for j := 1 to n do
    a[i,j] := random(3);
 
  for i:=1 to n do begin {vivod nXn}
   for j:=1 to n do
    write(a[i,j], ' ');
    writeln;
                   end;
v:=0;
g:=0;
 
  for i := 1 to n do
   for j := 1 to n do begin
    if (a[i,j] = 0) and (a[i,j]=a[i+1,j]) then inc(v);
                      end;
  for i := 1 to n do
   for j := 1 to n do begin
    if (a[i,j] = 0) and (a[i,j]=a[i,j+1]) then inc(g);
                      end;
 Writeln;
 if g<>0 then
 Writeln('Stoyat po gorizontali') else writeln('Nestoyat po gorizontali');
 if v<>0 then
 Writeln('Stoyat po vertikali') else writeln('Nestoyat po vertikali');
 
readln;
end.

Добавлено через 4 минуты
4-ая задача... незнаю как сравнить элементы строки вкупе. Могу лишь найти отдельные элементы, которые больше суммы элементов какой-нибудь строки;

Pascal
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
31
32
33
uses crt;
const
 n=3;
var a:array[1..n,1..n] of integer;
    s:array[1..n] of integer;
    i,j,k,z:integer;
 
begin
 clrscr;
  for i := 1 to n do    {zapolnenie nXn}
   for j := 1 to n do
    a[i,j] := random(5);
 
  for i:=1 to n do begin {vivod nXn}
   for j:=1 to n do
    write(a[i,j], ' ');
    writeln;
                   end;
 for i:=1 to n do
     for j:=1 to n do begin s[i]:=s[i]+a[i,j]; end;
 
 writeln;
 
 z:=0;
 
 for i:=1 to n do
  for j:=1 to n do begin for k:=1 to n do begin
  if a[i,j] > s[k] then inc(z); end; end;
 
writeln(z);
 
readln;
end.

@BadDavil · 30.11.2010, 13:09

16

Pascal
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
program Project1;
const
  n = 50;
var
  a: array[1..n*2] of integer;
  i,i1,i2,i3: integer;
  Function LengthPoint(x1,y1,x2,y2: integer): real;
  begin
    result := sqrt( (x2-x1)*(x2-x1) + (y2-y1)*(y2-y1) );
  end;
begin
  randomize;
  for i := 1 to n*2 do
      a[i] := random(100);
 
 
  for i1 := 1 to n-2 do
    for i2 := i1 + 1 to n-1 do
      for i3 := i2 + 1 to n do
        begin
          if (LengthPoint(a[i1*2-1],a[i1*2],a[i2*2-1],a[i2*2])=LengthPoint(a[i1*2-1],a[i1*2],a[i3*2-1],a[i3*2])) and //длины сторон равны
             (LengthPoint(a[i1*2-1],a[i1*2],a[i2*2-1],a[i2*2])=LengthPoint(a[i2*2-1],a[i2*2],a[i3*2-1],a[i3*2]))  //длины сторон равны
             then
              writeln('Point1: xy(', a[i1*2-1], ',', a[i1*2], '); ',
                      'Point2: xy(', a[i2*2-1], ',', a[i2*2], '); ',
                      'Point3: xy(', a[i3*2-1], ',', a[i3*2], ');');
        end;
end.

@nonamez123 · 30.11.2010, 18:13

4.

Pascal
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program test;
const n=100;
 
type mass=array [1..n,1..n] of integer;
 
   var
      i,j,a,sum,b : integer;
      mas : mass;
      summ : array [1..n] of integer;
 
begin
randomize;
write('vvedite razmer massiva AxB ');
readln(a);
 
for i:= 1 to a do
begin
for j:= 1 to a do
mas[i,j]:=random(50);
end;
 
for i:= 1 to a do
begin
for j:= 1 to a do
write(mas[i,j]:4);
writeln;
end;
 
for i:= 1 to a do
begin
sum:=0;
for j:= 1 to a do
sum:=sum+mas[i,j];
summ[i]:=sum;
end;
 
writeln;
for i:= 1 to a do
write(summ[i]:4);
 
writeln;
b:=0;
for i:= 1 to a do
begin
sum:=0;
for j:= 1 to a do
if mas[i,j]>summ[i] then inc(b);
summ[i]:=b;
end;
 
for i:=1 to a do
if summ[i]=a then writeln(i,') v stolbike da')
else writeln(i,') takih net');
readln;
 
end.

@BadDavil · 01.12.2010, 15:01

9-ая

Pascal
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program Project1;
const
  n = 65;
var
  a: array[1..n] of integer;
  i,
  max    : integer;
 
 
  Function Space(c: char; len: integer): string;  //ñîçäàåì îäíîòèïëóþ ñòðîêó èç ñèìâîëîâ
  var
    r: string;
    j: integer;
  begin
    r:='';
    for j:=1 to len do
      r:=r+c;
    result:=r;
  end;
 
  Function lPad(s: string; c:char; len: integer): string; //äîáèâàåì ñëåâà ñòðîêó ñèìâîëàìè
  var
    j: integer;
    r: string;
  begin
    r:=s;
    for j:=length(s) to len do
      r:=c+r;
    result:=r;
  end;
 
begin
  randomize;
  for i := 1 to n do
    a[i] := random(20);
 
  max := a[1];
  for i := 1 to n do
    if a[i]>a[1] then
      a[1] := a[i]; //íàõîäèò ìàêñèìàëüíûé ýëåìåíò ïî êîòîðîìó áóäåì âûðàâíèâàòü
 
 
  for i := 1 to n do
      writeln(lpad(Space('*',a[i]),' ',max));
end.

Добавлено через 41 минуту
10:

Pascal
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program Project1;
const
  n = 20;
var
  a: array[1..n] of integer;
  i,j,
  i_max,
  i_min    : integer;
  r        : integer;
begin
  randomize;
  for i := 1 to n do
    a[i] := random(20);
 
  i_min := 1;
  i_max := n;
  while i_min<>i_max do
    begin
      if (a[i_min] mod 2) = 0 then inc(i_min) //åñëè ÷èñëî ÷åòíîå, òî ïåðåõîäèì ê ñëåäóþùåìó
      else //åñëè íå ÷åòíîå, òî âòîðîé ïðîõîä ñ êîíöà
        begin
          if (a[i_max] mod 2) <> 0 then dec(i_max)  //Åñëè ÷èñëî íå ÷åðíîå, òî ïðåõåäèì ê ñëåäóþùåìó
          else  //à âîò ýòîò ñëó÷àé, êîãäà â íà÷àëå ÷èñëî íå ÷åòíîå, à â êîíöå ÷åòíîå... ò.å. íóæíî ïîìåíÿòü èõ ìåñòàìè
            begin
              r:=a[i_max];
              a[i_max] := a[i_min];
              a[i_min ]:= r;
            end;
        end;
    end;
 
  i_min := i_min-1; //ïîñëåäíèé ÷åòíûé ýëåìåíò
  for i := 1 to i_min-1 do
    for j := i+1 to i_min do
      if a[i]>a[j] then
        begin
          r:=a[i];
          a[i] := a[j];
          a[j]:= r;
        end;
 
  for i := i_max to n-1 do
    for j := i+1 to n do
      if a[i]<a[j] then
        begin
          r:=a[i];
          a[i] := a[j];
          a[j]:= r;
        end;
 
  for i := 1 to n do
      writeln(a[i]);
end.

Добавлено через 1 час 31 минуту
5:
принцип волны...
в точку максимума кидается камень... и по принципу расхождения волны в окружающих элементах заполняются шаги по мере увеличения...

SetSetkaStep - рекурсия (вызывает сама себя) пока не дойдет до точки минимума.

Pascal
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
program Project1;
const
  n = 20;
var
  a: array[1..n,1..n] of integer;
  s: array[0..n+1,0..n+1] of integer;    //сетка с шагами
  i,j     : integer;
  i_min,j_min,  //координаты минимального
  i_max,j_max: integer;  //координаты макс
  min,max: integer;
  step_c: integer;
 
  Procedure SetSetkaStep(Step, stop_i, stop_j: integer);
  var
    sub_i,
    sub_j: integer;
  begin
    for sub_i := 1 to n do
      for sub_j := 1 to n do
        begin
          if s[sub_i,sub_j] = -1 then //не обработано
            //если хоть в одной ячейке рядом есть значение с предидущим шагом, то проставляем новый шаг
            if (s[sub_i-1,sub_j-1]=Step-1) or
               (s[sub_i-1,sub_j  ]=Step-1) or
               (s[sub_i-1,sub_j+1]=Step-1) or
               (s[sub_i,  sub_j-1]=Step-1) or
               (s[sub_i,  sub_j+1]=Step-1) or
               (s[sub_i+1,sub_j-1]=Step-1) or
               (s[sub_i+1,sub_j  ]=Step-1) or
               (s[sub_i+1,sub_j+1]=Step-1) then s[sub_i,sub_j] := step;
        end;
    if s[stop_i,stop_j]=-1 then //еще не обработали то к чему шли запускаем дальше, но со следующим шагом
      SetSetkaStep(Step+1, stop_i, stop_j)
  end;
begin
  randomize;
  for i := 0 to n+1 do
    for j := 0 to n+1 do
      begin
        if (i>=0) and (i<=n) and
            (j>=0) and (j<=n) then
                a[i,j] := random(20);
        s[i,j] := -1;
      end;
 
  i_min := 1;
  j_min := 1;
  i_max := 1;
  j_max := 1;
  min := a[i_min,j_min];
  max := a[i_max,j_max];
  for i := 1 to n do
    for j := 1 to n do
      begin
        if a[i,j] < min then
          begin
            i_min := i;
            j_min := j;
            min := a[i_min,j_min];
          end;
        if a[i,j] > max then
          begin
            i_max := i;
            j_max := j;
            max := a[i_max,j_max];
          end;
      end;
 
  //идем от минимума к максимому, но можно и наоборот, смотря где задать 0 в сетке шагов
  s[i_max,j_max] := 0;
  SetSetkaStep(1, i_min, j_min); 
 
  i := i_min;
  j := j_min;
  step_c := s[i,j];
  while (i <> i_max) or (j <> j_max) do
    begin
      WriteLn('шаг:', step_c-s[i,j], '; Элемент:', a[i,j], '; i:', i, '; j:', j);
 
      if s[i-1,j-1] = s[i,j]-1 then
        begin i:=i-1; j:=j-1; end
      else if s[i-1,j] = s[i,j]-1 then
        begin i:=i-1; j:=j; end
      else if s[i-1,j+1] = s[i,j]-1 then
        begin i:=i-1; j:=j+1; end
      else if s[i,j-1] = s[i,j]-1 then
        begin i:=i; j:=j-1; end
      else if s[i,j+1] = s[i,j]-1 then
        begin i:=i; j:=j+1; end
      else if s[i+1,j-1] = s[i,j]-1 then
        begin i:=i+1; j:=j-1; end
      else if s[i+1,j] = s[i,j]-1 then
        begin i:=i+1; j:=j; end
      else if s[i+1,j+1] = s[i,j]-1 then
        begin i:=i+1; j:=j+1; end;
    end;
  WriteLn('шаг:', step_c-s[i,j], '; Элемент:', a[i,j], '; i:', i, '; j:', j);
end.

Добавлено через 8 минут
13:

Pascal
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
program Project1;
const
  n = 20;
var
  a: array[1..n,1..n] of integer;
  i,j     : integer;
  min     : integer;
  count   : integer;
 
begin
  randomize;
  for i := 1 to n do
    for j := 1 to n do
        a[i,j] := random(20);
 
  //Больше любого элемента => больше минимального элемента
  min := a[1,1];
  for i := 1 to n do
    if a[i,i] < min then min :=a[i,i];
 
  count := 0;
  for i := 1 to n do
    for j := 1 to n do
      if (i<>j) then   //не учитываем главную диагональ
        if a[i,j]>min then inc(count);
 
  WriteLn('Количество: ', Count);
end.

Добавлено через 26 минут
14:
магия чисел

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Project1;
const
  n = 1998;
var
  b: array[1..9999] of byte; //для каждой цифры своя ячейка
  i,
  per: integer;
begin
  per := 0;
  for i:=n downto 1 do
    begin
      b[i] := ( i*2 + per ) mod 10;
      per  := ( i*2 + per ) div 10;
    end;
  write('Число для n=',n,': ');
  for i:=1 to n do
    write(b[i]);
  writeln;
end.

Добавлено через 17 минут
12:

удобный формат - это CSV.

Pascal
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
31
32
33
34
35
36
37
program Project1;
const
  n = 10;
type
  tbook = record
    pCount: integer;   //количество страниц
    Average: integer;  //среднее значение букв
  end;
 
var
  book: array[1..n] of tBook;
  i   : integer;
  c   : string;
begin
  randomize;
  for i:=1 to n do
    begin
      book[i].pCount :=  random(1000);
      book[i].Average := random(500);
    end;
 
  writeln('НомерКниги,КоличествоСтраниц,СреднееКоличествоБукв');
  for i:=1 to n do
    writeln(i, ',', book[i].pCount, ',', book[i].Average);
  writeln;
 
  c:='';
  Write('Номера книг, количество информации в которых находится между 12 Мб и 16 Мб: ');
  for i:=1 to n do
    if (book[i].pCount*book[i].Average/1024/1024 > 12) and
        (book[i].pCount*book[i].Average/1024/1024 < 16) then
      begin
        write(c,i);
        c:=',';
      end;
  writeln;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

Лабораторные работы

Решение

Решение

Решение

@crayzers 0 / 0 / 0 Регистрация: 27.11.2009 Сообщений: 5

	Лабораторные работы 29.11.2010, 20:41. Показов 6476. Ответов 7 Метки нет (Все метки) Пару дней осталось до сдачи помогите кто чем может… у кого есть уже какието готовые решения или примерные решения…… 1. В чем сходство и различие в обращении к скалярной переменной и к элементу массива? Приведите три примера. 2. В чем сходство и различие одномерного и двумерного массива? Приведите не менее трех сходств и различий. 3. Двумерный массив NxN заполнен 0, 1 и 2. Выясните, стоят ли в нем два нуля рядом по горизонтали или вертикали. Напишите программу для решения этой задачи. 4. Проверьте, есть ли в квадратной матрице NxN такая строка, каждый элемент которой больше суммы элементов каждой другой строки. Напишите программу для решения этой задачи. 5. Найдите самый короткий путь между максимальным и минимальным элементами двумерного массива, если разрешается двигаться вправо, влево, вверх, вниз и по диагонали. Напишите программу для решения этой задачи. 6. В двухмерном массиве NxM найдите среднее арифметическое первого столбца и количество элементов в каждом из следующих столбцов, превышающих среднее арифметическое предыдущего столбца. Напишите программу для решения этой задачи. 7. Задан двумерный массив. Найдите сумму элементов первого столбца без одного последнего элемента, сумму элементов второго столбца без двух последних, сумму третьего столбца без трех последних и т.д. Последний столбец не обрабатывается. Среди полученных найдите максимальную сумму. Напишите программу для решения этой задачи. 8. В массиве хранятся натуральные числа из интервала от 10 до 50, сформированные случайным образом. Выведите его на экран построчно, где каждая строка содержит столько звездочек, каково значение соответствующего элемента массива. Напишите программу для решения этой задачи. 9. В одномерном массиве хранятся случайные натуральные числа от 1 до 65. Напечатайте в каждой строке столько звездочек, прижатых вправо, каково значение соответствующего элемента массива. Например, для А = {7, 3, 2, 3, 4} получим: начало листа * * * * * * * правая граница печати * * * * * * * * * * * * Напишите программу для решения этой задачи. 10. Отсортируйте одномерный массив так, чтобы в начале располагались четные элементы в порядке возрастания их значений, а затем - нечетные в порядку убывания их значений. Напишите программу для решения этой задачи. 11. Последовательность элементов задается следующими соотношениями: для i > 4 Подсчитайте, сколько раз среди первых n элементов последовательность меняет знак. Напишите программу для решения этой задачи. 12. Задана информация об n книгах. О каждой книге известно количество страниц и среднее количество букв на каждой странице. Представьте эту информацию в виде, удобном для обработки на компьютере, и найдите номера книг, количество информации в которых находится между 12 Мб и 16 Мб. Напишите программу для решения этой задачи. 13. Сколько элементов двумерного массива больше любого элемента главной диагонали? 14. Вычислите: s = 2 + 22 + 222 + ... + 222...2. Последнее слагаемое содержит n цифр, где n > 1997. Напишите программу для решения этой задачи. 15. Назовем словом любую последовательность прописынх и строчних букв русского алфавита. Предложение состоит из слов, отделены одним или несколькими пробелами. В конце предложения ставиться точка. 15.1 - Разработать шаблон, который позволит задавать структуру слова. Шаблон должен содержать литералы (символы, задающие свое собственное словесное изображение и мета символы): 15-1-a Для изображения одного любого символа 15-1-б Для изображения строки, состоящей из произвольного, в том числе нулевого колличества символов 15-1-в Для указания символов, которые могут находиться в указанной позиции слова 15-1-г Для указания символов, которые не могут находиьтся в указанной позиции слова 16 В одномерном массиве с четным количеством элементов (2*n) находятся координаты N точек на плоскости. Они расположенность в следующем порядке: x1,y1,x2,y2,x3,y3.... определить номера точек которые могут быть вершинами правильного треугольника. За ранее спасибо.... Помогите плиз.... 0