const n=2000; var a:array[1..n] of integer; i,k:integer; begin for

metachan.ru
жалоба / abuse: admin@metachan.ru
Источник / Source: //2ch.hk/b/res/183372893.html
  Статус треда: В АРХИВЕ  

элементов, четных, массива, неч, количество, тных, сумма, код, нечетных, кол, проверка, четные, четная, транслируется, массив


#183372893

picture
1510.jpg 566✘544,81Кб

const n=2000;
var a:array[1..n] of integer; i,k:integer;
begin
for i:=1 to n do begin
a:=random(2000);
end;

k:=0;
for i:=1 to N do begin
k:=k a;
end;
k:=k mod 2;

if k=0 then begin
for i:=1 to N do begin
if a mod 2 =0 then
k:=k 1;
end;
writeln('Количество четных элементов массива',k);
k:=0;
end;


if k>0 then begin
k:=0;
for i:=1 to N do begin
if a mod 2 >0 then
k:=k 1;
end;
writeln('Количество нечетных элементов массива',k);
end;




end.


#183373043

>>183372893
>begin
>for i:=1 to n do begin
>a:=random(2000);
>end;
>
Первый цикол - "разогрев" генератора RND?
Тогда я проиграл.


#183373075

>>183373043
кмк, там должно быть всё-таки a:=random(2000);


#183373133

>>183373075
Теперь точно проиграл. чмо не пропускает квадратные скобки, ок.
a(i):=random(2000);


#183373155

>>183373075
нет там должно быть
a но сука в ебаной мочепараши убераютса квадратные скобки


#183373212

Так надо же ещё указать индекс элемента массива при обращении к нему, да и четные и нечётные числа можно пихать в две разные переменные, чтобы не проходить весь массив лишний раз.


#183373322

>>183373155
Как я понял, в зависимости от чётности суммы рандом элементов мы считаем и показываем общее кол-во чётных или нечётных элементов.

Зачем тогда там вообще три цикла, всё одним проходом делается.


#183373400

>>183372893
бамп


#183373469

>>183372893
В этом коде на жс слишком много ошибок.


#183373492

>>183373322
потомучто оп дебил
все делаеца одной строчкой
if(a%2)4et else ne4et


#183373532

>>183373322
Нате, как я вижу.
;массив не нужен, если не так, то можно его оставить, конечно
const n=2000;
var a,i,k,z:integer;
k:=0

for i:=1 to n do
begin
a:=random(2000);
k:=k a;
if (a mod 2)>0 then z:=z 1;
end;

if (k mod 2)>0
then writeln('Количество нечетных элементов массива',z)
else writeln('Количество нечетных элементов массива',1000-z);


#183373546

>>183373492
тварь напишы


#183373582

>>183373532
>1000-z
n-z конечно, FIX


#183373703

кстати умники можно использовать только переменные i и k. больше нельзя


#183373718

>>183373532
>if (a mod 2)>0
почему ты такой ебанутый? оператор остатка от деления возвращает остаток если делитель 2 то возвращаеца либо нуль либо еденица канечно если делимое инт там чар если флоат то будут знаки после запятой но нам на них похуй.
карочи нет мсысла дополнительно проверять больше это или равно нулю даун


#183373754

const n=2000;
var a,i,k,z:integer;

k:=0; z:=0;

for i:=1 to n do
begin
a:=random(2000);
k:=k a;
if (a mod 2)>0 then z:=z 1;
end;

if (k mod 2)>0
then writeln('Количество нечётных элементов массива',z)
else writeln('Количество чётных элементов массива',n-z);



#183373755

>>183373703
задача блядж вообще какая? найти в массиве колво четных и не четных элементов?


#183373808

>>183372893
Как называется эта болезнь такой стиль кодирования?


#183373838

>>183373755
Если сумма четных элементов четная-найти кол-во четных. Если нет то найти кол-во нечетных элементов


#183373843

>>183373808
школота обыкновенная


#183373856

>>183373718
Давай тогда на чётность проверять через асм, это гораздо тру, базарю
Тред даунских способностей оптимизации школозаданий бегин (энд) .


#183373874

>>183363875


#183373889

>>183373808
дз по информатики


#183373903

>>183373838
совсем ебанутый? сумма ВСЕХ четных элементов ВСЕГДА четная даун


#183373978

>>183373856
это не оптимизация тупица...
а потом эти довены удивляюца почему очередная дота по графике такаяже как и 10 лет назад а на новом компе за 200к глючит сильнее чем старая на куске говна мамонта.


#183373994

>>183373903
А ты докажи, что четная


#183374064

>>183373838
Если просто сумма элементов чётная, тогда нужно выдать кол-во чётных, иначе - нечётных элементов. Там просто сумма считается, без учёта чётности, во втором цикле.


#183374082

>>183373994
доказал тибе за щику проверяй


#183374102

>>183372893
Обоссал бы тебя за такой код на собеседовании, а потом обоссывал бы каждый день на работе, еслиб ты все таки просочился.
Пссссссссссссссссссссссссссссссссссс
Иди и читай "Чистый код", хачина тупожопая


#183374118

>>183373978
Да хрен с тобой, Odd(N) вместо mod 2 вашу доту не устроит что ле?


#183374137

>>183372893
Куда я попал блять? Что это за хуйня блять?


#183374151

Это тред одного шизофреника?


#183374166

>>183374064
все делается в одном цикле
забивается массив
считаеца сумма
считаюца четные и не четные
за циклом проверяеца условие по сумме и выводица колво четных или не четных все пиздец.


#183374202

>>183372893
Это ВАСИК? Кроме паскали и питона ничего не видел.


#183374273

Чуваки на хуй вы тут пишите я просто на компик школьный это перекидывал и все
кстати мне 5терку поставили за дз...


#183374318

>>183374273
яб тебя кастрировал за такой код даун.


#183374439

А ну пошли на хуй отсюда паскалевыблядки


#183374460

>>183374318
и че мне похуй я этот код ебал и он мне на хуй не всрался никуда и информатика эта ёбаная я рот ебал училки и кода этого даже не заморачивался над ним


#183374661

>>183373978
проверял в 32битном pascal, извени.
----
проверка (integer) mod 2 транслируется как
mov eax, (integer)
and eax, 80000001
jns @@1
dec eax
or eax,2
inc eax
@@1:
test eax,eax
jle (куда то на чёт или нечёт)
----
проверка (integer) and 1 транслируется как
mov ebx, (integer)
test ebx,1
jle (куда то на чёт или нечёт)
----
проверка (integer) функцией odd транслируется как
mov ebx, (integer)
test bl,1
jle (куда то на чёт или нечёт)
----
что имеем по факту - and 1 и odd() по сути, равнозначны. mod 2 соснул слегка, таки да.


#183374696

>>183374166
Да я в курсе, конечно в одном, оп-начинающий быдло кодер.


#183374880

picture
5570.jpg 520✘631,45Кб

>>183374661
я не пишу на паскале и никагда на нем не писал хотя не вру в институте писали всякую хуйню но писал только чтобы здать зачеты.
пишу на синятине - програмлю контроллеры.
на пике функции чтения записи на флешку всякой хуеты флеш i2c 24c256 порядочно поебал с ней мазги


#183375265

>>183373133
Пропускает [i]


#183376250

picture
0610.png 517✘682,62Кб

>>183375265
Хех, так нечестно, там что-то мелким шрифтом.


#183376906

[re]


#183376940


#183376957

[
i]


#183377023

[i]


#183377095

>>183374202
Паскаль же.


#183377381

>>183377095
Хехе, writeln только сейчас вспомнил.