Программирование на Pascal. Условия (ветвление). Видеокурс 

До экзамена 16 часов, начал учить паскаль.

Вот как можно писать инфу меньше чем на 80 баллов когда есть такой канал

Готовлюсь к 2021, отличные видосы, за 3 часа понял больше чем за 4 года обучения, спасибо

спасибо вам большое!дай вам бог долгих лет!... много талантливых и умных людей в России!

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

я всё это знаю, но смотрю с интересом уже второй урок, здорово!

29:49 ура! Я все смотрел на эту А и ждал, когда же ты заметишь :D

Очень жду продолжение уроков Паскаля. Вы хорошо объясняете, но хочется уже чего то посложнее ^^ (знаю, что пока только были основы)

однозначно лайк,ждем 3-ию часть

Для 51:48 подойдет такой код (простой): var x:integer; begin readln(x); if (x >= (-5)) and (x =(-5)) and (x =(-1)) and (x =3) and (x

Спасибо за курс!

Это было интересно) И именно то, что нужно. Спасибо))

Огромное спасибо! 💛💛💛

Это лучший материал по программированию,ты лучший.Хотелось бы продолжения

Спасибо большое!

Лучший! Спасибо!

Огромное спасибо! Ждем третью часть.

В программу вводятся три стороны треугольника. Определить, может ли существовать треугольник с такими сторонами. O_o

лучше, что я видел

Спасибо Вам большое!

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

Очень понятно! Спасибо большое.

Просто, лучший спасибо тебе ✊🏻

Спасибо большое , ты супер

Спасибо Вам огромное)

Добрый день. Работая в графическом редакторе нужно, чтобы по нажатию мышки в определенном месте перечерчивал ранее нарисованный рисунок (как и что перечертить я забиваю руками). Использую вот такую конструкцию: begin {РИСУНОК} OnMousedown := (x, y, mb) -> if (x > х1) and (x < х2) and (y > у1) and (y < у1) and (mb = 1) then begin {Нажимаю ЛКМ в прямоугольнике №1 с координатами х1,х2,у1,у1} ОПИСЫВАЮ ВРУЧНУЮ ФИГУРЫ, ЛИНИИ, ЦВЕТА И Т. П. OnMouseup := (x, y, mb) -> if (x > х1) and (x < х2) and (y > у1) and (y < у1) and (mb = 1) then begin {Отпускаю ЛКМ в прямоугольнике №1 с координатами х1,х2,у1,у1} СНОВА ПЕРЕЧЕРЧИВАЮ ВРУЧНУЮ СТАРЫЙ РИСУНОК end; end; OnMousedown := (x, y, mb) -> if (x > х3) and (x < х4) and (y > у3) and (y < у4) and (mb = 1) then begin {Нажимаю ЛКМ в прямоугольнике №2 с координатами х3,х4,у3,у4} ОПИСЫВАЮ ВРУЧНУЮ ФИГУРЫ, ЛИНИИ, ЦВЕТА И Т. П. OnMouseup := (x, y, mb) -> if (x > х3) and (x < х4) and (y > у3) and (y < у4) and (mb = 1) then begin {Отпускаю ЛКМ в прямоугольнике №2 с координатами х3,х4,у3,у4} СНОВА ПЕРЕЧЕРЧИВАЮ ВРУЧНУЮ СТАРЫЙ РИСУНОК end; end; END. Вопрос такой: не могу разобраться куда вставлять end-ы. Если я ставлю все 4 штуки в самом конце, то все идет последовательно (т.е. последние условия не выполняются, пока не выполнятся первые два). Если я ставлю как здесь, то не выполняются первые 2 условия, два последние выполняются. Если ставлю после каждого оператора, то тоже не выполняются первые 2 условия. Как сделать правильно?

В домашней работе во втором задании второго блока неправильный ответ, алгоритм сначала должен проверить возможен ли треугольник с такими углами, а потом уже проверять какого типа треугольник. Иначе в программе можно ввести 90 90 90 и выдаст что треугольник прямоугольный, хотя в действительности не существует треугольника с такими углами в евклидовой геометрии.

Кратентремкратендвукратендвумкратентремтрямдвумтремдвамдреммнем чувствую себя машиной...киборг блеать!

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

Спасибо!!

Спасибо)

ты лучший!!!

15:00 он не учёл, что трехзначные числа могут быть и отрицательными, тогда еще условие: -999=

СПАСИБО ВАМ

Задача с корнями квадратного уравнения может решаться в одно условие. Это займет меньше вычислительной мощи(правда не сильно), что важно на 27 задаче

Ура.

Здравствуйте, можно ли узнать, сколько будут длиться уроки по программированию? В рамках какого времени? И будут ли в дальнейшем разборы заданий ЕГЭ по изученным материалам. Заранее спасибо.

33:32, а нельзя просто написать if b0 then writeln(a/b) else writeln('Решения нет') ????

спасибо помог

Планируются ли ещё видео по паскалю?

Когда ждать следующую часть по программированию на Паскаль?

ураа

Ну нифига себе 27ое снизошло)))

☻🖤

я так и не понял решения в 7 номере домашки (блок 2) ..... что за ps?

Купите ему уже мел кто-нибудь)

Расскажите подробно как решить последнюю задачу 7 из дз

В домашнем задании в задаче номер 7 выдает в Паскале ошибку, не понимаю, как ее исправить? Подчеркивает красным if (s/v + 0,25*ps

Это из дз. Напишите, пожалуйста, почему это не верный код и в чем ошибка? Желательно с обоснованием. var n: integer; begin readln(n); begin if (n0) then n:= n*-1; writeln (n); end else if (n=0) then writeln ('знак не может быть изменен'); end.

3:27 - среда программирования PascalABC.NET и так выводит ошибку при попытке делить на нуль. Возможно в прошлых версиях она и выводила бесконечность :)

Корректно ли мое решение для №4 из домашки ? var N : int64; begin readln (N); if (N div 100 >= 0) and (N div 1000 = 0) and (N mod 5 = 0) then write ('yes') else write ('No') end.

ух сука со смыслом))

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

uses crt; var d,x1,x2,a,b,c: real; begin d:=0; writeln('введите число a'); read(a); writeln('введите число b'); read(b); writeln('введите число c'); read(c); d:=b*b-4*(a*c); if (d>0) then begin x1:=(-b+sqrt(d))/(a+a); x2:=(-b-sqrt(d))/(a+a); writeln('x1 =',x1); writeln('x2 =',x2); end Else if (d

А если "вбить" в значение а=0?)))))))

почему мы в 8 а у нас эти же задачи, которые нам не объясняют даже

Спасибо, но я сдаю огэ)

То чувство когда ты в 5 классе, и не понимаешь что такое корень квадратного уравнения(

Афигеть, впервые вижу 1к лайков 1 дизлайк

Просто один дизлайк за весь год :) Топчик

Спасибо)

Планируются ли ещё видео по паскалю?

Спасибо огромное!