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

Блок-схема

19.03.2013, 01:35. Просмотров 295. Ответов 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
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
105
106
107
uses crt;
type matr=array[1..100,1..100]of real;
var a,b,c:matr;
    x:integer;
    g:char;
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 Vvodb_a(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]:=1/(i+j-1);
end;
procedure Vvodb_b(var m:matr; x,y:integer);
var i,j:integer;
begin
 for i:=1 to x do
 for j:=1 to y do
 if i<=j then m[i,j]:=1/(i+j-1) else m[i,j]:=1/(i+j+1);
end;
procedure Vvodb_c(var m:matr; x,y:integer);
var i,j:integer;
begin
 for i:=1 to x do
 for j:=1 to y do
 if i<j then m[i,j]:=1/(i+j-1) else
 if i=j then m[i,j]:=0 else m[i,j]:=-(1/(i+j-1));
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:1,' ');
  writeln;
 end;
end;
procedure Peremnozhenie(a:matr; x,y:integer; b:matr; z:integer; var c:matr);
var i,j,k:integer;
    s:real;
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('Выберите вариант задания 4 (a,b,c): ');
 g:=readkey;
 if g='a' then
   begin
   writeln;
   write('Введите кол-во строк и столбцов матрицы A и B:');
   readln(x);
   Vvod(a,x,x);
   Vyvod(a,x,x);
   Writeln;
   vvodb_a(b,x,x);
   vyvod(b,x,x);
   Peremnozhenie(a,x,x,b,x,c);
   writeln('A*B = ');
   Vyvod(c,x,x);
  readln;
  end;
if g='b' then 
   begin
   writeln;
   write('Введите кол-во строк и столбцов матрицы A и B:');
   readln(x);
   Vvod(a,x,x);
   Vyvod(a,x,x);
   Writeln;
   vvodb_b(b,x,x);
   vyvod(b,x,x);
   Peremnozhenie(a,x,x,b,x,c);
   writeln('A*B = ');
   Vyvod(c,x,x);
  readln;
  end;
  if g='c' then
     begin
   writeln;
   write('Введите кол-во строк и столбцов матрицы A и B:');
   readln(x);
   Vvod(a,x,x);
   Vyvod(a,x,x);
   Writeln;
   vvodb_c(b,x,x);
   vyvod(b,x,x);
   Peremnozhenie(a,x,x,b,x,c);
   writeln('A*B = ');
   Vyvod(c,x,x);
  readln;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2013, 01:35
Ответы с готовыми решениями:

Блок-схема
Помогите, пожалуйста!) Мне нужна блок схема по массиву, а именно...

Блок-Схема
Прошу.. Напишите пожалуйста блок-схему. procedure One; var sum,i, count:...

Блок-схема
Begin Uses crt; Var x,s,t,e:real; n:integer; begin clrscr; x:=0.2;...

блок-схема
помогите сделать блок-схему uses crt; var a: arrayof integer; b:...

Блок-схема
uses crt; var s,s1,s2:string; i,t,r:integer; begin clrscr;...

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

Блок-схема
Народ, помогите с блок-схемой. const maxSubstr = 3; NA = -1; type ...

Блок-схема
program sort_roz; uses crt; type roz=(a,v,g,av,kt,yu); const sor:array of...

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


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

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

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