Огромное спасибо автору. Вы талантливый преподаватель. Преподаете превосходно. Я окончил школу давным-давно, но лёжа в больнице за неделю освоил Pascal. Было очень интересно.
Огромейшее спасибо. Начали изучать по информатике язык Паскаль, так я вообще ничего не понимала. Посмотрела ваши урокии наконец-то хоть что-то запомнила и разобралась с задачами.Спасибо за понятное объяснение.
Спасибо вам за понятное объяснение и интересные задачки. Очень здорово, что прямо-таки для даёте объяснение понятное для каждого. Учусь на первом колледже на программиста и нам приготовили входной экзамен. Благодаря вам начал въезжать и в конце концов планирую научиться решать задачу 15.2
@@prostieresheniya мотивация порождает труд, а труд должен порождать зарплату. Надеюсь, вы также извлекаете выгоду из своих видеоуроков(ведь, тоже самое репетиторство далеко не бесплатное).
@@Фыва-ж9м Спасибо большое! Для тех кто хочет поддержать есть ссылка на курс с проверкой дз в автоматическом режиме на разных тестах и других заданиях на понимание. А вообще эти уроки я делал для своих учеников в школе, ну и решил что вдруг кому то ещё пригодиться)
@@Фыва-ж9м Раньше пользовался)) Сейчас ушел просто в репетиторство к ОГЭ и ЕГЭ, чтобы было больше времени для творчества. Школьная гонка 6 дней в неделю очень тяжело. Хотя уроки это лучшее что есть в школе, и общение с учениками))
Спасибо большое за видео! Последний раз на паскале писала в прошлом году, и то с учебника, а сейчас огэ, уже все забыла, но благодаря вашему видео вспомнило все важное и узнала новое!
Огромное спасибо за курс, учусь в 8 классе теперь всю информатику за год знаю. Отлично объясняете, вопросов не остаётся, желаю удачи и активности на канале)
@@prostieresheniya program pon; var a,b,c,sum,p,:integer; sred:Real; begin WriteLn('Введите три числа: '); read(a,b,c); sum:=(a+b+c); p:=a*b*c sred:=(a+b+c)/3; WriteLn(a,'+'b, '+',c '='sum); Writeln(a,'*',b, '*' c '=' p); WriteLn('(',a,'+',b,'+',c,')/='sred); end.
var a,b,c,sum,p,:integer; - Уберите последнюю запятую после переменной p, программа ждёт что за ней должна быть другая переменная раз вы запятую ставите
2:22:22 , я сделала немного по-другому, но масштабнее: program age1; var a, b, v :integer; begin write ('Возраст Антона: '); readln (a); write ('Возраст Бориса: '); readln (b); write ('Возраст Виктора: '); read (v); if a > b then if a > v then write ('Ответ: Антон старше всех.'); if b > a then if b > v then write ('Ответ: Борис старше всех.'); if v > a then if v > b then write ('Ответ: Виктор старше всех.'); if v = a then if a > b then if v > b then write ('Ответ: Антон и Виктор старше Бориса.'); if v = b then if b > a then if v > a then write ('Ответ: Борис и Виктор старше Антона.'); if a = b then if a > v then if b > v then write ('Ответ: Антон и Борис старше Виктора.'); if a = v then if a = b then if v = b then write ('Ответ: Антон, Борис и Виктор одинакового возраста.'); end.
Конечно работать будет, но... Если вы будете работать над проектами, то лучше такое не использовать. Лёгкие небольшие действия занимают слишком много места (и вы запутаетесь на двухсотой строке кода и когда будут появляться ошибки вы просто не поймёте куда смотреть). Поэтому сложные условия более практичны
Очень здорово с паскаля и нужно начинать, во первых паскаль строго типизированый язык, во вторых он и был создан для обучения во вторых на примерах паскаля гораздо проще людям объяснить те же указатели чем на си
Добрый день, а это "тот же" Паскаль что был всегда? Просто вижу что какой-то навороченный PascalABC... или можно просто внутри него ограничиваться "классическим" уровня 20 лет назад?
1:15:39 я не понимаю как в последнюю строку ввести 4, 2 и 240. В переменной я их получила, но как их ввести в строку, было бы хорошо если бы вы объясняли дз :(
Вы к сожаления не сильно внимательно смотрели урок. Нужно выводить переменные в операторе вывода через запятую, между ними можно ещё выводить и текст, главное не забывать отделять объекты запятыми write(a, 'тут текст', b, 'тут текст', c);
Да из разряда раньше писали как перебрать мотор, а сейчас что нельзя пить электролит) я это все проходил в 9 классе в кружке компьютеров двк и единственная игра требующая выключения сети была пакмэн) это был 89 год где Бейсик считался для идиотов и интересовали машинные коды) а перед этим паяли микросхемы на логических элементах для светофора ) Но искренне спасибо вам за вашу работу!
для дз 4 урока можно ли решить все так? program fifty; var a,b,M:integer; begin read(a,b); M:=a; if a>b then if M>50 then writeln('YES'); if a50 then writeln('YES'); end; if M
@@prostieresheniya, просто у меня появляется надпись "нечем открыть файл". Так то я все понимаю, но практиковаться не могу. Какую программу посоветуете, если она есть???
@@lkpo_970 В описании к ролику есть ссылка на мой курс на stepik. Можно скачать приложение stepik на телефон и там будет строенный компилятор паскаля, у меня многие так прогают на телефоне с приложения. Там будет много дз и автоматическая проверка. Курс платный 499 р
@@prostieresheniya добрый день. Могу ли я у вас узнать как записать функцию y=0.5log3(x-1)^2. Весь прикол в том что я не понимаю как записать правильно логорифм. Мучаюсь с этим уже не первый день и все что получилось это y:=0.5*ln(sqr(x-1)).
Максимально примитивное распределение, вдобавок оптимизация наверное хромает, но вот: program acd;var t,h,m,s,d,y:integer; x:char;begin writeln('Введите число секунд'); readln (t); m:=t div 60; s:=t mod 60; if (s>=60) then h:=s div 60; if (s>=60) then s:=s mod 60; if (m>=60) then h:=m div 60; if (m>=60) then m:=m mod 60; if (h>=60) then d:=h div 60 else d:=0; if (h>=60) then h:=h mod 60; if (d>=365) then y:=d div 60 else y:=0; if (d>=365) then d:=d mod 60; if (y= 1) or (y=2) or (y=3) or (y=4) or (y=21) or (y=22) or (y=23) or (y=24) or (y=31) or (y=32) or (y=33) or (y=34) or (y=41) or (y=42) or (y=43) or (y=44) or (y=51) or (y=52) or (y=53) or (y=54) or (y=61) or (y=62) or (y=63) or (y=64) or (y=71) or (y=72) or (y=73) or (y=74) then x:='г' else x:='л'; writeln(y,' ',x,'. ',d,' д. ',h,' ч. ',m,' мин. ',s,' с.') end.
@@prostieresheniya, Задачи с наибольшим я уже решал в школе, с тремя числами. И пока недавно лазил в паскале, нашёл тот факт, что переменные можно добавлять после начала программы, и в моей голове появилась мысль которая угробила 40 минут моей жизни. Зато теперь у меня есть код с нахождением наибольшего числа, где можно выбрать сколько чисел будет сравниваться( от 1 до 10)
И еще допустим задачка дз на сумму нечетных делящихся на 3 чисел, нужно было дописать нечетных делящихся на 3 БЕЗ ОСТАТКА. Сегодня буду решать задачи впаскале на дополнительном и нужно аработать десятку что 8.5 вышло....
добрый вечер, вы дали бесценный багаж знаний. Но мне не достаточно, можете пожалуйста посоветовать литературу, которая уровнем чуть выше чем ваши ролики( они классные, но я все запомнил и мне нужно двигаться дальше ). Спасибо.
Добрый день!) Спасибо за комментарий, но я даже не знаю какой ресурс Вам посоветовать или какую книгу. Вообще я дам другой совет, начните изучать другой язык программирования, Паскаль нужен только для обучения основ, и на нём никто не пишут уже давно, даже в школах уже Питон изучают
Реально за 4 часа всё расскажет? Выглядит привлекательнее, чем лекция, но зря время не хочется тратить. Лекции курса заканчиваются на темах "Процедуры, функции пользователя и базовые алгоритмы". Изм.: Нет, нереально.
![Паскаль с нуля [ч6]. Циклы. While, repeat-until, for.](http://i.ytimg.com/vi/zbc7NVc_g6w/mqdefault.jpg)
Огромное спасибо за этот курс! Учусь на 1-ом курсе и пришел в вуз с нулевыми знаниями программирования. Сейчас уже начал понимать.
Спасибо большое за отзыв))) рад Вам помочь)
Жиза(
А сейчас в вузах учат Паскаль на паскале ведь сейчас нечего не пишут?
Во всех вузах по разному
@@sarcazm7360 ну в целом Паскаль даёт неплохую основу, после которой уже можно осваивать другие языки. Но кнчн сам Паскаль нигде не используется.
Спасибо огромное за это видео! я буквально с нуля после вашего видео стал понимать что к чему в языке паскаль!
Спасибо большое) очень приятно читать такие отзывы)
Замечательное объяснение, отвечаете на все вопросы, которые у меня возникают
Спасибо за отзыв) Очень рад что удалось Вам помочь)
Огромное спасибо автору. Вы талантливый преподаватель. Преподаете превосходно. Я окончил школу давным-давно, но лёжа в больнице за неделю освоил Pascal. Было очень интересно.
Спасибо большое)) очень приятно)
Срасибо, за 4 часа понял все, хотя до этого вообще не понимал что такое паскаль
Это круто!!! Рад был Вам помочь 👍
Огромейшее спасибо. Начали изучать по информатике язык Паскаль, так я вообще ничего не понимала. Посмотрела ваши урокии наконец-то хоть что-то запомнила и разобралась с задачами.Спасибо за понятное объяснение.
Спасибо большое за отзыв) рад был Вам помочь)
@@prostieresheniya подскажите, в курсе рассматривается objectPascal?
@@vanmihaylovich добрый день, нет не рассматривается(
Спасибо вам за понятное объяснение и интересные задачки. Очень здорово, что прямо-таки для даёте объяснение понятное для каждого. Учусь на первом колледже на программиста и нам приготовили входной экзамен. Благодаря вам начал въезжать и в конце концов планирую научиться решать задачу 15.2
Спасибо большое за отзыв) Желаю Вам успеха в освоении программирования) всё обязательно получится!)))
спасибо большое , помогаете мне 2-ки исправить ))))
Спасибо большое за отзыв ☺ Рад что удаётся помочь) Смотрите с VPN чтобы поддержать канал 🙏
Огромное Вам спасибо за объяснение 🙏 Очень срочно нужно было разобрать тему и именно вы и помогли мне 🙏😇
В школе на уроках информатики я упустил половину языка, а вы помогли мне вспомнить. Спасибо!!!
Спасибо большое, очень мотивируют такие отзывы)
@@prostieresheniya мотивация порождает труд, а труд должен порождать зарплату. Надеюсь, вы также извлекаете выгоду из своих видеоуроков(ведь, тоже самое репетиторство далеко не бесплатное).
@@Фыва-ж9м Спасибо большое! Для тех кто хочет поддержать есть ссылка на курс с проверкой дз в автоматическом режиме на разных тестах и других заданиях на понимание. А вообще эти уроки я делал для своих учеников в школе, ну и решил что вдруг кому то ещё пригодиться)
@@prostieresheniya Надеюсь, среди учеников вы пользуетесь авторитетом. Я как раз думал, что Вы преподаватель.
@@Фыва-ж9м Раньше пользовался)) Сейчас ушел просто в репетиторство к ОГЭ и ЕГЭ, чтобы было больше времени для творчества. Школьная гонка 6 дней в неделю очень тяжело. Хотя уроки это лучшее что есть в школе, и общение с учениками))
спасибо за эти уроки, очень понятное поэтапное объяснение, желаю большего продвижения и активности)
Спасибо большое за отзыв! Очень приятно)
Спасибо большое за видео! Последний раз на паскале писала в прошлом году, и то с учебника, а сейчас огэ, уже все забыла, но благодаря вашему видео вспомнило все важное и узнала новое!
спасибо огромное автору, объяснил все понятным и простым языком языком. Вместе с объяснением сразу практика и домашние задания.
Спасибо большое за отзыв) очень приятно читать такие комментарии)
Огромное спасибо, в школе есть проблемы с информатикой, спасаюсь вашими роликами💖
Спасибо большое за отзыв)
Та же история, совсем не понимаю Pascal (((
Гениально, Карл! Обжект и турбо истрахали уже. Лайкос подписос)))
хахахха))) Спасибо) неожиданный позитивчик)
Спасибо тебе большое очень понятно объясняещь
👍
Лучший учитель по паскалью!
Спасибо
Спасибо большое ☺️
Pascal жив!
Конечно))
Советую смотреть на х2. Скорость не сильно ощущается, но 4 часа превращаются в 2.
Спасибо вам! Это как раз то, что мне было нужно!
Спасибо за отзыв))
Огромное спасибо за курс, учусь в 8 классе теперь всю информатику за год знаю. Отлично объясняете, вопросов не остаётся, желаю удачи и активности на канале)
Спасибо большое за отзыв)
спасибо огромное, вы лучший!! поняла все с первого раза
Спасибо большое за отзыв)
Мне кажется видео будет очень понятным)) Вы очень здорово объясняете!
Спасибо большое) надеюсь вам понравится))
@@prostieresheniya уже все понравилось))прям очень классно
Большое вам спасибо. Вы все так подробно объяснили
Спасибо большое за отзыв)
спасибо, очень помогли!😊всех вам благ
Спасибо за отзыв)))
Благодарю за работу!
Спасибо большое)
спасибо! отлично объясняете . поняла темы которые 2 года проходили...
Спасибо большое за отзыв))) очень приятно читать такие комментарии))
Просто на учёбе вы ещё это закрепляете, пишите контрольные. Да и раз в неделю всего информатика (обычно).
Thank you very much for this course , you are helped me so much with learning this Pascal , now i can understand it 👍
Thank you 🙏
Дай Вам Бог здоровья)
Спасибо большое) если что этот курс с увеличенным ДЗ и автопроверкой есть бесплатно на степике, ссылка в описании)
2:41:07 - ошибка
условие c5, при c=4 является истинным
Да-да, там есть такое) хорошо что заметили)
Спасибо. Завтра Олимпияда как раз ещё раз вспомню старое. Учюсь в 6 классе)!
Спасибо) Надеюсь олимпиада удалась)
Спасибо, Вам большое, Вы лучшие!!!!!!!!
Спасибо за видео, учусь заочно, очень помог данный контент.
Спасибо! ❤
Спасибо за урок) Скоро олимпиада по информатике, а паскаль совсем не знаю.
Спасибо большое за отзыв)) Для олимпиады конечно лучше использовать питон или c++
спасибо вам большое все четко и понятно
Давай ещё такое видео только про работу с модулями особенно меня интересует GraphABC
Большое спасибо ха ролик 😊
1:13:55
Пишет, что перед integer надо поставить [Variable Identifier] как исправить?
нужен полностью код чтобы точно ответить
@@prostieresheniya program pon;
var a,b,c,sum,p,:integer;
sred:Real;
begin
WriteLn('Введите три числа: ');
read(a,b,c);
sum:=(a+b+c);
p:=a*b*c
sred:=(a+b+c)/3;
WriteLn(a,'+'b, '+',c '='sum);
Writeln(a,'*',b, '*' c '=' p);
WriteLn('(',a,'+',b,'+',c,')/='sred);
end.
var a,b,c,sum,p,:integer; - Уберите последнюю запятую после переменной p, программа ждёт что за ней должна быть другая переменная раз вы запятую ставите
@@prostieresheniya спасибо!
Огромное спасибо за урок)
Спасибо большое за отзыв)
Спасибо, у нас в 9 щас проходит паскаль👌
По программе потому что программирование в 9 классе))
2:22:22 , я сделала немного по-другому, но масштабнее:
program age1;
var a, b, v :integer;
begin
write ('Возраст Антона: ');
readln (a);
write ('Возраст Бориса: ');
readln (b);
write ('Возраст Виктора: ');
read (v);
if a > b then
if a > v then
write ('Ответ: Антон старше всех.');
if b > a then
if b > v then
write ('Ответ: Борис старше всех.');
if v > a then
if v > b then
write ('Ответ: Виктор старше всех.');
if v = a then
if a > b then
if v > b then
write ('Ответ: Антон и Виктор старше Бориса.');
if v = b then
if b > a then
if v > a then
write ('Ответ: Борис и Виктор старше Антона.');
if a = b then
if a > v then
if b > v then
write ('Ответ: Антон и Борис старше Виктора.');
if a = v then
if a = b then
if v = b then
write ('Ответ: Антон, Борис и Виктор одинакового возраста.');
end.
Вы сделали через вложенные условия, работать будет, но лучше использовать сложные условия, это локаничней и понятней
Конечно работать будет, но... Если вы будете работать над проектами, то лучше такое не использовать. Лёгкие небольшие действия занимают слишком много места (и вы запутаетесь на двухсотой строке кода и когда будут появляться ошибки вы просто не поймёте куда смотреть). Поэтому сложные условия более практичны
44:56 он нарисовал о_о🙂
Spasibo bolshoe o4en klassno!
Спасибо за отзыв)
Благодарочка
Спасибо большое))
Очень здорово с паскаля и нужно начинать, во первых паскаль строго типизированый язык, во вторых он и был создан для обучения во вторых на примерах паскаля гораздо проще людям объяснить те же указатели чем на си
Полностью согласен 👍
Оооо да, спустя 3 года в программировании, я вернулся сюда, чтобы вспомнить начальную боль!
Почему Вам пришлось вернуться к Паскалю?
@@prostieresheniya Вспомнить с чего всё начиналось, паскаль неплохой язык в плане обучения
Спасибо вам большое:)))
Спасибо за отзыв)))
Можете сказать как увеличить или уменьшить масштаб как вы сделали на 2:22:14?
1:01:45 а можно написать 5+6=11 по-другому, то есть вот так:
write('a+b=', sum)?
Тогда а и б не поменяются на 5 и 6, потому как ‘а+б’ будет просто строчкой
@@prostieresheniya поняла, спасибо
Видео оказалось намного полезнее школьного учителя
Большое спасибо ❤
Добрый день, а это "тот же" Паскаль что был всегда? Просто вижу что какой-то навороченный PascalABC... или можно просто внутри него ограничиваться "классическим" уровня 20 лет назад?
Да, сейчас, есть действительно навороченный ABC, но я рассказываю классику)
@@prostieresheniya спасибо за ответ - и за видео, конечно же!
Спасибо)))
На 2x смотрится восхитительно
1:15:39 я не понимаю как в последнюю строку ввести 4, 2 и 240. В переменной я их получила, но как их ввести в строку, было бы хорошо если бы вы объясняли дз :(
Вы к сожаления не сильно внимательно смотрели урок. Нужно выводить переменные в операторе вывода через запятую, между ними можно ещё выводить и текст, главное не забывать отделять объекты запятыми write(a, 'тут текст', b, 'тут текст', c);
Спасибо за уроки!!
Я выучил PHP/JS/C++/HTML/CSS и ещё паскаль, спасибо)
Хотя не учусь в 8 классе
Очень круто 🙌 Теперь осталось пройти у меня курс по Python, и будет полный набор 🤣
Большое спасибо всё оченьпонятно изучяю в 6 классе
Круто для 6 класса изучать программирование)) и ещё более круто что Вам всё понятно))
@@prostieresheniya когда кстати ролик по оставшимся 699 с лишним языкам?
@@ВладимирПопов-у1д Есть курс п питону на канале. По остальным не планирую)))
3:28:11 , подскажите пожалуйста , почему нельзя было записать x mod 2 > 0 ?
Так тоже можно было бы, ваше решение тоже абсолютно верное
Здравствуйте!
А будет более углубленный курс по Паскаль?
Очень хотелось бы курс по больше.
Просто каких-то обучалок по паскаль почти нет.
Это поддержка комментарий
Спасибо большое)))
Да из разряда раньше писали как перебрать мотор, а сейчас что нельзя пить электролит) я это все проходил в 9 классе в кружке компьютеров двк и единственная игра требующая выключения сети была пакмэн) это был 89 год где Бейсик считался для идиотов и интересовали машинные коды) а перед этим паяли микросхемы на логических элементах для светофора ) Но искренне спасибо вам за вашу работу!
Спасибо за такой интересный отзыв)
на 2:29:58 неправильно написано, должно быть if (x>=10) and (x
Прошёл по таймкоду, там совсем не то
спасибо дядя
добрый день! скажите пожалуйста, сильно ли отличается Lazarus от PascalABC?
Добрый день! Если честно я с Lazarus не работал никогда
@@prostieresheniya ладно, спасибо. Просто в понедельник экзамен, а мы пишем на лазарусе
учу java два месяца(в основном во втором) хочу посмотреть на паскаль так как в девятый класс иду и хочу всё быстро делать
Жду полный курс python 🐍))
я тоже его жду)) когда же на него решусь)))
2:41:10 вы ошиблись, у вас с = 4, а в условии с 5, вы сказали что это ложь, а на самом деле это правда
Возможно)
Где то паскаль применяется?
Паскаль создавался как язык для обучения программированию. Реально проги на нём никто сейчас не пишет, только учатся
А что на Pascal до сих пор в школе учат? Говорили вроде как на python хотели переходить
В основном все на Python перешли, но думаю не все)
извините пожалуста что пишу ту т нашел ваше видео с разрывом страниц в ворде а у вас старый ворд как сделать это в новом
Посмотрите на канале, скорее всего есть видео в новом ворде. У вас какой ворд?
@@prostieresheniya можете свой вк скинуть я вам скрином отправлю какой у меня ворд
@@трактортоп-о5ш на шапке канала есть ссылка на группу в вк, там можете меня найти и написать
для дз 4 урока можно ли решить все так?
program fifty;
var a,b,M:integer;
begin
read(a,b);
M:=a;
if a>b then
if M>50 then writeln('YES');
if a50 then writeln('YES');
end;
if M
я по другому написал
program qq;
var a,b:integer;
begin
write('Введите 2 числа: ');
read(a,b);
if a>50 then
if b
program pyatka;
var a,b,M: integer;
begin
writeln ('Введите два числа: ');
read (a,b);
M:=50;
if a>M then
if bM then
if a
2:41:07 Ц не равно 5?, ц=4, 45 --да, а вы сказали нет. Спасибо за ролик)
Да, там правда ошибся, заболтался))
Спасибо:)
Спасибо за отзыв))
Я не понял арифметику, почему начало урока 8-30 но в коде мы пишем 8*60+30?
И ch:= t div (60*60) почему умножаем 60*60?
Зачем нужен t:= t mod (60*60)
Спасибо большое за полезный контент! А будут уроки по массивам?
Спасибо большое за отзыв) Пока не планируются, времени совсем нет((
@@prostieresheniyaэх, жаль
что делать неизвестное имя integer на 2 уроке
Я чет не понял, как компилятор на произведение 4*5*7 выдал ответ 16??? Смотреть с 1:06:30
Потому что я насрал в твою тарелку и ты схавал это все, насрал в мою тарелку и я схавал твоё говно, и так цикл короче в паскале устроен
А вот на моменте 25:10 есть небольшая проблемка, у меня ТЕЛЕФОН!!! 🥺🥺🥺
И в чем именно проблема?
@@prostieresheniya, просто у меня появляется надпись "нечем открыть файл".
Так то я все понимаю, но практиковаться не могу.
Какую программу посоветуете, если она есть???
@@lkpo_970 В описании к ролику есть ссылка на мой курс на stepik. Можно скачать приложение stepik на телефон и там будет строенный компилятор паскаля, у меня многие так прогают на телефоне с приложения. Там будет много дз и автоматическая проверка. Курс платный 499 р
@@prostieresheniya ну ок
спасибо,помогло
2:42:37 с5 должна 1 стоять, а не 0. 45? Да, верно. 4 не равно 5, значит 1. Или я чего-то не догоняю?
Возможно просто ошибся
Добрый день. Я думаю что хорошая идея сделать уроки по языку lua. Я пытался найти что то в ютубе но не нашел.
Добрый день)) спасибо конечно за идею)) но сейчас без монетизации и в сложившейся ситуации совсем не хочется что то снимать)
@@prostieresheniya добрый день. Могу ли я у вас узнать как записать функцию y=0.5log3(x-1)^2.
Весь прикол в том что я не понимаю как записать правильно логорифм. Мучаюсь с этим уже не первый день и все что получилось это y:=0.5*ln(sqr(x-1)).
1:12:35 в выводе пропущена 3-ка и поэтому кривы показано в конечном итоге... (4+5+7) /=5
Uskov power!
Пока учился div и mod из-за перфекционизма написал до лет, с разделением на года и лет, типо 4 года, 5 лет, при том всё сам
Максимально примитивное распределение, вдобавок оптимизация наверное хромает, но вот:
program acd;var t,h,m,s,d,y:integer;
x:char;begin
writeln('Введите число секунд'); readln (t);
m:=t div 60; s:=t mod 60;
if (s>=60) then h:=s div 60;
if (s>=60) then s:=s mod 60;
if (m>=60) then h:=m div 60;
if (m>=60) then
m:=m mod 60; if (h>=60) then
d:=h div 60 else
d:=0; if (h>=60) then
h:=h mod 60; if (d>=365) then
y:=d div 60 else
y:=0; if (d>=365) then
d:=d mod 60; if (y= 1) or (y=2) or (y=3) or (y=4) or (y=21) or (y=22) or (y=23) or (y=24) or (y=31) or (y=32) or (y=33) or (y=34) or (y=41) or (y=42) or (y=43) or (y=44) or (y=51) or (y=52) or (y=53) or (y=54) or (y=61) or (y=62) or (y=63) or (y=64) or (y=71) or (y=72) or (y=73) or (y=74) then
x:='г' else
x:='л'; writeln(y,' ',x,'. ',d,' д. ',h,' ч. ',m,' мин. ',s,' с.')
end.
Главное что сами до всего дошли и сами придумали! Так держать 👏
Уроки сделал вперёд вас, вдобавок сделал показ минут с нулём в начале, если они меньше 10. Просто ввёл 3-й урок и мне не понравилось как выглядит)
@@prostieresheniya, Задачи с наибольшим я уже решал в школе, с тремя числами. И пока недавно лазил в паскале, нашёл тот факт, что переменные можно добавлять после начала программы, и в моей голове появилась мысль которая угробила 40 минут моей жизни. Зато теперь у меня есть код с нахождением наибольшего числа, где можно выбрать сколько чисел будет сравниваться( от 1 до 10)
@@prostieresheniya, у меня вопрос на 2:42:30, почему во 2 действии, выражение а5 ложно? Ведь это значит что 2=5, разве нет?
И еще допустим задачка дз на сумму нечетных делящихся на 3 чисел, нужно было дописать нечетных делящихся на 3 БЕЗ ОСТАТКА. Сегодня буду решать задачи впаскале на дополнительном и нужно аработать десятку что 8.5 вышло....
Да, это подразумевалось естественно, здесь это уточнение можно не писать)))
добрый вечер, вы дали бесценный багаж знаний. Но мне не достаточно, можете пожалуйста посоветовать литературу, которая уровнем чуть выше чем ваши ролики( они классные, но я все запомнил и мне нужно двигаться дальше ). Спасибо.
Добрый день!) Спасибо за комментарий, но я даже не знаю какой ресурс Вам посоветовать или какую книгу. Вообще я дам другой совет, начните изучать другой язык программирования, Паскаль нужен только для обучения основ, и на нём никто не пишут уже давно, даже в школах уже Питон изучают
@@prostieresheniya да, возможно, но я студент и 2 семестра у меня будет pascal, придумайте что нибудь пожалуйста
3:44:16 Это ведь арифметическая прогрессия, можно было формулой записать, но ладно
Это конечно Вы правы, можно было и прогрессией, но тут ведь я объясyяю цикл for
Как можно и где можно скачать паскал
Посмотрите у меня на канале первый урок по Паскалю, там в описании должны быть ссылки
Здравствуйте! 1:14:00 - ошибка, нет цифры '3' при делении на три в операторе вывода, соответственно и в окне вывода она не появилась)
курс прошел. теперь я квалифицированный программист и могу зарабатывать 300к долларов в час?
Раньше я думал, что я не способен к языкам программированиям. Оказалось я путал *ELSE* с *ESLE* ...
😂 хахаха
@@prostieresheniya с этим я с тобой согласен, но на самом деле не очень😉
Это разве полный курс?
Полный курс за 9 класс
@@prostieresheniya подскажите пожалуйста, а этого курса достаточно для пользования lazarus, или нужно дальше учить?
Я думаю достаточно, тут основные конструкции, лучше сразу привыкать к синтаксису другого языка
Asm
Это все основы паскаля?
Ах, да ещё массивы, функции и процедуры
Хочу выучить паскаль для школы. 7 Класс, хочу удивить либо самостоятельно выучить язык.
Хорошее желание))) успехов в ваших начинаниях)
@@prostieresheniya спасибо)
Молодец, что стремишься учится. Вот моё желание пропало и по итогу с 5 за год скатился до 3,4 и изредка 5.
Реально за 4 часа всё расскажет? Выглядит привлекательнее, чем лекция, но зря время не хочется тратить. Лекции курса заканчиваются на темах "Процедуры, функции пользователя и базовые алгоритмы".
Изм.: Нет, нереально.
оооой.... ну удачи мне...
Все обязательно получится)))
топ
Полный курс, блин😂 Где TurboVision? Где графика с двойной буферизацией?
Это полный курс для 8 класса )
huita
naverno