0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 47
1

Нужно составить блок схему

05.12.2013, 23:43. Показов 353. Ответов 1
Метки нет (Все метки)

В заданной квадратной матрице A(K,K) (K<=10) вычислить сумму элементов, расположенных над главной диагональю. Полученной суммой заменить минимальный элемент всей матрицы. Сумму и матрицу распечатать.

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
uses crt; 
 const
    K = 3 ; 
type
    massiv = array [1..K, 1..K] of integer; 
var
    mass : massiv; 
    summa , min , i , j : integer; 
 begin
clrscr; 
randomize; 
summa := 0; 
 for i:=1 to K do 
    for j:=1 to K do // цикл
        mass[i,j] := random(10); 
 min := mass[1,1]; 
for i:=1 to K do
    begin
        for j:=1 to K do 
            begin
                write(mass[i,j], ' | ');
                if (mass[i,j] < min) then
                    min := mass[i,j]; 
            end;
        writeln; 
    end;
 
for i := 1 to K do 
    for j := i + 1 to K do 
       summa := summa + mass[i,j];
 Writeln;
Writeln('Минимальный элемент матрицы: ', min);
Writeln('Сумма равна ', summa);
Writeln('Матрица :');
 
for i:=1 to K do
    begin
        for j:=1 to K do
            begin
                if (mass[i,j] = min) then
                    mass[i,j] := summa; 
                write(mass[i,j]:2, ' | '); 
            end;
        writeln;
    end;
 readln; 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2013, 23:43
Ответы с готовыми решениями:

нужно составить блок схему
В одномерном массиве определить номер 1-го нулевого элемента. Const=20 var a:array of integer;...

срочно нужно составить блок- схему
K=1/sin a+2/sin2a+3/sin3a+4/sin4a+........ sin2a-это синус квадрат а...

Дана программа нужно составить блок-схему
uses crt; var a,b,b1:array of integer; q,i,j,t,sum,min,mini,n:integer; begin clrscr;...

Мне нужно составить блок-схему к программе.
Program PPN1_3; uses crt; const d=2; ES=-0.006; EI=-0.016; esmin=0;...

1
693 / 567 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
06.12.2013, 10:15 2
seregeyshev,
Миниатюры
Нужно составить блок схему  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2013, 10:15

Нужно составить блок-схему к коду паскаль
Program my1; uses crt; var a,b:array of integer; c:array of integer; i:integer; begin...

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

Составить блок-схему
Привет. Помоги пожалуйста создать блок схему по этой программе! (Язык Pascal) program iska;...

Составить блок-схему
Помогите пожалуйста составить блок схему : Program Dengi; uses crt; var a,c,d:real; begin...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru