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

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

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

 
Closed Topic Открыть новую тему 
> Обработка двумерного массива, (переименовано)
сообщение
Сообщение #1


Новичок
*

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

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


Помогите решить задачу !!! На дву мерный массив!!!
Заача: Задать дву мерный массив И если один его элемент больше ста(100) то заменить главную и допольнительную диагонал нулями (0) !!! Помагите кто может !!! smile.gif

М
BAEVIK, у тебя на клавиатуре CapsLock не выключается? В следующий раз тема с таким названием: "пОМОГИТЕ рЕШИТЬ зАДАЧУ!" будет сразу же закрыта... Это на всякий случай, чтоб потом не было вопросов. Пока переименовано.



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


?
***

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

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


program _1_;
Type
Masiv = array[1..100,1..100] of integer;
procedure arr(var a:masiv;count:integer);
var i:integer;
begin
for i:=1 to count do
begin
a[i,i]:=0;
a[count-i+1,i]:=0;
end;
end;
var
a:masiv;
i:integer;
count:integer;
j:integer;
begin
writeln('введите количество строк');
readln(count);
Writeln('введите значение елементов масива ');
For i:=1 to count do
begin
for j:=1 to count do read(A[i,j]);
writeln;
end;
for i:=1 to count do
for j:=1 to count do
If a[i,j]>100 then
begin
arr(a,count);
break;
end;
for i:=1 to count do
begin
for j:=1 to count do Write(a[i,j],' ');
Writeln;
end;
readln;
end.


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


Новичок
*

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

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


Спасибо !!! smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


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

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

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


На миссиве 3х3 например, если все его элементы > 100, замена диагоналей выполнится 3 раза ...


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


?
***

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

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


Цитата
На миссиве 3х3 например, если все его элементы > 100, замена диагоналей выполнится 3 раза ...


for i:=1 to count do
for j:=1 to count do
If a[i,j]>100 then
begin
arr(a,count);
break;
end;

точно, break прекращает ток внутрений цикл но не внешний.
тогда можно

...
label 1;
...
for i:=1 to count do
for j:=1 to count do
If a[i,j]>100 then
begin
arr(a,count);
goto 1;
end;
1:
....

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

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

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


Спасибо та задача пр катила помогите решить ещё одну !
Записи и строки
Дано целое число. Создать массив символов, содержащий цифры этого числа в исходном и в обратном порядках.
Если можете то сделайте по быстрее а то меня завтро если не принесу таво , я просто не понимаю смысла в этой задаче !!! unsure.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Цитата
Если можете то сделайте по быстрее
Все-же прочитай правила форума, и не делай из темы свалку. Закрыто.
 К началу страницы 
+ Ответить 

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

 





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