прошло 7 лет, а я учу паскаль для экзаменов благодаря вам)) в школе ничему не учили, а щас поняла все буквально за вечер

очень долго искал такого человека как вы, вы очень хорошо объясняете славлию всё на ходу, запойно уже смотрю 8 видео + ешё видео алгоритм, лайк и подписка=))

Поздравляю с 20к подписчиками) Жаль, что вы больше не делаете видео(

Огромное спасибо за работу! Смотрю залпом уже 9 видео, все просто и понятно! Спасибо еще раз! Да , преподавательские навыки у тебя есть)

9 в начале забыл! лайк если заметил)

Эдуард забыл пароль от канала по ходу, но он нас к этому подготовил! Расчехляем Паскаль и взламываем Ютуб, чтобы дать Эдуарду пароль.

Спасибо тебе, добрый человек, я стал на много лучше шарить информатику. Желаю чтобы у тебя было 100000000 подписчиков.

А мы на информатике, вообще не занимаемся программированием, учитель сменился и всё больше ничего интересного. Спасибо вам, я собираюсь пойти учиться на программиста, и ваши уроки очень помогут в сдаче егэ.

Спасибо вам!

не понимаю даже,за что дизлайки ставят? Более грамотного объяснения даже не видел в ютубе

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

Эдуард, молдоец всё понятно и доступно, продолжай в усиленном темпе! Желаю твоему каналу 1 000 000 подписков

Спасибо за Ваши видео! Это и правда у Вас очень хорошо получается. Талантливо!

Спасибо, очень здорово и интересно, рад, что вы вернулись, ждем интересных видео:)

Спасибо большое за уроки!

Все понятно, спасибо

ваще круто,все понятно!спасибо вам!!!!!!

Спасибо, вам, Эдуард! Очень понятно объясняете!

Хорошие уроки, очень благодарен. Святое дело делаешь.

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

На своем блоге вставила ссылку на Ваше видео для учеников. Очень доходчиво и интересно. Спасибо.

Молодец,все понятно рассказываешь!!!

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

Очень хорошие уроки! Спасибо большое! Буду вас рекомендовать:)

Годные уроки , помогают , спасибо ))

Супер! огромнейшее спасибо автору. Сейчас очень помогает при подготовке к экзамену по основам алгоритмизации и программирования!

Спасибо за видео.Подписался на канал.

Буду рекомендовать Ваше видео своим ученикам!

Замечательный канал. Очень благодарен. Иду на олимпиаду и очень помогает.

Спасибо!

Тебе спасибо за такой канал)))

*Низкий вам поклон*

очень хорошие видиоуроки мне очень понравились и пригодились в школе. Большое спасибо!!!

Определённо ты объясняешь лучше, чем мой учитель, большое спасибо, а то вообще бы ничего не понял)))

Эдуард, я знаю что ты это не прочитаешь, но вдруг. Я хочу вам сказать большое спасибо за то, что научили меня «Pascal». Даже спустя годы, я уверен вас будут смотреть, так как лучше видео гайдов просто напросто НЕТ.

СПАСИБО БОЛЬШОЕ

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

Поздравляю уже 40к подписчиков) и просмотры растут

Хорошие видео уроки, продолжайте снимать.

Это лучший канал!!!!

Очень эффектно получилось в середине ролика трюк с необходимостью подписки :) , Респект

Просто неимоверно классное объяснение, вместо "урока информатики" в моей школе, учитель мой дает примеры, презентации: " На вот списывайте". А объяснения никакого(только когда весь класс получает двойки на "практической" или контрольной), да и причем практики нет. Компьютеров куча, но практики программирования нет. Вы мой спаситель, теперь есть мотивация программированием заниматься!!!

Отличные уроки 10/10.

Препод в универе не так рассказывает. Вы молодец!! Спасибо за то, что дали понять) удачи Вам)

Спасибо;)

спасибо, эдуард

вы очень хорошо объясняете

ПРООДОЛЖАЙ !!!!!!!!!

я уже начинаю сам писать по теме видео а потом смотрю как делаете вы сейчас я сделал так: program pascal_8; var x,y:real; begin y:=0; repeat writeln(y); y:=y+1 until y>20 end. но это всё благодарю вашему хорошему и лёгкому объяснению,спасибо!))

класное видео

Спасибо.

Спасибо

Круто

Спасибо Эдя

Здравствуй.Ты все очень понятно объясняешь,и главное все показываешь . Мог бы ты объяснить вот такое задание. Построить блок -схему алгоритма для следующей задачи: "подсчитать количество отрицательных чисел в массиве из 15 элементов".

👍

Спосибо я смотрю твои ролики привет из Казахстана

топ урок

Я Незнаю чтобы я делал Без тебя!!

Классные уроки! Эдуард, почему Вы забросили канал?

девятку пропустил

Спс

еее я тут)))

Эдуард, здравствуйте , а можно сделать обзор про рекурсию, заранее спасибо)

var i:integer; begin for i:=0 to 20 do writeln(i); end.

Спасибо большое! Отличные уроки! Скажите пожалуйста что это за шрифт.

Было на олимпиаде задание:7-8 класс.Дан массив из N(3

А ведь среди комментариев под такими видео 100% есть люди, которые в будущем будут топовыми программистами

Смотрите что придумал сам Program периметр_квадрата_или_прямоугольника; var a: string; c, d, f: integer; begin writeln('Периметр чего вам нужен: квадрат или прямоугольник? '); read(a); if a = 'квадрат' then begin writeln('Введите сторону квадрата '); read(c); writeln('Периметр квадрата равен: ', 4*c); end else begin writeln('Введите длину прямоугольника '); read(d); writeln('Введите ширину прямоугольника '); read(f); writeln('Периметр прямоугольника равен: ', d*2+f*2); end; end.

Было бы классно, если бы канал ожил, и Вы бы записали Python с нуля!))

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

Ниче ты вырос до 20к

40,7к подписчиков

С 2020 привет)

Ребят, все кто хотят закрепить результат просто рядом добавьте копию и напиши самостоятельно без видео.

Здравствуйте, с удовольствием смотрю Ваши видео, и сейчас возник вопрос: если мне нужно вывести ряд чётных чисел, в котором каждое число больше предыдущего на 2, самым оптимальным вариантом программы будет первый из показанных (с number:=number+2) или можно как-то сократить?

Приветствую, такое вот задание. Используя цикл repeat until, написать программу вычисления членов ряда S= cos(x)+cos(2x)/4+ cos(3x)/9+... +cos(nx)/n^2, c точностью до члена ряда, меньшего а по модулю. Значение а выбирает пользователь. Вот то что я "натворил" program v1z21; const a=5; var S,i,el:real; n:integer; Begin S:=0; n:=0; el:=cosx; repeat n:=n+1; i:=n/n*n; el:=el*i; S:=S+el; until el

Эдуард, добрый день! Подскажите что за музыка начинает играть с 0:15 мин.? Заранее благодарен! С меня подпись!))

ура 100 подписоты , уже 35к )

Мне очень трудно решать задачи, но при этом программу нормально ( вроде ) знаю : команды, что после чего следует, что нужно и как получить , а вот как решать задачи не могу( Путаюсь сильно в самих задачах и особенно путают большие задачи

Когда работа качественная, она не требует рекламы)

Такой вопрос, если я буду писать программу не в PascalABC, а в Pascal FREE, то нужно будет менять что-то в коде? Или можно писать так же, без изменений?

Эдуард, реши пожалуйста для меня задачу: Гулливер попал в страну Бродбингнег - страну великанов и король этой страны издал указ о том, что тот, кто построит идеальный дом для Гулливера, получит баронский титул. Необходимая высота дома для его проживания должна быть ровно на 120 см выше роста Гулливера. Определите, есть ли среди построенных домов подходящий для Гулливера. Если есть, то вывести «Yes», иначе - «No». Заранее спасибо!!!

