Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
a_maziar
5 / 5 / 0
Регистрация: 24.02.2013
Сообщений: 40
1

Составить блок-схему

16.03.2013, 10:19. Просмотров 220. Ответов 0
Метки нет (Все метки)

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
uses crt;
type matr=array[1..100,1..100]of integer;
var a,b,c,d,e:matr;
    x:integer;
procedure Vvod(var m:matr; x,y:integer);
var i,j:integer;
begin
 for i:=1 to x do
 for j:=1 to y do
 m[i,j]:=random(10);
end;
procedure Vyvod(m:matr; x,y:integer);
var i,j:integer;
begin
 for i:=1 to x do
 begin
  for j:=1 to y do 
  write(m[i,j]:4);
  writeln;
 end;
end;
procedure vych(x,y:integer; a,b:matr; var c:matr);
var i,j:integer;
begin
 for i:=1 to x do for j:=1 to y do c[i,j]:=a[i,j]-b[i,j];
end;
procedure Peremnozhenie(a:matr; x,y:integer; b:matr; z:integer; var c:matr);
var i,j,k:integer;
    s:integer;
begin
 for i:=1 to x do
 for j:=1 to z do
 begin
  S:=0;
  for k:=1 to y do
  S:=S+a[i,k]*b[k,j];
  c[i,j]:=S;
 end;
end;
begin
 clrscr;
   write('Введите кол-во строк и столбцов матрицы A и B:');
   readln(x);
   Vvod(a,x,x);
   Vyvod(a,x,x);
   Vvod(b,x,x);
   Writeln;
   Vyvod(b,x,x);
   Peremnozhenie(a,x,x,b,x,c);
   Peremnozhenie(b,x,x,a,x,d);
   writeln('A*B = ');
   Vyvod(c,x,x);
   writeln('B*A = ');
   Vyvod(d,x,x);
   vych(x,x,c,d,e);
   Writeln('AB-BA=');
   Vyvod(e,x,x);
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2013, 10:19
Ответы с готовыми решениями:

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

Составить блок-схему
Uses crt; const Nmax = 10; var A: array of integer; i, j, n, m: byte;...

Составить блок-схему
uses crt; const nmax=20; var a:arrayof integer; i,j,n,m:integer;...

Составить блок-схему
uses crt; var a,b,c,x,y:integer; Begin write('a='); readln(a); ...

Составить блок-схему!!!
Программа готовая, но я затрудняюсь в составлении блок-схемы. Помогите.... ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.03.2013, 10:19

Составить блок схему
Помогите пожалуйста составить блок-схему к данной задаче: Дано натуральное...

Составить блок схему
Дана действительная матрица размера m X n. Найти среднее арифметическое...

Составить блок-схему
Здравствуйте, уважаемые гуру программирования ^^ у меня проблема с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru