• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

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

  • Автор темы Valentin
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V

Valentin

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

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

заранее спасибо!!! :)
 
G

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.
 
A

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);
Понятно, что в такой задаче это нельзя заметить, однако если решать задачи олимпиадного уровня, то это значительно упростит алгоритм, я это уже на себе испытал ;)
 
G

Guest

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

MarkF

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

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

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

Maniacosaur

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

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

MarkF

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

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

Maniacosaur

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

MarkF

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

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

Boriss

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

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:
 
B

Boriss

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

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

Boriss

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

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]



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

MarkF

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

Boriss

Да, времени было маловато - заочники нахлынули.
Собираюсь продолжить выпуски рассылки по программированию на Паскале:

Вот там тогда и объясню :angry:
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!