| ← Январь 2012 → | ||||||
|
3
|
4
|
5
|
6
|
7
|
8
|
|
|---|---|---|---|---|---|---|
|
11
|
12
|
13
|
14
|
15
|
||
|
16
|
17
|
18
|
19
|
20
|
21
|
|
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 185072: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Нужно написать программу в Turbo Pascal, желательно с комментариями. В матрице Z(5,6) первый отрицательный элемент каждого столбца заменить суммой следующих за ним значений. Отрицательные элементы до замены вывести в массив. ... Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 06.01.2012, 12:46 Консультирует Роман Селиверстов (Советник): Здравствуйте, xDefx! Код : program negative;
var i,j,k,n: integer;
z: array[1..5,1..6] of integer;
m: array[1..6] of integer;
begin
for i:=1 to 5 for j:=1 to 6 do read(z[i,j]); {Вводим элементы матрицы}
k:=1; {активируем номер элемента массива для первого отрицательного числа}
for j:=1 to 6 do {цикл по столбцах}
begin
for i:=1 to 5 do {цикл по строках}
begin
if z[i,j]<0 then {в случае нахождения первого отрицательного элемента:}
begin
m[k]:=z[i,j]; {записываем его в массив}
k:=k+1;{активируем следующий номер элемента массива для следующего отрицательного числа}
z[i,j]:=0; {обнуляем текущее отрицательное число для замены его на сумму}
for n:=i+1 to 5 do z[i,j]:=z[i,j]+z[n,j]; {вычисление суммы по строках, начиная со следующей}
i:=6; {для того, чтобы выйти из цикла по строках, так как надо заменить лишь первое отрицательное число}
end;
end;
end;
end.
Консультирует Юдин Евгений Сергеевич (Студент): Здравствуйте, xDefx! Код : Program p1085072;
const n=5;
m=6;
var a:array [1..n,1..m] of integer;
summ,i,j,k:integer;
begin
{Сделаем ввод вручную}
for i:=1 to n do
begin
for j:=1 to m do
begin
write('a[',i,',',j,']=');
read(a[i,j]);
end;
writeln;
end;
{поиск по столбцам отрицательных элементов и замена их на сумму предыдущих}
for i:=1 to m do
begin
for j:=1 to n do
begin
if a[j,i]<0 then
begin
if j<m-1 then {проверяем чтобы отрицательный элемент столбца не был внизу столбца}
begin
k:=j+1;
summ:=0;
while (k<=n) do
begin
summ:=summ+a[k,i];
k:=k+1;
end;
a[j,i]:=summ;
break;
end;
end;
end;
end;
{вывод}
for i:=1 to n do
begin
for j:=1 to m do
begin
write('a[',i,',',j,']=',a[i,j],'; ');
end;
writeln;
end;
end.все предельно просто и понятно.... Если будут какие вопросы дополнения, то через минифорум все обсудим и доделаем Удачи! 
Приложение:
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.33 от 10.09.2011 |
| В избранное | ||
