Паскаль с нуля [ч12]. Сортировка массива методом пузырька

Рет қаралды 111,660

9 жыл бұрын

Долгожданное видео курса для начинающих программистов "Паскаль с нуля" о сортировке массива в Паскале). В этом уроке мы рассмотрим один из алгоритмов сортировки, узнаем каким образом работает сортировка методом пузырька и реализуем его на языке Паскаль.

Пікірлер: 179

@wolf8579 7 жыл бұрын

можешь в следующих видео громкость музыки отрегулировать, а то голос перебивает.

@crazzy_bulka 8 жыл бұрын

Все понятно!!! В школе даже так не объясняют!!! Мецкер ты супер!!!

@TinTaBraSS777 5 жыл бұрын

Елизавета Мехонцева а то что у него уроков собственно програмирования нет за рамками изучения синтаксиса это тебя не настораживает !? )

@studentacademi5302 4 жыл бұрын

@@TinTaBraSS777 ну он по каким то причинам забросил канал, было бы, если бы продолжил свою деятельность

@TinTaBraSS777 4 жыл бұрын

Student Academi такие как он а их полно в ютубе ведут себя точно так же снимут видео только про синтаксис и сливаются ) не догадываешься что это значит !?

@studentacademi5302 4 жыл бұрын

@@TinTaBraSS777 ну тогда не знаю. И да, не думал что ответишь😁, всё таки год прошёл

@alexlimm307 8 жыл бұрын

чувак, спасибо большое тебе за уроки, все вспомнил и написал олимпиаду по области, став 1, удачи тебе!

@Slavyano4ka 4 жыл бұрын

Прекрасные видеоуроки !! Огромное спасибо 😉

@Mastvel2 7 жыл бұрын

Спасибо большое , все понятно и доступно объяснил)

@user-hx8tg5po7d 8 жыл бұрын

Спасибо за уроки. Все достаточно хорошо объяснено. Сам никогда не программировал. На работе подобные знания будут совсем не лишние. В школе Паскаля не было. Был Бейсик. А потом и вовсе информатику отменили из-за перегруженности другим предметами. Поэтому, теперь изучать необходимо самому, практически с 0. Я, как и многие другие, ждем Ваших роликов про многомерные массивы и др., а также разборов по запланированным задачам. Прошу не оставляйте этот проект и продолжайте нести свет знаний в массы.

@alexeyfalcon4138 4 жыл бұрын

как ваши успехи, в гугле небось сейчас ?

@GTimur-ye7ky 8 жыл бұрын

Сам написал, затем проверил по видео. Все совпало! Кроме того, что i и j были на разных местах. Легко!

@user-sg5gc2mj5u 8 жыл бұрын

Хорошо объяснил, спасибо)

@urbanexplorer5267 5 жыл бұрын

Спасибо. Все понятно объяснил.

@user-jk1qw9ze2c 7 жыл бұрын

музыку Потише, а в целом отлично

@bobtheplay4979 Жыл бұрын

я тренируюсь и через пару дней ваши программы повторяю, я переменную j забыл и всё с i написал и нормально заработало

@andrewwest9309 7 жыл бұрын

Спасибо , надеюсь вы не собираетесь забрасывать канал .)

@vladkokosh8630 7 жыл бұрын

Огромное спасибо, все очень доступно и понятно)

@user-gl2jc2bp3v 9 ай бұрын

Хорошо объясняешь,

@GamePadLULW 5 жыл бұрын

program Sorting; uses crt; const N = 5; var mas : array [1..N] of integer; i,j,r: integer; begin write ('Напиши первое число: '); readln(mas[1]); write ('Напиши второе число: '); readln(mas[2]); write ('Напиши третье число: '); readln(mas[3]); write ('Напиши четвертое число: '); readln(mas[4]); write ('Напиши пятое число: '); readln(mas[5]); writeln('----------'); writeln('Сортировка! Ждите...'); delay(3000); for i:=1 to N-1 do for j:=1 to N-i do if (mas[j]>mas[j+1]) then begin r:= mas[j]; mas[j]:= mas[j+1]; mas[j+1]:= r; end; for i:=1 to N do begin write(mas[i], ','); end; end.

@grom1312 Жыл бұрын

program Sorting; uses crt; const N = 5; var mas : array [1..N] of integer; i,j,r: integer; begin write ('Напишите массив 1: '); readln (mas[1]); write ('Напишите массив 2: '); readln (mas[2]); write ('Напишите массив 3: '); readln (mas[3]); write ('Напишите чмассив 4: '); readln (mas[4]); write ('Напишите массив 56: '); readln (mas[5]); writeln ('----------'); writeln ('Сортировка! Ждите...'); delay (3000); for i := 1 to N - 1 do for j:=1 to N-i do if (mas[j] > mas[j + 1]) then begin r := mas[j]; mas[j] := mas[j + 1]; mas[j + 1] := r; end; for i := 1 to N do write (mas[i], ','); end.

@grom1312 Жыл бұрын

Это понятней

@GamePadLULW Жыл бұрын

@@grom1312 пхахаах я уже и забыл что такой коммент оставлял)

@user-kf3dn1wh9v 2 жыл бұрын

Отлично объясняет я всё понял

@enmaaii_ 3 жыл бұрын

Спасибо Вам огромное за Вашу работу:)

@spidermit1 8 жыл бұрын

Спасибо за урок!!Я в програмировании обожаю массивы,но вот с сортировкой щас в ступор просто встал.Помогло

@iacovburdianov 7 жыл бұрын

Да, супер! Большое спасибо !!! Вы талантливы !!! Спасибо!

@partnership777 9 жыл бұрын

Спасибо за отличный урок!

@polinaa9834 7 жыл бұрын

Спасибо большое! очень помогли Ваши уроки! не понимала школьную программу - теперь все супер!)

@whitewolvesofficialchannel3549 9 жыл бұрын

На 0:33 аннотация "Пускаль с нуля".. :)

@gill_gate 6 жыл бұрын

Спасибо!

@elisavetaxristiva6204 7 жыл бұрын

Очень классный канал, всё понятно, большое спасибо!

@user-fz1ot5et2e 8 жыл бұрын

Здравствуйте, запишите видео про решение заданий из ЕГЭ 2016, как решать про массивы и циклы.

@user-jm9jc4ty8f 9 жыл бұрын

Очень хороший урок. Очень доступно. Спасибо.

@waren1k916 7 жыл бұрын

Просто и понятно. Спасибо блогеру

@justkofe1993 4 жыл бұрын

при скорости 1,5x смотрится неплохо)

@GTimur-ye7ky 8 жыл бұрын

Если надо, то вот сам алгоритм: for j:=1 to N-1 do begin for i:=1 to N-j do begin if(mas[i]>mas[i+1]) then begin r:=mas[i]; mas[i]:=mas[i+1]; mas[i+1]:=r; end; end; end;

@user-pw2lh4ox6w 7 ай бұрын

Спасибо, Всë понятно, только музыку потише бы сделать

@user-pm3ui6vh4k Жыл бұрын

Вариант без добавления переменной ,при смене значений program a232; const N=10; var mas: array[1..N] of integer; i,j:integer; begin randomize; for i:=1 to N do begin mas[i]:=random(10); end; write(mas); begin for i:=1 to N-1 do for j:=1 to N-i do if (mas[j]>mas[j+1])then begin mas[j]:=mas[j]+mas[j+1]; mas[j+1]:=mas[j]-mas[j+1]; mas[j]:=mas[j]-mas[j+1]; end; write(mas); end; end.

@user-nb8dx8ze2u 7 жыл бұрын

Сделал автозаполнение массива ) program sort; const N = 10; var mas: array [1..N] of integer; i, j, r: integer ; begin for i := 1 to N do begin mas[i] := random(1, 100); writeln(mas[i]); end; for i := 1 to N - 1 do for j := 1 to N - i do if mas[j] > mas[j + 1] then begin r := mas[j]; mas[j] := mas[j + 1]; mas[j + 1] := r; end; writeln('-----------Cортировка-------------'); for i := 1 to N do writeln('Элемент массива ', i, ' равен ', mas[i]); readln(); end.

@jkrodin4566 3 жыл бұрын

СПАСИБО

@davideyeshield6623 8 жыл бұрын

Эдуард все ждут продолжение будет ли оно вооюбще?

@FlupiGaming 4 жыл бұрын

var arr: array of integer = (2, 5, 1, 9, 4, 9, 123, -1); i, j, temp: integer; begin for i := arr.Length-2 downto 0 do for j := 0 to i do if arr[j+1] < arr[j] then begin temp := arr[j+1]; arr[j+1] := arr[j]; arr[j] := temp; end; writeln(arr) end.

@user-pz7tn3ib3r 7 жыл бұрын

Спасибо тебе! Очень круто объяснил! Только один вопрос как узнать Сколько операций обмена было сделано за время работы программы?

@user-fi4mn8ws6v 7 жыл бұрын

Просто в действие,под условием добавь счётчик.

@user-mo3gn8np9n 4 жыл бұрын

Здравствуйте. Поясните пожалуйста: есть сортировка массива пузырьком, пузырьковом включением и пузырьковом всплытием. В чем разница?

@andreytsydenov4805 8 жыл бұрын

Насколько я понял, в первом цикле i:=1 to N-1 не нужно отнимать минус единицу, так как элементы мы сравниваем с индексом j, а не i. А во втором цикле j из N уже вычтено i, минимальное значение которого --1. Значит область допустимых значений мы уже объявили. Или отнимать в первом цикле все равно надо и я чего-то не понял?

@ma.ka.2984 7 жыл бұрын

Andrey Tsydenov я тоже этого не понял

@user-ls6dy3eu3j 9 жыл бұрын

Привет, когда продолжения?

@sunchildren258 8 жыл бұрын

А как упорядочить элементы последнего столбца матрицы А по возрастанию значений?(N=4,M=4)

@user-bh5um6bf5g 9 жыл бұрын

А не могли бы сделать видео про сортировку слиянием?

@German707707 9 жыл бұрын

Влад Русаков Подумаю) Если время будет - сделаем!)

@volerionmlbb1911 4 жыл бұрын

Как решить задачку При заданных X1, X2, …, Xn и Y1, Y2, …, Yn заменить значение каждого элемента массива Y новым значением, определяемым по правилу :Yi=Xi-Yi при Xi>=Yi или Yi=Yi-Xi при Xi

@user-cf2ux5fr8c 4 жыл бұрын

const N = 5; var mas: array [1..N] of longint; a, b, c: integer; begin writeln('Введите числа'); for a := 1 to N do readln(mas[a]); for a := 1 to N - 1 do for b := 1 to N - a do if mas[b] > mas[b + 1] then begin c := mas[b]; mas[b] := mas[b + 1]; mas[b + 1] := c; end; writeln('Подождите, идет обработка данных...'); writeln('---'); writeln('Отсортированные числа:'); for a := 1 to N do writeln(mas[a]); end.

@LovimKITayIrUBY 9 жыл бұрын

привет Эдуард:-) объясни пожалуйста что обозначает буквы N .J??

@TIMviser 9 жыл бұрын

+Дмитрий Данилов N - это константа. J - это переменная.

@user-ck9jh3fz5n 8 жыл бұрын

До этого по 20 раз видео не пересматривал. Этот способ один из самых лёгких?

@GTimur-ye7ky 8 жыл бұрын

+Паша Зубков да

@masterom8947 6 жыл бұрын

Сбавь громкость на фоне, сколько просят уже

@taras2uaua745 4 жыл бұрын

А як робити так щоб він сортувався не всторону зростання (від 1 до 10). А в сторону спадання (від 10 до 1)?

@andrastehouse4727 7 жыл бұрын

а что если два значения элементов массива будут равны? например mas[2]= 3 и mas[5]= 3. какое значение будет выводиться первее?

@user-iy1lv1zf2q 5 жыл бұрын

Они будут стоять рядом

@ma.ka.2984 7 жыл бұрын

На 9:38 сказано что для сравнения выбираем j, а будет ли также работать алгоритм если выбрать i. Подскажите плиз

@V1337adim 6 жыл бұрын

нет

@user-iy1lv1zf2q 5 жыл бұрын

Код надо будет менять

@avgustabens6177 7 ай бұрын

И не равняется переменной счётчика i присваивается н. з. 1. : = это в паскале оператор присваивания со всеми вытекающими правилами

@ptims1 8 жыл бұрын

пожалуйста, как писать, что выбирает нечетные числа... и просуммировать только четные числа

@user-iy1lv1zf2q 5 жыл бұрын

Пишешь if n mod 2 = 0 then summ:=summ+n Все

@aleksandrgrigorev9504 8 жыл бұрын

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

@German707707 8 жыл бұрын

+Александр Григорьев Вк мне код пришлите, а там поглядим)

@petrovBest 8 жыл бұрын

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

@lykuanovIlya 7 жыл бұрын

Ты мог написать mass[j]:=k, а надо наоборот)

@akicakila7752 7 жыл бұрын

Блин,хоть убейте я эти массивы не понимаю,зачем они вообще нужны? Объясняете вы конечно классно все остальное мне прекрасно понятно , но вот массивы вообще понять не могу.

@evelinetum5739 7 жыл бұрын

Aki Cakila вообщем в кратце-> сама долгое время не понимала -> так вот : массив можно сравнить со шкафом в котором много отдельных шкафчиков ( шкафчики как раз элементы массива , т.е это множество однотипных элементов ) на самом деле где они используются я ещё не поняла , но кажется в основном когда сам пользователь вводит эти элементы

@akicakila7752 7 жыл бұрын

Спасибо за ответ)

@snobou12 7 жыл бұрын

Их используют особенно в заданиях ЕГЭ :D

@brinza888 7 жыл бұрын

Aki Cakila они нужны если вы не знаете сколько значений или ещё чего-либо задаст пользователь, но знает общее кол-во.Для этого и нужны массивы с циклом for

@vladportnov3041 6 жыл бұрын

это упрощает работу, ты просто тратишь намного меньше времени

@arslany6970 4 жыл бұрын

N всегда константа? Что делать, если в задаче указано n элементов, а не число?

@user-jf2qe9mi1e 4 жыл бұрын

Тогда будет бесконечное количество массивов , соответственно бесконечно много чисел...

@April_Lie_Fan 5 жыл бұрын

Почему Program1.pas(16) : Операция '>' не применима к типам integer и set of integer

@user-iy1lv1zf2q 5 жыл бұрын

Скинь код

@888Janna 6 жыл бұрын

У меня почему-то если массив начинается с 0, программа пишет, что не указаны параметры цикла For, а если массив начинается с 1, то нормально работает.

@technic_and_programming 5 жыл бұрын

У тебя PascalABC бухает))

@valeracyborg1369 5 жыл бұрын

Пишет, что "индекс выходит за границы массива", не понимаю, в чём ошибка, ведь делал всё также, как показано на видео. Помогите, кто тоже сталкивался с этой проблемой!

@hunter-1512 4 жыл бұрын

Помощь ещё нужна?

@user-jf2qe9mi1e 4 жыл бұрын

Всё понятно. Очевидно вы указали N = 10 (допустим), а написали 11 массивов: Const N = 10; ... mas[1] := чему - то; mas[2] := чему - то; mas[3] := чему - то; mas[4] := чему - то; mas[5] := чему - то; mas[6] := чему - то; mas[7] := чему - то; mas[8] := чему - то; mas[9] := чему - то; mas[10] := чему - то; mas[11] := чему - то; Вывод: ошибка: Индекс (то есть номер 11 и сам массив) находится вне границ массива.

@romansobolev1589 4 жыл бұрын

переменная r это сам перестановщик? без него работать не будет?

@user-jf2qe9mi1e 4 жыл бұрын

Если вы говорите о привязанности именно к переменной r , то нет (можно вводить совершенно любые переменные)

@user-ms6we7lz7d 5 жыл бұрын

А что если "mas:array [1..N] of real;"? Как тогда сделать?

@hunter-1512 4 жыл бұрын

Не как, индекс массива должен быть целочисленным, а элемент может быть любым, даже вещественным

@davideyeshield6623 8 жыл бұрын

вообще*

@user-fn3hr6bm8l 7 ай бұрын

Ещё громче музыку пожалуйста

@user-gy2dn3ik7r 5 жыл бұрын

Я хотел бы спросить,а это по паскаль эй би си нет?

@technic_and_programming 5 жыл бұрын

Да.

@vadikkasabiev3373 8 жыл бұрын

Эти циклы только с for делаются?

@user-iy1lv1zf2q 5 жыл бұрын

Это массивы и нет, не только с for

@Quiet_Snow 8 жыл бұрын

for j: =1 можно по другому записать?

@user-iy1lv1zf2q 5 жыл бұрын

Нет

@demoneymid1926 7 жыл бұрын

А можно ли использовать такой способ сортировки? const N = 10; var mas:array [1..10] of integer; i,j,a:integer; begin for i:=1 to 10 do mas[i]:=random(100); for i:=1 to N do for j:=1 to N do if (mas[j]>mas[i]) then begin a:= mas[i]; mas[i]:=mas[j]; mas[j]:=a; end; writeln(mas); end.

@off2626 7 жыл бұрын

Ты просто заполнил массив автоматически рандомными цифрами

@user-xw9jj7so5h 6 жыл бұрын

Что за переменная a? Зачем она?) Чтобы было понятно, что именно ты сделал со значениями массива, поставь после ввода рандом значений в массив writeln(mas) и сравни его с выводом, многое станет понятным. Что было в начале, что получилось в конце.

@user-xw9jj7so5h 6 жыл бұрын

Не забудь только правильно бегийн-энд расставить;))

@user-iy1lv1zf2q 5 жыл бұрын

Нет, нельзя(( У тебя дан 1 массив, а ты из него делаешь 2 (итый и джитый) и сравниваешь 2 массива между собой, короче есть ошибки в коде и ты сравниваешь не элементы массива, а элементы 2-х массивов

@FlupiGaming 4 жыл бұрын

Можно, но твой код будет черезмерно кушать процессор в силу лишних операций.

@Roma_the_hero 3 жыл бұрын

помоги пожалуйста!!!!!!!!!!!! у меня отсвечивается 00003!!! пожалуйста помоги мне!

@user-ni4mx5ub2k 4 жыл бұрын

для массива А20 ПОМЕНЯТЬ МЕСТАМИ НАИБОЛЬШИЙ И ПОСЛЕДНИЙ ЭЛЕМЕНТЫ

@showmeyoursoul1646 8 жыл бұрын

Сортировка массива методом пузырька да и вообще массивы в работе программиста сильно понадобятся ?

@rafaeltemirgaliev1674 7 жыл бұрын

это всё идёт на развитие твоего логического мышления) так что, скорее всего так и есть.)

@user-iy1lv1zf2q 5 жыл бұрын

Это очень важная составляющая в работе программиста

@user-kf3dn1wh9v 2 жыл бұрын

@user-ck9jh3fz5n 8 жыл бұрын

с 7:20 что-то непонятно стало.. Зачем из N вычитать единицу.

@mrtengames 6 жыл бұрын

потому что если напишешь от 1 до N, то у тебя сравнится самый последний элемент со следующим, но суть в том, что он последний и никакого следующего нет; следовательно, ты будешь их сравнивать до последнего элемента

@coczdecortez2366 5 жыл бұрын

@@mrtengames но тогда он и в первый раз не будет считать последний элемент, т.е из 2653265 сделать 2235665, оставив последнюю 5?

@gemand3821 5 жыл бұрын

@@coczdecortez2366 НЕТ, он сровняет 6 и 5, а деле 6 не с чем сраневать, потому что там скобка. От подумай сам(а)

@thevioletvalentine 3 жыл бұрын

Невозможно воспринимать когда на автор говорит под себя, а музыка громче чем на вписках у меня дома

@German707707 3 жыл бұрын

Такие себе вписки, получается

@thevioletvalentine 3 жыл бұрын

@@German707707 ого ты отвечаешь, можно автограф?

@thegeekduo6194 7 жыл бұрын

А это где пригодиться может?

