Добрый день. Работая в графическом редакторе нужно, чтобы по нажатию мышки в определенном месте перечерчивал ранее нарисованный рисунок (как и что перечертить я забиваю руками). Использую вот такую конструкцию: 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 условия. Как сделать правильно?
3:27 - среда программирования PascalABC.NET и так выводит ошибку при попытке делить на нуль. Возможно в прошлых версиях она и выводила бесконечность :)
В домашней работе во втором задании второго блока неправильный ответ, алгоритм сначала должен проверить возможен ли треугольник с такими углами, а потом уже проверять какого типа треугольник. Иначе в программе можно ввести 90 90 90 и выдаст что треугольник прямоугольный, хотя в действительности не существует треугольника с такими углами в евклидовой геометрии.
3 задача во втором блоке так же неправильная. В задаче требуется проверить принадлежность точки к окружности (кривой), а не к кругу (фигуре). Соответственно там условие должно быть x*x+y*y = 100, а не x*x+y*y
Здравствуйте, можно ли узнать, сколько будут длиться уроки по программированию? В рамках какого времени? И будут ли в дальнейшем разборы заданий ЕГЭ по изученным материалам. Заранее спасибо.
Корректно ли мое решение для №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')
Это из дз. Напишите, пожалуйста, почему это не верный код и в чем ошибка? Желательно с обоснованием. var n: integer; begin readln(n); begin if (n0) then n:= n*-1; writeln (n); end else if (n=0) then writeln ('знак не может быть изменен'); 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
в информатике математика играет огромную роль, так что если ты уже изучаешь инф-ку за 10-11 класс, то знать математику за курс хотя бы 8 классов необходимо
![Паскаль с нуля [ч6]. Циклы. While, repeat-until, for.](/img/n.gif)
До экзамена 16 часов, начал учить паскаль.
Бро, напиши как сдал
@@ДаниилСемёнов-ш7щ в армии нельзя пользоваться мобилой)
Красава, далеко пойдешь
Блин, причём здесь армия?
@Всеволод Кулагин в колледж
Готовлюсь к 2021, отличные видосы, за 3 часа понял больше чем за 4 года обучения, спасибо
тоже к 2021 готовлюсь))
+
тупой школоте с приставками типа "pro" не то что 4 года, а 10 лет не предел и то ничего не поймут
@@fallenx7034, есть учителя, которые просто дают программу и говорят, мол, сам разбирайся. Так что не нужно так критично высказываться о человеке)
@@МанохинНикита кстати да, у нас так поступает физик)
спасибо вам большое!дай вам бог долгих лет!... много талантливых и умных людей в России!
Вот как можно писать инфу меньше чем на 80 баллов когда есть такой канал
в смысле
п.с. видео пока не смотрел
Могу показать как
Например если готовишься за 2 дня до экзамена 🤔
@@Margo_Shakh 😰😰😰
@@asapp1530 это просто фишка такая. Называется экста подготовка 💁
очень интересные и понятные уроки! Спасибо Вам большое продолжайте в том же духе!
Для 51:48 подойдет такой код (простой):
var
x:integer;
begin
readln(x);
if (x >= (-5)) and (x =(-5)) and (x =(-1)) and (x =3) and (x
я всё это знаю, но смотрю с интересом уже второй урок, здорово!
29:49 ура! Я все смотрел на эту А и ждал, когда же ты заметишь :D
жиза
Я бы хотел это сказать, НО я это скажу! L это я!
@@GodOfReNa ахахаха тоже хотела написасть
Я кира
однозначно лайк,ждем 3-ию часть
Очень жду продолжение уроков Паскаля. Вы хорошо объясняете, но хочется уже чего то посложнее ^^ (знаю, что пока только были основы)
Это было интересно) И именно то, что нужно. Спасибо))
Это лучший материал по программированию,ты лучший.Хотелось бы продолжения
Спасибо за курс!
Добрый день. Работая в графическом редакторе нужно, чтобы по нажатию мышки в определенном месте перечерчивал ранее нарисованный рисунок (как и что перечертить я забиваю руками). Использую вот такую конструкцию:
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 условия.
Как сделать правильно?
Огромное спасибо! Ждем третью часть.
Лучший! Спасибо!
Огромное спасибо! 💛💛💛
Спасибо большое!
В программу вводятся три стороны треугольника. Определить, может ли существовать треугольник с
такими сторонами. O_o
Сложна?:)
@@infbu Босова?
Этой задаче сто лет в обед:)
Pavel Maslov, я через теорему косинусов сделал, вроде работает )
Нужно , чтобы сумма углов была равна 180 . А это условие можно проверить через манипуляцию с синусами и косинусами )
Спасибо, все очень понятно объяснили)
Спасибо Вам большое!
Очень понятно! Спасибо большое.
Спасибо большое , ты супер
Просто, лучший спасибо тебе ✊🏻
15:00 он не учёл, что трехзначные числа могут быть и отрицательными, тогда еще условие: -999=
Но ролик все равно классный!
Спасибо Вам огромное)
33:32, а нельзя просто написать
if b0 then writeln(a/b)
else writeln('Решения нет')
????
Задача с корнями квадратного уравнения может решаться в одно условие. Это займет меньше вычислительной мощи(правда не сильно), что важно на 27 задаче
лучше, что я видел
3:27 - среда программирования PascalABC.NET и так выводит ошибку при попытке делить на нуль. Возможно в прошлых версиях она и выводила бесконечность :)
У меня выводит бесконечность (версия PascalABC 3.4.2)
Это у тебя пхд в коде ошибка ;D
3.7.2 выводит бесконечность, не знаю, не знаю)
Ахах, у меня тоже была первая программа (ну такая внушительная) с решением квадратного уравнения через дискриминат)
В домашней работе во втором задании второго блока неправильный ответ, алгоритм сначала должен проверить возможен ли треугольник с такими углами, а потом уже проверять какого типа треугольник. Иначе в программе можно ввести 90 90 90 и выдаст что треугольник прямоугольный, хотя в действительности не существует треугольника с такими углами в евклидовой геометрии.
3 задача во втором блоке так же неправильная. В задаче требуется проверить принадлежность точки к окружности (кривой), а не к кругу (фигуре). Соответственно там условие должно быть x*x+y*y = 100, а не x*x+y*y
@@esse8407кстати, условие x*x+y*y
Спасибо!!
ты лучший!!!
Спасибо)
СПАСИБО ВАМ
Здравствуйте, можно ли узнать, сколько будут длиться уроки по программированию? В рамках какого времени?
И будут ли в дальнейшем разборы заданий ЕГЭ по изученным материалам.
Заранее спасибо.
Расскажите подробно как решить последнюю задачу 7 из дз
Кратентремкратендвукратендвумкратентремтрямдвумтремдвамдреммнем
чувствую себя машиной...киборг блеать!
В домашнем задании в задаче номер 7 выдает в Паскале ошибку, не понимаю, как ее исправить? Подчеркивает красным if (s/v + 0,25*ps
Планируются ли ещё видео по паскалю?
Ура.
Когда ждать следующую часть по программированию на Паскаль?
я так и не понял решения в 7 номере домашки (блок 2) ..... что за ps?
это количество остановок, типо каждые 100 км он ведь останавливается, например у нас s=480 км, тогда количество остановок s div 100 = 4 остановки
тоже не понял. если кто знает, что за формула в конце?
Корректно ли мое решение для №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.
Ну в принципе мог бы посмотреть твою домашку, но мне нужно знать какое задание было, всм я не знаю что за номер четыре.
спасибо помог
Это из дз. Напишите, пожалуйста, почему это не верный код и в чем ошибка? Желательно с обоснованием.
var
n: integer;
begin
readln(n);
begin
if (n0) then
n:= n*-1;
writeln (n);
end
else
if (n=0) then
writeln ('знак не может быть изменен');
end.
второй begin после then поставь, должно заработать
ураа
Ну нифига себе 27ое снизошло)))
☻🖤
А если "вбить" в значение а=0?)))))))
Ты здесь? А то не хочется просто так объяснять.
Нет 8)
Купите ему уже мел кто-нибудь)
Неделя до экзамена, впервые смотрю, что вообще за задания в Кимах...
Когда будут резы, отпишусь, сколько у меня😂
Оставлю комментарий, чтобы тоже узнать эту великую тайну
@@СофияЛи-з4ф я не пришла на экзамен)
Просто все равно планировала поступать до другим предметам, так что все окей
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
почему мы в 8 а у нас эти же задачи, которые нам не объясняют даже
ух сука со смыслом))
То чувство когда ты в 5 классе, и не понимаешь что такое корень квадратного уравнения(
в информатике математика играет огромную роль, так что если ты уже изучаешь инф-ку за 10-11 класс, то знать математику за курс хотя бы 8 классов необходимо
@@ghgogo1172 ну это понятно
Спасибо, но я сдаю огэ)
Ну как, сдал?
@@ВладимирКузнецов-ц1б, сдал
Просто один дизлайк за весь год :)
Топчик
Афигеть, впервые вижу 1к лайков 1 дизлайк
Спасибо)
Планируются ли ещё видео по паскалю?
Спасибо огромное!