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

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

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

 
 Ответить  Открыть новую тему 
> Операции над двумерным массивом., Косяк-как быть?
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский
Реальное имя: nadja

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


привет всем!!
дан двумерный массив в нем поменять четные числа на 0.
вот набросила код
код рабочий
однако небольшой косяк. Вместе с исходной матрицей паскаль распечатывает новую матрицу, ОДНАКО в новой матрице только заменившиеся нулями четные числа. КУДА ДЕЛИСЬ НЕЧЕТНЫЕ?? как их вернуть? wink.gif

program ss;
uses crt;
const n=5;m=5;
var a: array[1..n,1..m] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
if a[i,j] mod 2=0 then begin
a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
readln
end.

НИЖЕ ПРЕДСТАВЛЮ СКРИН КОСЯКА!

М
Теги! Првила Форума, п.5, и правила раздела Задачи, п.2
Исправил..


М
Название! Правила Форума, п.4, и правила раздела Задачи, п.1.
Исправил..



Прикрепленные файлы
Прикрепленный файл  __________.bmp ( 52.65 килобайт ) Кол-во скачиваний: 478
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(nadja yak @ 11.04.2011 12:56) *
НИЖЕ ПРЕДСТАВЛЮ СКРИН КОСЯКА!
только не надо кричать.. (правила Форума, п.6)

Вынеси печать элементов за пределы оператора if
Вот так:
program ss;
uses crt;
const
n=5;
m=5;

var
a: array[1..n,1..m] of integer;
i,j:integer;

begin
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln
end;
writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j] mod 2=0 then a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
readln
end.

Обрати внимание, что, если код форматированный, то заметить такую ошибку гораздо проще yes2.gif.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский
Реальное имя: nadja

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


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


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(nadja yak @ 11.04.2011 13:40) *
спасибо огромное! yes2.gif очень хороший у вас форум. радует)

вух!! как приятно.. ))


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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