задание по лабе

@GepardD · Регистрация: 23.10.2009

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

Помогите ПОЖАЛУЙСТО!!

1.Дано три матрицы. Составить програму, которая выводит на экран матрицу, которая имеет найбольшую суму не плюсовх элементов, которые не содержатся на главной и под сторонней(боковой) диагоналями

2, Три триугольника задаются координатами своих вершин на площине. Найти триугольник, который имеет найбольший угол, и найти площадь этого триугольника.

3, Дано файл F, состовляющие которого – явные числа. найти:
a) производные первого и опоследнего состовляющего файла F.
b) суму найбольшего и найменшего значения состовляющих файла F.

Добавлено через 16 часов 14 минут
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
uses crt;
var
   imin,imax:real;
   f:text;
   a:array[1..100] of real;
   i,k:byte;   
Begin
     clrscr;
     assign (f,'input.txt');
     reset(f);
     k:=1;
     while not EOF (f) do
       begin
           readln (f,a[k]);
           inc(k);
       end;
     writeln('Даннi файлу');
     for i:=1 to k-1 do
          write(' ',a[i]);
     imin:=a[1];
     imax:=a[1];
     writeln();
     for i:=2 to k-1 do
        if imin>a[i] then imin:=a[i];
          writeln('Мiнiмальне  значення = ', imin:1:2);
     for i:=2 to k-1 do
        if imax<a[i] then  imax:=a[i];
          writeln('Максимальне значення = ', imax:1:2); 
     writeln('Сума найменшого та найбiшого елемента = ',imin+imax);
     writeln('Добуток першого й останнього компонента файла = ',a[1]*a[k-1]);
     close(f);
  readkey;
end.

2) работа с масивом

i - это номер треугольника. j - это номер координаты
напротив самой большой стороны самый большой угол.
находим сторону выводим показатель i. потом по теореме герона находим площадь

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
uses
  crt;
 
const
  n = 3;
 
var
  lmax, s, p: real;
  i, j, imax: byte;
  x: array[1..n, 1..n] of integer;
  y: array[1..n, 1..n] of integer;
  l: array[1..n, 1..n] of real;
 
begin
  clrscr;
  {----------------------------------заполнение----------------}
  writeln('Введiть координаты трикутникiв');
  for i := 1 to n do
  begin
    writeln('Координати ', i, '-го трикутника');
    for j := 1 to n do
    begin
      read(x[i, j], y[i, j]);
      writeln(j, '-а вершина: (', x[i, j], ';', y[i, j], ')');
    end;
  end;
  {-------------------------длины сторон-----------------------}  
  lmax := l[1, 1];
  for i := 1 to n do
  begin
    l[i, 1] := sqrt(sqr(x[i, 1] - x[i, 2]) + sqr(y[i, 1] - y[i, 2]));
    l[i, 2] := sqrt(sqr(x[i, 1] - x[i, 3]) + sqr(y[i, 1] - y[i, 3]));
    l[i, 3] := sqrt(sqr(x[i, 3] - x[i, 2]) + sqr(y[i, 3] - y[i, 2]));
  end;
  {----------------самая большая сторона-----------------------}
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if lmax < l[i, j] then
      begin
        lmax := l[i, j];
        imax := i;
      end;
    end;
  end;
  writeln(imax, '-ий трикутник має найбiльший кут й сторону що = ', lmax:5:2);    
  {------------------------площадь------------------------------}  
  p := (l[imax, 1] + l[imax, 2] + l[imax, 3]) / 2;
  s := sqrt(p * (p - l[imax, 1]) * (p - l[imax, 2]) * (p - l[imax, 3]));
  writeln('Площа = ', s:5:2);
  readkey;
end.

1) двумерные масивы

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
99
100
101
102
103
104
uses
  crt;
 
const
  n = 3; l = 25;
 
type
  mas = array [1..n] of array [1..n] of integer;
 
var
  sum1, sum2, sum3: integer;
  i, j: byte;
  x, y, z: mas;
 
begin
  clrscr;
  {---------------заполняем матрици-------------------------}  
  
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      x[i, j] := random(l) - 25;
      y[i, j] := random(l) - 24;
      z[i, j] := random(l) - 23;
    end; 
  end;
  {--------------выводим на екран---------------------------}
  writeln();
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(x[i, j]:3);
    end;
    writeln();
  end;
  writeln();
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(y[i, j]:3);
    end;
    writeln();
  end; 
  writeln();
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(z[i, j]:3);
    end;
    writeln();
  end;
  writeln();
  {--------------считаем сумы матриц------------------------}  
  for i := 1 to n do
    for j := 1 to n do
    begin
      if (i <> j) and ((i + j) <> (n + 1)) then
      begin
        if x[i, j] <= 0 then inc(sum1, x[i, j]);
        if y[i, j] <= 0 then inc(sum2, y[i, j]);
        if z[i, j] <= 0 then inc(sum3, z[i, j]);
      end;
    end;
  {--------------ищем наибольшую суму матриц-----------------}
  writeln();
  if (sum1 > sum2) and (sum1 > sum3) then
  begin
    for i := 1 to n do
    begin
      for j := 1 to n do
      begin
        write(x[i, j]:3);
      end;
      writeln();
    end;
  end;
  if (sum2 > sum3) and (sum2 > sum1) then 
  begin
    for i := 1 to n do
    begin
      for j := 1 to n do
      begin
        write(y[i, j]:3);
      end;
      writeln();
    end; 
  end;
  if (sum3 > sum2) and (sum3 > sum1) then
  begin
    for i := 1 to n do
    begin
      for j := 1 to n do
      begin
        write(z[i, j]:3);
      end;
      writeln();
    end;
  end;
  readkey;
end.

Спасибо всем за работу.

@Sp1ne · 20.06.2010, 01:12

Я что-то не понял? Это ты сам свои же задачи и решил?

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Sp1ne 18 / 17 / 11 Регистрация: 19.10.2009 Сообщений: 43
	20.06.2010, 01:12
	Я что-то не понял? Это ты сам свои же задачи и решил? 0