Код выглядит так как будто должен выводиться обратный отсчет до 1. Но по факту выводит только одно число.

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

Thanks, bro! It is a very nice lesson

блть, нахер ты лес ска снимаешь?? ПРОСТО ПОЧЕМУ ЛЕС???!

Слухала до слов "агроном Степан Бандера". Более бредовой версии не ожидала.

клааасс

Спасибо большое! Можно ли примонтировать сетевую папку или cdrom к клону? Или клон закрыт от внешних ресурсов?

По документации React, рекомендуют использовать кэширующие хуки (useCallback, useMemo) только в том случае, когда вы 100% уверены в том, что в данном случае оно позволит сэкономить много вычислений. Допустим, вы в дебагере посмотрели, что какой-то компонент ререндерится 10 раз вместо 1 из-за того, что функция создается каждый раз заново; в этом случае можно применить useCallback. Не стоит использовать useCallback и useMemo всегда и везде: они сами по себе могут даже ухудшить производительность, не говоря о лишнем визуальном мусоре в коде.

В идеале каждый компонент в своей одноименной папке размещать, даже если он будет один в папке. Новые файлы для компонента могут добавиться потом, а сообразить добавить для этого папку в будущем не каждый сможет.

Объяснение топ (сарказм)

Файлы сохраняются в формате *.lpr ,как сохранять в формате *.pas так и не понял в этой IDE

Когда в фильме земное ядро хакер спросил профессора сколько языков он знает когда тот перечислил то хакер ему ответил что он знает один 100101 и он может сделать с деньгами и этим человеком всё что захочет. Я сам когда то писал и знал несколько языков программирования например ассемблер дизассемблер,си, си+ фортран, и естественно не сколько версий бэйсика в том числе и была вариация на русском. Сейчас смешно когда медицина показывает людям мультики типа гена под микроскопом 😅😅😅 И вообще опираясь на опыт работы могу сказать что чтобы написать что то путевое нужно иметь высшее образование по этому вопросу иначе будет много не дороботок и исправлений И главное чтобы хорошо писать программы нужно очень хорошо знать математику ну и английский специальный чтобы открыл текст программы и читай ее как книгу

Да, шортсы реально затягивают. Решил одно посмотреть и поехали дальше смотреть

Тема до конца не раскрыта!!

Почему?

Фу, мля, вышел, и Вам не советую смотреть . Поебень несет..... .

Что, ты мля мелешь????? Ноль мля.э....

Привет. Такое дело: программа работает и работает почти как надо. Но вот в этом куске кода, когда использую горячую клавишу F6, после 11-ого (всегда именно 11) раза использования, зависает hook и программа перестает реагировать на нажатия клавиш (использую от F6 до F12). При этом все соатльные функциональные клавиши работают отлично и только F6 вешает весь ряд. function LLKeyProc(nCode: integer; wp: WPARAM; lp: LPARAM): LRESULT; stdcall; var vk: DWORD; X,Y: integer; begin if nCode = HC_ACTION then begin vk := LPKBDLLHOOKSTRUCT(lp)^.vkCode; if wp = (WM_KEYDOWN) then case vk of VK_F6: begin if Form1.Label1.Caption = 'Б' then keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0); // Отжимает Shift if KR = 0 then KR:= 1 else KR:= 0; Form1.Label6.Caption:= inttostr(KR); Clipboard.AsText := '/1'; PressKey(13); // Enter Pause(200); keybd_event(VK_CONTROL, 0, 0, 0); // Зажимает Control Pause(100); PressKey(65); // А Pause(200); PressKey(86); // V Pause(200); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // Отжимает Control Pause(200); PressKey(13); // Enter Pause(500); if KR = 1 then Clipboard.AsText := '1'; if KR = 0 then Clipboard.AsText := '0'; Pause(200); PressKey(13); // Enter Pause(200); keybd_event(VK_CONTROL, 0, 0, 0); // Зажимает Control Pause(100); PressKey(86); // V Pause(200); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // Отжимает Control Pause(200); PressKey(13); // Enter Pause(500); if Form1.Label1.Caption = 'Б' then keybd_event(VK_SHIFT, 0, 0, 0); // Зажимает Shift end; Предполагаю, что это как-то связано с копированием в буфер, но как и что - не понимаю. Есть идеи?

Спасибо

А я платила деньги за такие же уроки.. спасибо вам!

Спасибо. Не замечал такого. Буду знать.

Спасибо большое за видео

спасибо, за нормальный урок по данной теме.

Путинский фашизм погубил в тисячи раз больше людей(войной) чем все ГМО на планете.

спасибо

я вот так сделал, только если число с нулём то ноль не выводит ☹ var n : integer; begin write('enter number '); readln(n); while n <> 0 do begin n := n mod 10; write(n); n := n - 1; end; readln(n); end.

отличный прием, спасибо что поделились

не ластэст а лэйтэст :)

посмотрев видео, понял насколько можно было проще написать, вот мой шедевр : program test_1; var i,a,b,c,num : integer; begin i := 0; a := 0; b := 0; c := 0; while (i <> 3) do begin write('enter number: '); readln(num); if (num < 0) AND (num mod 2 <> 0) AND (i = 0) then begin a := num; i := i + 1; num := 0; end; if (num < 0) AND (num mod 2 <> 0) AND (a < 0) AND (i = 1) then begin b := num; i := i + 1; num := 0; end; if (num < 0) AND (num mod 2 <> 0) AND (a < 0) AND (b < 0) then begin c := num; i := i + 1; num := 0; end; writeln(); end; writeln('a ', a); writeln('b ', b); writeln('c ', c); writeln(a, ' + ', b, ' + ', c, ' = ', a + b + c); readln(); end.

спасибо за разьяснение

спасибо Вам за Ваш труд

тогда эту задачу нужно было ставить где изучали цикл for, а не while 🤔

Спасибо Вам за пояснения, я цикл for вообще не разсматривал, так как задачи на тему while перед просмотром подсказки у меня получилось вот так : program test_2; var n1,n2,n3 :integer; begin n1 := 0; n2 := 0; n3 := 0; while true do begin write('enter numbers: '); readln(n1,n2,n3); if (n1 > 0) OR (n1 > 0) OR (n1 > 0) then break end; writeln(n1,' ',n2,' ',n3); readln(); end.

у меня получилось вот так: program test_1; var i, num : integer; begin num := 0; i := 1; while (num <= 15) do begin write('enter number - '); readln(num); if (num > 15) then break; writeln(num + i); i := num; writeln(); end; writeln('end'); readln(); end.

спасибо

спасибо

👍

сначало сделал сам, потом посмотрел Ваше видео, вот что получилось var a, b, c, d : integer; begin write('enter number "a" - '); readln(a); write('enter number "b" - '); readln(b); write('enter number "c" - '); readln(c); write('enter number "d" - '); readln(d); if (a > b) then begin if (a > c) then if (a > d) then writeln('a >') else writeln('d >'); end; if (b > a) then begin if (b > c) then if (b > d) then writeln('b >') else writeln('d >'); end; if (c > a) then begin if (c > b) then if (c > d) then writeln('c >') else writeln('d >'); end; readln(); end. код работает но я понял что у меня не совсем полное ветвление. p.s. спасибо Вам за видео

супер

спасибо

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

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

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

спасибо братюнь, я только начал учиться линуксу, отвтил на мой трепещащий вопрос )))

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

Хороший фильм, спасибо!

Благодарю за труд!

Хорошо объясняешь, спасибо 😊

Очень Серьëзная тема! А просмотров на помазать ( людям грозит смерть от ГМО!

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