Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Shaman-hell
0 / 0 / 0
Регистрация: 21.12.2010
Сообщений: 4
1

траблы с блок схемой, пжлста помог....

21.12.2010, 22:15. Просмотров 247. Ответов 0
Метки нет (Все метки)

вот задача-
Сформировать матрицы {aij}n,m , {bij}k,l , где i<=(n,k), j<=(m,l) , элементы
которых определяются случайно из диапазона целых чисел от -3 до 3.Фактическое число строк (n,k) и столбцов (m,l) каждой матрицы вводить с клавиатуры. Создать процедуру, которая определяет все максимальные по модулю элементы, если их несколько, в трех последних столбца матрицы и заменяет их суммой элементов соответствующего столбца. Вывести на экран исходные и результирующие массивы.

вот решение-
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
Program lab_8;
type dtape=array[1..50,1..50] of integer;
var i, j, k, l, m, n:byte;
a, b: dtape;
procedure mm (n1, m1:byte; var d: dtape);
var max: integer;
sum: array[1..50] of integer;
begin
max:= -1;
for j:=1 to m do begin
sum[j]:=0;
for i:=1 to n do begin
if abs(d[i, j])>abs(max) then max:=abs(d [i, j]);
sum[j]:= sum[j]+ d [i, j];
end;
end;
for i:=1 to n do
for j:=m-2 to m do
if abs(d[i, j])= max then d [i, j]:=sum[j];
end;
begin
randomize;
writeln(‘количество строк и столбцов матрицы А’);
readln (n, m);
writeln(‘количество строк и столбцов матрицы B’);
readln (k, l);
writeln (‘A=);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(7)-3;
write(a[i,j]:3);
end;
writeln;
end;
writeln('B=');
for i:=1 to k do begin
for j:=1 to l do begin
b[i,j]:=random(7)-3;
write(b[i,j]:3);
end;
writeln;
end;
mm (n, m, a);
writeln('A=');
for i:=1 to n do begin
for j:=1 to m do 
write(a[i,j]:3);
writeln;
end;
mm (k, l, b);
writeln('B=');
for i:=1 to k do
for j:=1 to l do
write(b[i,j]:3);
writeln;
end;
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2010, 22:15
Ответы с готовыми решениями:

Нарисуйте блок схему пжлста )
Вообщем сабж нужно начертить блок схему по такому заданию : нужно найти сумму...

ПОмогите с блок-схемой
var i,s,n,m:integer; begin writeln('Введите m,n,i' ); readln(m,n,i); ...

Помогите с блок схемой
Помогите с блок схемой для этой проги program Mesyac; Uses Crt; Var a:...

операторе if с блок-схемой
Даны действительные числа x,y,z. Если все числа положительны,увеличить их...

Помогите с блок-схемой
Код я написала, помогите мне блок-схему нарисовать с комментариями,...

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

оператор For с блок-схемой
написать программу определения суммы всех нечетных чисел в диапазоне от 1 до 99...

Помогите с блок-схемой к задаче.
Program funkciya; var x:integer; y:real; begin write('введите x:...

помогите с блок-схемой по этим кодам
1. var x,y,z,m,r,q,a,min,max,w,k,l:real; begin writeln('x,y,z= ');...


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

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

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