Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 47
1

Нужно переделать программу с random на ручной ввод

08.12.2013, 14:05. Показов 842. Ответов 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
08.12.2013, 14:05
Ответы с готовыми решениями:

Переделать программу на ручной ввод или считывание данных из файла
помгите,пожалуйста,вместо random использовать просто ввод чисел или сразу их считывание из файла ...

Как переделать рандомное заполнение матрицы на ручной ввод?
#include &quot;stdafx.h&quot; #include &lt;stdlib.h&gt; #include &lt;locale.h&gt; #include &lt;stdio.h&gt; #include...

Переделать задачу на массив, изменив рандомный ввод данных на ручной
Массив 6 на 8 заполняется рандомно, нужно переделать так, чтобы вводить данные вручную. program...

Как совместить ручной ввод и заполнение рандом в одну программу?
как совместить ручной ввод и рандом в одну прогу? Нужно чтоб выбиралось .код ниже РАНДОМ const ...

1
7 / 7 / 5
Регистрация: 27.10.2013
Сообщений: 170
08.12.2013, 18:25 2
Что тут сложного, надо изменить всего лишь 2 строчки

Pascal
1
 randomize; // На 11 строчке
И замени 15 строчку на:
Pascal
1
 readln(i,j);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2013, 18:25

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Сделать программу более компактной + Ручной ввод размерности квадратной матрицы.
Программу я написал. Но надо сделать программу еще более компактной. + Вопрос, как сделать так,...

Нужно переделать ввод массива
Сама задача выглядит так: Дан двумерный массив целых чисел. В каждом его столбце найти...

Переделать Math.random() в random()
public static void CompMove() { int x = (int) (Math.random() * 3), y = (int) (Math.random() *...

Переделать программу (ввод значений)
Программа считает одинаковое или не одинаковое кол-во скобок в начале и в конце слова &quot;Скобки&quot;....


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

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

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