помогите решить задачу на ПАСКАЛЕ!

[Valentin]

Помогите пожалуйста решить задачу!!! на паскале
вот условие:

Массив
В массиве 4 на 4 напечатать сколько положительных,отрицательных и нулевых элементов содержится в каждом столбце

заранее спасибо!!!

 

[Guest]

program Arr;
var a:array[0..3,0..3] of integer;
 i,j:integer;
 plus,minus,nul:integer;
begin
//Гдето здесь нужно заполнить массив числами
for i:=0 to 3 do
begin
 for j:=0 to 3 do
 begin
  if a[j,i]>0 then inc(plus);
  if a[i,j]<0 then inc(minus);
  if a[i,j]=0 then inc(nul);
 end;
Writeln('V ',i+1,' Stolbce: ',plus,' pologitelnyh elementov,',
minus,' otricatelnyh i ',nul,' nulevyh elementov');
plus:=0;
minus:=0;
nul:=0;
end;
readln;
end.

 

[acorn]

Мне кажется, что такой алгоритм будет быстрее. Заменить

   if a[j,i]>0 then inc(plus);
  if a[i,j]<0 then inc(minus);
  if a[i,j]=0 then inc(nul);

на такие три строки

   if a[j,i]>0 then inc(plus) else
  if a[i,j]<0 then inc(minus) else
  inc(nul);

Понятно, что в такой задаче это нельзя заметить, однако если решать задачи олимпиадного уровня, то это значительно упростит алгоритм, я это уже на себе испытал

 

[Guest]

Для: programmer
Не сомненно,просто для человека,который спрашивает про такие вещи явно будет сложнее понять алгоритм,который быстрее работает

 

[MarkF]

ПОМОГИТЕ МНЕ ПЛИЗ....
ВОТ ЛАБА ПО ИНФОРМАТИКЕ В СРЕДУ УЖЕ А НА ЗАЧЕТ НАДО 13 ЗАДАЧ ИЗ 20 С ПОДРОБНЫМИ КОММЕНТАРИЯМИ - А Я В ПАСКАЛЕ НЕ СЕКУ ВООБЩЕ...

ПИШИТЕ НА youknowwhoiam@mail.ru ИЛИ В АСЮ 241861817 Я ОТОШЛЮ ВАРИАНТ........

ПОМОГИТЕ ПОЖАЛУЙСТА - ЕСЛИ НЕ ВЫ, ТО МНЕ КРАЙ!!!

 

[Maniacosaur]

MarkF, армия вас ждет

Guest, programmer прироста в скорости можно добиться так же заменив вызов процедуры Inc соответствующим оператором присваивания

 

[MarkF]

<!--QuoteBegin-Maniacosaur+15:10:2005, 12:44 -->
<span class="vbquote">(Maniacosaur @ 15:10:2005, 12:44 )</span><!--QuoteEBegin-->MarkF, армия вас ждет[/quote]

Да мне армия не грозит - а вот отчисление грозит...

 

[Maniacosaur]

Закос готов? Сколько готов за задачи выложить или ты как истинный студент халяву ищешь?

 

[MarkF]

Для: Maniacosaur Вообще-то хотелось бы халявы - но бутылку пива обещаю....тем более для чела который в этом разбираеться это совсем по-моему не сложно....

НУ ЧТО КТО МНЕ ПОМОЖЕТ?

 

[MarkF]

Ну что поможите мне?

 

[Boriss]

А что не понятно-то? Напиши конкретно

 

[LENAALIK]

<!--QuoteBegin-Boriss+17:10:2005, 09:08 -->
<span class="vbquote">(Boriss @ 17:10:2005, 09:08 )</span><!--QuoteEBegin-->А что не понятно-то? Напиши конкретно

[snapback]25906" rel="nofollow" target="_blank[/snapback]​

[/quote]

Ну хоть кто-то помочь решил!

Ура! Товарищи! Благотворительность победила! :angry:

 

[Boriss]

Да погоди радоваться то :angry:
Насколько я понял, тебе уже ответили - могу, как и другие накрутить что-то...
Вот и спрашиваю: в чем проблемы (кроме денег...)

 

[LENAALIK]

<!--QuoteBegin-Boriss+17:10:2005, 11:35 -->
<span class="vbquote">(Boriss @ 17:10:2005, 11:35 )</span><!--QuoteEBegin-->Да погоди радоваться то
Насколько я понял, тебе уже ответили - могу, как и другие накрутить что-то...
Вот и спрашиваю: в чем проблемы (кроме денег...)

[snapback]25917" rel="nofollow" target="_blank[/snapback]​

[/quote]

Ой.....Молодой человек....
Я тута как и Вы сторонний любопытствующий... :angry:
Тож помочь пытаюся....Тока чем никак выяснить не могу!

 

[Boriss]

Ясно, видно читал невнимательно :angry:
Но не такой-то, к сожалению, молодой, как холтелось бы

 

[LENAALIK]

<!--QuoteBegin-Boriss+17:10:2005, 11:52 -->
<span class="vbquote">(Boriss @ 17:10:2005, 11:52 )</span><!--QuoteEBegin-->Ясно, видно читал невнимательно :angry:
Но не такой-то, к сожалению, молодой, как холтелось бы

[snapback]25924" rel="nofollow" target="_blank[/snapback]​

[/quote]



Невнимательность не порок!

 

[MarkF]

Борис, ты следишь за мной? Так ты написал такие проги что я мозг сломал и то не разобрался - для чайников писать надо было.........ну всеравно ОГРОМНОЕ тебе спасибо.....да нашел я добровольцев которые откликнулись на мою беду и помогли СПАСИБО ВСЕМ КТО ПОМОГ И ПОМОГАЕТ!!!!!

 

[Boriss]

Да, времени было маловато - заочники нахлынули.
Собираюсь продолжить выпуски рассылки по программированию на Паскале:
http://www.borlpasc.narod.ru/rass.htm
Вот там тогда и объясню :angry: