Паскаль с нуля [ч6]. Циклы. While, repeat-until, for. 

классные уроки,было бы неплохо если бы ты по окончанию видео задавал домашнее задание,и в след. эпизоде показывал ответ...

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

Вы так понятно объясняете вы очень хороший педагог большое вам спасибо!!!

Program vmesto1000slov; var i:integer; begin for i:=1 to 1000 do begin write ('Спасибо Вам за хорошие видео '); end; end.

Это лучший человек! Спасибо тебе,уже сколько лет прошло,до сих пор пользуются люди твоим видео.Спасибо,никто так не объясняет и показывает как ты.Просто спасибо,ты сделал мой день))) а уже конечно ночь,но завтра буду радоваться потому что я все понял!!!

2500 просмотров 0 дизлайков, все разжевано прям препод института ,даже я деревянный легко запомнил все!

Спасибо!! очень толково!! Учитель, а как же домашнее задание?)))

Моя вам, Эдуард, искренняя благодарность). 21 век, а детей в нашей школе учат паскалю в тетрадях. Посмотрели несколько уроков с сыном и поняли, как и что. Спасибо).

Program vmesto1000slov; var i:integer; begin for i:=1 to 1000000000000 do begin write ('Норвегия - топ '); end; end.

как мой друг гамает в кс: var a: integer; begin a := 0; while a

Хочу стать программистом , но пока учусь в школе . Спасибо за объяснение , буду надеяться на другие языки .

repeat i := i + 1; write('ежик '); until i>57650987456547; АД

Можешь решить эту задачу ?! Тоже по теме цикла. y=x - 3/x^2 + 5/x^4 - 7/x^6 + ... - 35/x^34

спасибо,понятно объяснил,селекционер ёжиков))

На фоне ДЕЦЛ играет :( RIP.

Я уже пенсионер, но так получилось, что надо помочь школьнице разобраться с программой Паскаль. Смотрю цикл уроков Эдуарда Мецкера. Всё доходчиво объясняется. Поэтому выражаю ему большую благодарность и желаю успехов в дальнейших шагах.

У меня почему то цикл не останавливается

Все хорошо музыку чуть потише и будет вообще прекрасно)

Большое спасибо , очень понятные твои уроки , получай палец вверх)

Вы лучший учитель ))).С помощью вас,я изучил больше чем за 5-7 класс :D

Эдуард, СПАСИБО вам огромное. Даже спустя 7 лет, ваши уроки очень понятны и гораздо лучше нынешних школьных курсов. Спасибо ещё раз)))

У меня почему то один ёжик вывелся в последних двух примерах(

Музыка идеально подобрана) Прям расслабончик такой))

прикольная шняга: program YPOK; var i: integer; begin while i < 5 do begin i := i + 1; writeln ('Загрузка....'); end; repeat i := i + 1; writeln ('Готово!') until i = 6; end.

Эдуард, спасибо вам огромное за ваши уроки! Всё очень понятно объяснено. Успехов вам в продвижении канала!

спасибо, помог, завтра олимпиада, а я не подготовился)) а тут всё ясно чётко и понятно

Все очень круто)очень все докладно и ясно) спасибо тебе большое, уже 11 класс, только сейчас начали изучать Паскаль)было бы круто если бы еще была Джава) а за Паскаль жирный лайк)

Спасибо, что занимаетесь таким вот делом. У меня нет возможности этому где-то учится пока что, учусь у вас: все понятно, интересно. Побольше вам мотивации этим заниматься.

Ты лучший)))

Анализ данных Python: ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-b12sGjzjw2w.html ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-qWBNK0ydGUM.html ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-5uEVOMmb6WA.html

Про while вообще ничего не понял

Идёт 2022 год, а эта тема и Ваши уроки всё ещё очень актуальны, спасибо большое, только благодаря Вам я что-то в этом понимаю)))

Спасибо за помощь, Эдуарт!

почему у меня дофигилион ежиков?в 1 цикле)вроде также )

Мне 10 лет а я смог выучить Паскаль P.S Благодаря вам!!!!

Спасибо из 2019!

Блин , очень доступно и легко запоминается . Наверстал пропущеные пары буквально за 1 час ! И оказывается по преобретённым знаниям я более развит чем те кто всё время ходил !!! Спасибо большое что создали этот канал и занимаетель таким делом !!

Я зная все уроки до этого видео и включая это написал вот эту программу, как вам?) Можно тут скачать:(И ещё там будут другие мои прогрммы, :3): Сама папка с программами: yadi.sk/d/-CphL2BphahHY Программа, которую я написал зная эти команды, при этом я писал её чисто экспериментально, не смотря на возможно похожие программы): yadi.sk/d/WLJ9m_W5hahNH

Спасибо! За видео

Пиздец. В школе по всем предметам в Беларуси 7, 8, 9, 10, а по информатике 3.

7:39 У меня не 5 ежей появляются, а какой то не прекращаемый цикл появления слов Ёжик🤣🤣🤣🤣👍👍👍👍👍👍👍

Может подскажите. Каким образом сделать так, чтобы количество "Ёжиков" подсчитывалось, 0),1),2),3),4),5),6) и.т.д.

А задачу для нас? Вы же обещали(

Здравствуйте . Подскажите пожалуйста как сделать чтобы корабль двигался в обратном напровлении ? uses graphAbc; var x,i: integer; begin lockdrawing; x:=0; setwindowsize(640,480); for i:=1 to 200 do begin x:= x+1; ClearWindow; setbrushcolor(clYellow); circle(580,70,30); setbrushcolor(clNavy); rectangle(0,400,640,480); line(x+100, 400, x+400, 400); line(x+30,350, x+430,350); line(x+100,400, x+30, 350); line(x+400, 400, x+430, 350); floodfill(x+100+10, 400-10, clBrown); line(x+200, 100, x+200, 350); line(x+45, 300, x+400, 300); line(x+45, 300, x+200, 150); line(x+200, 150, x+400, 300); floodfill( x+200+10, 300-10, clLime); floodfill(x+200-10, 300-10, clLime); line(x+200, 100, x+235, 125); line(x+200, 125, x+235, 125); floodfill(x+210, 120, clRed); floodfill(10,12, clSkyBlue); sleep(10); redraw; end; end.

супер! урок понятен, хоть я впервые сел за программирование

Здравствуйте можете помочь с решением, нужно написать с использованием цикла с потусловием, с предусловием и цикла с параметром. y=cos(x) +cos(x) ^3/9+cos(x)^5/25+...+cos(x)^11/121.

Помогите составить программу, которая будет находить максимальное число с последовательности введенных с клавиатуры N чисел

ОТВЕТЬТЕ ПОЖАЛУЙСТА, НА ЖТИ ВОПРОСЫ,ДЛЯ ЗАКРЕПЛЕНИЕ ТЕМЫ. Вопрос 1 С какого служебного слова начинается запись цикла с предусловием на языке Pascal? Варианты ответов  while  repeat  until  if  for Вопрос 2 С какого служебного слова начинается запись цикла с постусловием на языке Pascal? Варианты ответов  while  repeat  until  if  for Вопрос 3 С какого служебного слова начинается запись цикла с параметром на языке Pascal? Варианты ответов  while  repeat  until  if  for Вопрос 4 Запишите значение переменной s, полученное в результате работы следующего фрагмента программы. Begin s := 0; for k := 6 to 10 do s := s + 10; writeln(s); End. Вопрос 5 Запишите значение переменной d, полученное в результате работы следующего фрагмента программы. Begin d := 6; d := d-2; For n := 1 to 4 do d : = d + n ; Writeln(d); End . Вопрос 6 Сколько раз исполнится цикл: i:=6; while i&lt;18 do i:=i+3; Вопрос 7 Чему будет равна переменная sum после выполнения фрагмента программы: sum:=0; for i:=5 to 8 do sum:=sum+i; Варианты ответов  18  13  26

Напишите программу, которая выводит таблицу значений функции: y=x-2+(x+2)/2 В диапазоне значений [-4,4] с шагом приращения аргумента 0,5. Выведите ответ в таблицу в два столбика по формату: Writeln (x: :2, ‘ | ‘ , y:8:2); Вот смотрю с циклом for и ни как не понимаю как все это считает. вроде бы решил (подогнал под ответ) задачу но пжл объясните сам цикл почему только так выводит и как надо. program tab; var i: integer; x,y: real ; begin writeln(' x',' | ', ' y ' ); for i:= -4 to 12 do begin x:=-2+i*0.5; y:=x-2+(x+1)/2; Writeln(x:8:2, ' | ' , y:8:2); end; end.

Сделал всё по уроку, всё прекрасно компилируется и работает, что через F9, что через shift-F9. Но в списке ошибок выводится предупреждение - "Program1.pas(18) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла". И да чуть не забыл циклы While и Repeat я не стал удалять я эти программки сохраняю с комментариями для себя, я их закомментировал.

Друг, помоги пожалуйста, у меня проблема с Repeat-Until я делал всё как ты, но пишет что i должно быть Boolean а не Integer, а поменять нельзя там же цифры. Надеюсь ты меня понял.

Нужна помощь, задали составить программу, которая проверяет, делится ли введенное целое число на 3. Помогите плз.

Добрый день, помогите решить задачу с циклами, во общем, вводится последовательность чисел 0 конец последовательности, посчитать сумму простых членов последовательности и вывести на экран

АААА ПОМАГИТЕ Я ПОСТАВИЛ ЗНАЧЕНИ 99999999999 У МЕНЯ ПРИБАВЛЯЕТСЯ 1 и выводится ЁЖИК КАК ЭТО ПРЕКРАТИТЬ У МЕНЯ ЩАС КОМП ВЗАРВЁТСЯ АААААААА

Я когда делаю эту программу у меня выскакивает ошибка по (var) подскажите пожалуйста что делать зарание спасибо ..

Завтра экзамен по программированию (универ) сижу учу,хочу такого учителя

пройдут тысячи лет а комп будет прибалять 1 пака не получится 99999999999 и будет вывадится Ёжик

Эдуард дружище давай еще видео

Спасибо Вам огромное! Здоровья и вдохновения)

жаль что у него код здоров на 90% из 200% (есть такая функция)

я перепутал (i) с 1, и вместо 11 "ёжиков" компилятор показал бесконечность... ( в строке i := i + 1). i := 1 +1.

repeat i := i+1; write('Ёжик '); until 0 > 5;

При объяснении прошу не вкл музыку оту мешает при принятии информации

Хмм чем то схожа с условными операторами

Норм, но музыка лишняя, слишком сильно отвлекает

Program Test; var a,b: integer; begin a := 500; b := 1000; writeln('a+b=', a+b); writeln('Получается 1500, да?'); end.

Объясни еще раз, ничего не понял

спасибо!

Перезапиши видео, ничего не понимаю

спасибо, очееь хорошее объяснение, продолжайте выпускать видео!))

качественно музыку вставил

программа получившийся на видео program hhh; var i :integer; begin i := 0; while i 5; for i :=15 downto 10 do begin write('ежик '); end; end.

Вот всем так легко а я делаю всё как на видео а у меня ёжики сотнями плодяца

ты просто лучик солнца

Спасибо! Помог!

Как же меня от паскаля воротит, в техникуме заставляют учить. Я лично неплохо C# и python знаю, и после этих языков программирования паскаль каким-то неполноценным кажется)

ne ponyala 6 minyti nichego zem otlichiya whle i repeat

спасибо тебе Эдуард! по скорее записывай видео часть 15 я жду

А у меня повторяются бесконечно слова

Спасибо вам большое вы лучший

Я который написал -10 и -5 😂😅

Музыку уберите пожалуйста

у меня получилась спам машина xdxdxdxddxdxd

Сколько школьников спас этот человек!

9-Б Это Аблаев, ставим лайки хахахаха

Кто из 2к19 ?

грустно,что канал заброшен

КРАСАВА БРАТ ВСЕ ПОНЯЛ СРАЗУ))))

Убери, пожалуйста, музыку и увеличь высоту шрифта. А так всё хорошо...

Музыку стоит делать потише

Помогите пж! Скажите способ написания программы: Дано натуральное число. Определить произведение его цифр.

Спасибо чувак.Разложил как надо.Без теории про алгоритмы как то не так воспринемается.Спасибоооо!!!

Подскажите, пожалуйста, почему у меня слово выводится бесконечное ко-во раз? Написала вроде все правильно (скрин: vk.com/doc409731036_447791958)

program god; var i: integer; begin i :=0; while i

Так внутри цикла for присвоить значение же нельзя или можно? У меня просто ошибку выдаёт.

Дополню: если хотите, чтобы условий для выполнения while было несколько (например, две или больше, а не одна переменная должны иметь определённое значение), помещайте эту команду внутри её же. То есть: while a>0 do begin while b>0 do begin writeln('Значение a = ', a); writeln('Значение b = ', b); end end ...Автору спасибо за урок!

Подскажите, пожалуйста. Почему у меня выводит "Ёжик" лишь 1 раз? Program while_for_repeat; var i:integer; begin for i:=0 to 10 do; begin write('Ежик '); end; end.

Объясните пожалуйста, ведь должно выйти 4 Ёжика, а выходит, только 3, а если поставить вместо 2 , 4 то получается всё правильно выходит только 2 ёжика, дестад конечно но всё же, не могу понять begin i :=5; while i

Составьте и отладьте программу, определяющую максимальное из всех введенных вами чисел. (Пусть признаком конца ввода чисел является введенное число 0.) Используя цикл с постусловием Помогите!!!

Cпасибо Огромное!!! Никто так ПОДРОБНО и ПОНЯТНО, БЕЗ ЛИШНЕЙ ВОДЫ, так прекрасно объясняет паскаль