@user-iy1lv1zf2q 5 жыл бұрын

На работе))

@jowanna-se2co 2 жыл бұрын

музыку погромче

@LovimKITayIrUBY 9 жыл бұрын

привет

@emanuelgrande8756 6 жыл бұрын

Program sorting; const N = 5; var mas: array [1..N] of Integer; i,j,t: integer; begin mas[1]:= 9; mas[2]:= 3; mas[3]:= 2; mas[4]:= 8; mas[5]:= 10; for i:= 1 to N-1 do begin for j := 1 to N-i do if(mas[j]>mas[j]+1)then begin t:= mas[j]; mas[j]:= mas[j+1]; mas[j+1]:= t; end; end; for i:= 1 to N do writeln(mas[i]) end. объясните почему в окне вывода числа не в порядке возрастания?(окно вывода: 9 3 2 8 10 ) выводится не в порядке возростания(

@Sinptom 6 жыл бұрын

joxi.ru/eAOeyXjT4PWwpm.png тут ошибка [j]+1 должно быть [j+1]

@FlupiGaming 4 жыл бұрын

В условном операторе вложенного цикла вместо «mas[j]+1» впиши «mas[j+1]».

@user-zy6hk5le3e 6 жыл бұрын

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

@user-rt2vy2dg3n 6 жыл бұрын

почему бросили это дело?

@user-iy1lv1zf2q 5 жыл бұрын

Платят мало

@zhanbolatabishev7509 7 жыл бұрын

Я недавно начал обучение и чего то главного недопонимаю. Как будто пропускаю что то. Может посоветуете книгу к прочтению?

@user-tp6pi6hz7i 2 жыл бұрын

сколько смотрю и всеравно не понимаю как оно сортируется ї

@danilazubrov414 7 жыл бұрын

как насчет: var a:=arr(6,1,7,8,5,7,9,4,6,3); вы вообще читали, зачем создавался pascalabc.net и какие отличия имеет от "стандартного" пасцаля?

@German707707 7 жыл бұрын

Дружище) Сейчас я работаю в солидной компании, в которую не просто попасть и собеседования длятся по 1,5 и более часов. Пишу на Java, иногда на Python, и прекрасно понимаю о чем ты хочешь мне сказать. В своих уроках я отталкивался от того, что ученик школы по этим урокам мог написать в классе программу, не смотря на то, что там установлен синенький TurboPascal, который таких фич не знает. Упор не на изучение конкретной реализации, такой к примеру как "ABC.NET", а на базовое знание языка. В своих уроках использую именно abc.net, как IDE, от которой глаза на потолок не лезут и которая без проблем установится хоть на Win XP, хоть на десятку.

@scorpion4595 7 жыл бұрын

Из-за этого видео и выходят редко? P.S.мне нравятся ваши уроки. В школе не понимаю, а у вас понимаю

@esembulov 7 жыл бұрын

+Эдуард Мецкер помоги , с ними видео о сортировке по алфавиту

@viktortretakov7806 5 жыл бұрын

У меня не выводится в lazarus

@user-bs9gs8kf1q 5 жыл бұрын

Эту формулу надо учить?

@technic_and_programming 5 жыл бұрын

Нет, её надо понимать.

@user-jf2qe9mi1e 4 жыл бұрын

Нужно понять и выучить этот алгоритм

@user-op1ih6tr3w 3 жыл бұрын

музыка лишняя конечно да,с трудом слышишь и концентрируешься

@bin5460 5 жыл бұрын

ПОЖАЛУЙСТА, МУЗЫКУ ТИШЕ!!!!!!!!!!!!!!!!1

@bogdanmasliy9970 7 жыл бұрын

на 7 хвилині 59 секунді вибиває текстовий редактор

@user-ms6we7lz7d 5 жыл бұрын

И зделай по Excel такой же обзор

@user-kr7zb6os6g 4 жыл бұрын

почему мы сравнивали масив J > J+1 где +1 взялось зачем мы их вообще сравнивае я вообще этого непонял!!!

@user-jf2qe9mi1e 4 жыл бұрын

мы сравниваем для того, чтобы программа отсортировала числа в порядке возрастания( от меньшего к большему). Если представить, что массив J это число( допустим 5) , то массив J + 1 это 5 + 1( то есть сравнивается следующий массив). покажу наглядный пример: Нам даны 5 массивов. (к которым заданы числа). mas[1] := 20; mas[2] := 3; mas[3] := 78; mas[4] := 80; mas[5] := 1; далее мы пишем if ( j > j + 1) then ( и что-то там). тем самым + 1 мы задаём, для того, чтобы программа пробежалась по всем массивам ( и числам в них) и отсортировала их ( то есть она анализирует 1 массив, потом 2, потом 3 и так пока не дойдёт до 5 .

@djeka415 3 жыл бұрын

Да нормально у него всё с музыкой, заколебали уже😑

@anzav9186 5 жыл бұрын

вообще музыка лишняя

@technic_and_programming 5 жыл бұрын

Кому как.

@wanillin_2154 3 жыл бұрын

Попытался сам сделать сортировку массива, получилось так, но я сам не до конца понял как он работает: program z1; const N = 9; var i, x, y, z: integer; mas: array[0..N] of integer; begin for i:=0 to N do readln(mas[i]); for x:=0 to N do for y:=0 to N do if (mas[x]

@user-ri2ck8ky5w 8 жыл бұрын

что за i как вы ее в масив вживили и р это воще что коменты хотяб прописали тут запутаться очень легко!

@German707707 8 жыл бұрын

+Толик Козлов А ты еще раз посмотри и внимательно послушай, что такое i и как мы ее в массив "вживили". Комментарии в таком простом коде будут излишними, тем более я все комментирую своим голосом

@German707707 8 жыл бұрын

+Толик Козлов С наступающим Новым Годом!)

@tomirisibrahim8170 5 жыл бұрын

как же бесит музыка

@technic_and_programming 5 жыл бұрын

А мне нет.

@smollet6742 4 жыл бұрын

ВЫРУБИ МУЗЫКУ !!!!!!!!!!!!!

@---yo7pn 3 жыл бұрын

Неужели так трудно музыку сделать потише ? Тебе под каждым видео это говорят .

@aboldui9194 3 жыл бұрын

Уроки были сняты 5 лет назад

@alexeyfalcon4138 4 жыл бұрын

не совсем понятны эти 2 строки, если бы кто-то объяснил доходчивее, я просто новичок в этом, спасибо . for i := 1 to N - 1 do for j := 1 to N - i do не совсем понял ля чего N-1 и N-i

@user-jf2qe9mi1e 4 жыл бұрын

N - 1 значит, что мы вычитаем последнее число, (если зададим N = 10 то программа выдаст 11 ( + 1 число) вместо 10), а нам нужны 10. N - i значит, что при сравнении чисел (сортировки методом пузырька) программа сравнивает начиная от последнего числа N (допустим это 10) и потом по уменьшению чисел - i ( в зависимости от любых заданных чисел, будь это 7, потом 4 и тд.) Надеюсь понятно)

@user-nr4dg3fu7p 5 жыл бұрын

Нихрена не понятно

@user-iy1lv1zf2q 5 жыл бұрын

Дурачок

@technic_and_programming 5 жыл бұрын

*Дружище, мне тоже не была понятно, но я пересматривал видео несколько раз, и всё встало всё на свои места.*

@kotturbo4673 7 жыл бұрын

не сортирует( код программы: program Sorting; const N = 7; var mas: array[1..N] of integer; i, j, r: integer; begin mas[1] := 7; mas[2] := 3; mas[3] := 9; mas[4] := 0; mas[5] := 2; mas[6] := 8; mas[7] := 1; for i := 1 to N-1 do for j := 1 to N-i-1 do if (mas[j]>mas[j+1]) then begin r:= mas[j]; mas[j] := mas[j+1]; mas[j+1] := r; end; for i := 1 to N do writeln(mas[i]); end. что даёт на выходе: 0 2 3 7 8 9 1

@fwmyriad2849 7 жыл бұрын

for j:= 1 to N-i do

@FlupiGaming 4 жыл бұрын

Убери «-1» во вложенном цикле.