очень крутой автор!! можно сделать ещё проще var i: integer; begin for i:= 1 to 20 do writeln(i); end.

Ребята, давайте подписываться! Вдруг Эдуард вернется!

как вы думаете эдуард возможно ли стать программистом в 7 классе или выучить язык паскаль???? я в 7 классе и я все части понял только слова все надо подучить:)) что мне делать дальше? ответте пожалуйста и ещё снимите видео где вы создаете приложение или игру или серьёзную программу пожалуйста

500 лайко, не одного дизлайка, не каждый день такой встретишь

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

вот, что я придумал)))))))))) program pifagora; var a,b,c,d : real; begin writeln('найти катет - 1, найти гипотенузу - 2'); read(d); if d2 then writeln('нет такого варианта'); if d=1 then begin writeln ('введите длину известного катета '); read(a); writeln ('введите длину гипотенузы'); read(c); b:=sqrt(sqr(c)-sqr(a)); writeln ('второй катет равен =',' ',b); end; if d=2 then begin writeln ('введите длину первого катета '); read(a); writeln ('введите длину второго катета'); read(b); c:=sqrt(sqr(a)+sqr(b)); writeln ('гипотенуза равна =',' ',c); end; end.

Составьте программу, пожалуйста! Имеем массив из 45 элементов, каждый из которых в диапазоне [-50;50]. Переставить элементы массива в обратном порядке. Отсортировать массив и вывести его на экран.

Эд, оставляй ссылку на вк и прочее в описании, так удобнее

Написать программу вычисления значения функции + x*x, если 0

4:20 девятку пропустил:)

Помогите с написанием программы: В среде программирования PascalABC.Net разработать и отладить программную систему на языке Object Pascal , в которую включить: ‒ модуль с 2-мя процедурами и функцией; ‒ программу для вызова процедур и вывода результатов на экран. ‒ В модуле объявить и определить 2 процедуры и функцию. ‒ В функции выполнить расчет ‒ при значениях х, изменяющихся от 1 до 20 с шагом 0.5 ‒ В процедуре №1 (Сохранение файла) выполнить: ‒ Открыть новый числовой файл ‒ Задать число вызовов функции ‒ Организовать цикл для вызова функции с разными значениями X ‒ В цикле выполнить: ‒ Вызвать функцию ‒ Значение функции сохранить в числовом файле ‒ Изменить значения х на величину шага ‒ Закрыть файл ‒ В процедуре №2 (Загрузка файла) выполнить: ‒ Открыть созданный файл ‒ Организовать цикл ‒ В цикле выполнить: ‒ Загрузить информацию из файла в массив. ‒ Выдать элементы массива на экран с 2-мя знаками после запятой. ‒ Вычислить произведение и сумму файла. ‒ Завершить цикл ‒ Вычислить среднее значение файла ‒ Закрыть файл ‒ В программе выполнить: ‒ Подключить модуль ‒ Установить связь с файлом ‒ Вызвать процедуру сохранения файла ‒ Вызвать процедуру загрузки файла ‒ Выдать на экран произведение файла с 2-мя знаками после запятой. Прошел год, у меня все ругается на ввод данных... 1/sqrt(x)+ln exp(2)|0,2 + sin(x)|3sqrt(sqr(2))

Привет в начале ты написал 20 чисел с помощью for и 2 перменных, но я использовал 1 переменную таким образом: for i := 1 to 20 do writeln(i); Разрешаетсся ли, такое написание

ЗДравствуйте а если захочу написать числа с шагом = 0,5 то как в этой ситуации поступать ?

эх жалко канал заброшенный, уже 35 к. подписчиков

VAR a:integer; begin for a:=0 to 20 do writeln(a+1); end. так намного проще

Я просмотрел несколько видео и сделал игру

сделай про графику please!!! program please; Var a:integer; begin writeln('введите а=>'); readln(a) if a>5 then writeln('сделай про графику!!!!!'); else writeln('я приду к тебе ночью'); end. Программирую на Турбо