|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.11.2014, 19:57 | #1 |
Пользователь
Регистрация: 11.11.2014
Сообщений: 13
|
Использование подпрограмм в массивах
Добрый вечер, прошу помочь с использованием подпрограмм.
Нужно код переделать так чтобы : ввод данных, вычисление и вывод были отдельными подпрограммами. Не пойму как это сделать. Зарание спасибо! |
22.11.2014, 11:58 | #2 |
Пользователь
Регистрация: 11.11.2014
Сообщений: 13
|
вот код
Код HTML:
var a: array [1..99, 1..99] of integer; i, j, k, n, l: integer; begin writeln('Vvtdite Kolichestvo elementov massiva'); read(n); k := 1;l := 1; writeln('Vvedite matrix A', n, 'x', n); for i := 1 to n do begin for j := 1 to n do begin readln(a[i, j]); end; end; writeln('Basha Marix'); for i := 1 to n do begin for j := 1 to n do begin write(a[i, j]:6); if a[i, j] > a[k, l] then begin k := i;l := j; end; end; writeln; end; writeln('Max Element A', n, 'x', n, ' [', k, ',', l, ']=', a[k, l]); writeln('Novaya Matrix'); for i := 1 to n do begin for j := 1 to n do begin write((a[i, j] / a[k, l]):2); end; writeln; end; end. |
22.11.2014, 14:39 | #3 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,656
|
Цитата:
У меня есть несколько примеров с матрицами, где ввод, вывод матриц и действия с ними сделаны функциями. Подарить тебе? Вот один из примеров: Код:
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
Последний раз редактировалось min@y™; 22.11.2014 в 14:48. |
|
22.11.2014, 19:10 | #4 |
Пользователь
Регистрация: 11.11.2014
Сообщений: 13
|
Спасибо) 6 часов и справился сам)
сейчас работал над похожей матрицей : Найти больший элемент в каждой строке матрицы. Есть небольшая проблема - если вводить сначала большую строку (98 43) то программа выдает ответ : Большие элементы - 9 и 9 а если наоборот то ответ правильный - 4 и 9 можете помочь исправить этот недостаток. PHP код:
|
22.11.2014, 19:20 | #5 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,656
|
отформатируй исходник по-человечски, читать же невозможно!
и убери все глобалные переменные с глаз долой! Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Использование подпрограмм | Shyrick | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 10.06.2014 15:32 |
Использование подпрограмм | specnazkin | Помощь студентам | 0 | 12.05.2011 15:43 |
использование подпрограмм | ANutaStar | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 12.12.2010 12:59 |
Использование подпрограмм | бургер | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 29.04.2010 04:21 |
Использование подпрограмм | inferno fm | Общие вопросы Delphi | 2 | 19.09.2009 18:37 |