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

Тема в разделе "Delphi - FAQ", создана пользователем Valentin, 13 июн 2005.

Статус темы:
Закрыта.
  1. Valentin

    Valentin Гость

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

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

    заранее спасибо!!! :)
     
  2. Guest

    Guest Гость

    Код (Text):
    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.
     
  3. acorn

    acorn PHP Developer

    Регистрация:
    29 авг 2004
    Сообщения:
    599
    Симпатии:
    3
    Мне кажется, что такой алгоритм будет быстрее. Заменить
    Код (Text):
       if a[j,i]>0 then inc(plus);
      if a[i,j]<0 then inc(minus);
      if a[i,j]=0 then inc(nul);
    на такие три строки
    Код (Text):
       if a[j,i]>0 then inc(plus) else
      if a[i,j]<0 then inc(minus) else
      inc(nul);
    Понятно, что в такой задаче это нельзя заметить, однако если решать задачи олимпиадного уровня, то это значительно упростит алгоритм, я это уже на себе испытал ;)
     
  4. Guest

    Guest Гость

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

    MarkF Гость

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

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

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

    Maniacosaur Гость

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

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

    MarkF Гость

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

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

    Maniacosaur Гость

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

    MarkF Гость

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

    НУ ЧТО КТО МНЕ ПОМОЖЕТ?
     
  10. MarkF

    MarkF Гость

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

    Boriss Гость

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

    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:
     
  13. Boriss

    Boriss Гость

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

    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:
    Тож помочь пытаюся....Тока чем никак выяснить не могу!
     
  15. Boriss

    Boriss Гость

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

    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]



    Невнимательность не порок! ;)
     
  17. MarkF

    MarkF Гость

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

    Boriss Гость

    Да, времени было маловато - заочники нахлынули.
    Собираюсь продолжить выпуски рассылки по программированию на Паскале:
    http://www.borlpasc.narod.ru/rass.htm
    Вот там тогда и объясню :angry:
     
Загрузка...
Похожие Темы - помогите решить задачу
  1. GREED
    Ответов:
    1
    Просмотров:
    535
  2. vovanabali
    Ответов:
    0
    Просмотров:
    532
  3. merrs
    Ответов:
    1
    Просмотров:
    1.309
  4. Kugotovr23
    Ответов:
    1
    Просмотров:
    1.283
  5. mregor
    Ответов:
    0
    Просмотров:
    911
Статус темы:
Закрыта.

Поделиться этой страницей