IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Матрица, Форевер!
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Юра

Репутация: -  0  +


Народ помогите)
Водиться матрица А(n,n) Составить программу подсчета этой матрицы,образующих квадрат по уменьшаемуся на еденицу периметру. Исходную матрицу и сумму вынести на экран дисплеяю. любые варианты сразу выкладывайте хоть сырые хоть какие!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


>>подсчета этой матрицы
всмысле сумма элементов?


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Юра

Репутация: -  0  +


вроде да )( мне любой вариант! подойдет
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
любые варианты сразу выкладывайте хоть сырые хоть какие!


приказывать будешь в армии. Решение этой задачи я выкладывал в этом месяце. Ищи.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Юра

Репутация: -  0  +


ппц( а ещё раз мне не кинешь? завтра сдавать надо а если пойском то до конца года ненайду (
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Юра

Репутация: -  0  +


хоть ссылку кинь где искать эту работу?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Юра

Репутация: -  0  +


Поиск все матрицы какие токо есть выдаёт а мне совсем не те нужны(

Добавлено через 12 мин.
Любой код или соображения хоть какие мне киньте дальше я сам подумаю..... загатовки любые хоть чтонебуть
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


поиск->"сумматор+периметр"


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Юра

Репутация: -  0  +


сейчас попробую там поискать спс хоть на этом)

Добавлено через 3 мин.
Спасибо огромное чел кокраз та прога которая и нужна мне))))))))))))))))))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Юра

Репутация: -  0  +


program mtx;
const
n = 6;
type
TMatrix = array [1..n, 1..n] of Integer;

procedure Create(var mx: TMatrix);
var
i, j: Integer;
begin
randomize;

for i := 1 to n do
for j := 1 to n do
mx[i, j] := random(10);
end;
procedure Print(const mx: TMatrix);
var
i, j: Integer;
begin
for i := 1 to n do begin
writeln;
for j := 1 to n do write(mx[i, j]:2);
end;
writeln;writeln;
end;
function SquareSum(const mx: TMatrix; const deep: Integer): Integer;
var
s, i: Integer;
begin
s := 0;
for i := deep to n - deep + 1 do
s := s + mx[deep, i] + mx[n - deep + 1, i];
for i := deep + 1 to n - deep do
s := s + mx[i, deep] + mx[i, n - deep + 1];
SquareSum := s;
end;
var
mx: TMatrix;
i: Integer;
begin
Create(mx);
Print(mx);
for i := 1 to n div 2 do
writeln('deep = ', i, ' square_sum = ', SquareSum(mx, i));
end.
Народ я переписал её в паскаль опять комплит работает а ран прогу не запускает посмотрите мож где ошибся а?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Не делаешь как тебе советовали в предыдущей твой теме mad.gif
ALT+F5 нажми, может увидишь...

Сообщение отредактировано: Client -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Юра

Репутация: -  0  +


что именно? я вроде все перепроверил и end. и остальное ошибки при написании исправил.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Цитата(Client @ 23.12.2007 12:41) *

RadKey или Readln в конце поставил?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Юра

Репутация: -  0  +


Да спс точно я опять забыл. Всё сейчас поставил и работает.)))

Сообщение отредактировано: TeRmInWeB -


Прикрепленные файлы
Прикрепленный файл  PROG4.PAS ( 817 байт ) Кол-во скачиваний: 139
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.10.2020 2:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name