Процедуры и функции

@Ocha · Регистрация: 18.12.2008

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

Здравствуйте прошу помоч с задачами по практике

1.Написать функцию умножения двух матриц X(N,M) и Y(M,K). Найти максимальный элемент матрицы F=A*B и минимальный элемент матрицы G=C*D (для вычисления матриц F и G использовать подпрограмму). Матрицы A, B, C и D вычисляются по формулам: Aij=1.5i+3j-4, Bij=0.4jesini, Cij=cos(2.1j)esin(3i), Dij=2ij-3i+4j+1, i=1,...,5; j=1,...,5.

2.Написать подпрограмму, которая определяет вероятность выпадения «счастливого билетика» в заданном диапазоне.

Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
const
  z = 6;
type
  ar2 = array[1..z] of integer;
var
  ch : real;
  n, m : longint;
 
procedure chance_succ(n, m : longint; var result : real);
var
  b : ar2;
  i, tmp : longint;
  count : integer;
  j : byte;
begin
  count := 0;
  for i:=n to m do
  begin
    tmp := i;
    for j:=1 to z do
    begin
      b[j] := tmp mod 10;
      tmp := tmp div 10;
    end;
  if (b[1]+b[2]+b[3]) = (b[4]+b[5]+b[6]) then inc(count);
  end;
 
  result := (count*100)/(m-n);
 
end;
 
begin
write('Vvedite promeshutok ot n до m: ');
read(n,m);
chance_succ(n,m,ch);
 
write('Veroyatnost: ',ch:4:2,'%');
readln;
end.

Во второй программе почему то всегда выдаёт значение равное 0

@Puporev · 02.07.2009, 19:26

38. read(n,m);
напиши
readln(n,m);

Добавлено через 1 минуту 55 секунд

Написать функцию умножения двух матриц X(N,M) и Y(M,K).

А это сколько тебе еще писать?

Добавлено через 2 минуты 44 секунды
Вот это буквально сегодня я кому писал?
https://www.cyberforum.ru/post207729.html

@Ocha · 02.07.2009, 19:27 **[ТС]**

В первой задаче, как умножение сделать я знаю, но там много условии, вот это я не знаю.

@Puporev · 02.07.2009, 19:43

Вот здесь хоть знаки и скобки правильно расставь, вообще ничкго не понять.
Bij=0.4jesini, Cij=cos(2.1j)esin(3i),

@Ocha · 02.07.2009, 19:54 **[ТС]**

A[i,j]=1.5*i+3*j-4

B[i,j]=0.4jesin*i

C[i,j]=cos(2.1*j)esin(3*i)

D[i,j]=2i*j-3*i+4*j+1

i=1,...,5; j=1,...,5.

@Puporev · 02.07.2009, 20:47

B[i,j]=0.4jesin*i
C[i,j]=cos(2.1*j)esin(3*i)
Ну и что ты тут расставил? Что такое esin?

Добавлено через 6 минут 44 секунды
Вот что для этого много ума надо, чтоб просто формулы переписать?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
1.
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
     begin
      a[i,j]:=1.5*i+3*j-4;
      write(a[i,j]:5:2);
    end;
  writeln;
end;
4.
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
     begin
      d[i,j]:=2*i*j-3*i+4*j+1;
      write(d[i,j]:5:2);
    end;
  writeln;
end;

Добавлено через 32 минуты 22 секунды
Если правильно расшифровал твои загадочные формулы, то вроде так.
2.

Pascal
1
2
3
4
5
6
7
8
9
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
     begin
      b[i,j]:=0.4*j*exp(1)*sin(i);
      write(b[i,j]:5:2);
    end;
  writeln;
end;

3.

Pascal
1
2
3
4
5
6
7
8
9
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
     begin
      c[i,j]:=cos(2.1*j)*exp(1)*sin(3*i);
      write(d[i,j]:5:2);
    end;
  writeln;
end;

@EvgeniiSp · 02.07.2009, 20:56

Так работает верно.

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
program EvgeniiSp;
{$APPTYPE CONSOLE}
const
  z = 6;
type
  ar2 = array[1..z] of integer;
var
  n, m : longint;
//-------------------------
 function chance_succ(n,m: longint): real;
  var
   b: ar2;
   i,tmp: longint;
   count: integer;
   j: byte;
  begin
   count := 0;
   for i:=n to m do
    begin
     tmp := i;
     for j:=1 to z do
      begin
       b[j] := tmp mod 10;
       tmp := tmp div 10;
      end;
     if (b[1]+b[2]+b[3]) = (b[4]+b[5]+b[6]) then inc(count);
    end;
   result:=(count*100)/(m-n);
  end;
//-------------------------
begin
 write('Vvedite promeshutok(6çíà÷íûé) ot n äî m(m > n): ');
 read(n,m);
 write('Veroyatnost: ',chance_succ(n,m):4:2,'%');
 readln;
end.

@Puporev · 02.07.2009, 20:57

Да и в его программе когда заменил read на readln тоже нормально работало, проверял.

@Ocha · 02.07.2009, 21:00 **[ТС]**

Спасибо большое!

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника 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, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136
	02.07.2009, 19:27 [ТС]
	В первой задаче, как умножение сделать я знаю, но там много условии, вот это я не знаю. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	02.07.2009, 19:43
	Вот здесь хоть знаки и скобки правильно расставь, вообще ничкго не понять. Bij=0.4jesini, Cij=cos(2.1j)esin(3i), 0

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136
	02.07.2009, 19:54 [ТС]
	A[i,j]=1.5i+3j-4 B[i,j]=0.4jesini C[i,j]=cos(2.1j)esin(3i) D[i,j]=2ij-3i+4j+1 i=1,...,5; j=1,...,5. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	02.07.2009, 20:57
	Да и в его программе когда заменил read на readln тоже нормально работало, проверял. 1

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136
	02.07.2009, 21:00 [ТС]
	Спасибо большое! 0