Идея прекрасная! НО!!!! изложение материала, напоминает мне вот что: "одно яблоко плюс одно яблоко - будет два яблока; два яблока плюс одно яблоко - будет три яблока... А теперь, когда мы научились производить вычисления - рассчитаем массу черной дыры, зная коэффициент гравитационного искажения света, проходящего на расстоянии n..."
Отличное видио! Все понятно и по теме, ни чего лишнего! ))) Обязательно просмотрю все видио, думаю, что узнаю много нового! А те кто говорят, что им не понятно о чем идет речь, так начните с азов, а потом уж переходите на темы посложнее тогда точно все будет понятно!
Есть от чего оттолкнутся)) Большая часть коментов правильно говорят, очень трудно понять что к чему. Но ни кто ведь не мешает покопаться в интернете и найти объяснение что к чему))Видео Уроки самый раз) спасибо тебе за работу которую ты сделал....
кто непонял, читайте вот что. в конце каждого "действия" нужно ставить точку с запятой, они отделяют одну команду от другой. var это переменная, то что вы там напишете это значение переменной и её тип(числовой-числа, строковый-буквы или то что будет читаться как буквы, тоесть не будет складываться, булевой-слишком долго объяснять идите гуглить). остальное по мелочам, сами потом поймёте, но видео реально для тех кто уже хоть как-то разобрался.
Неплохо, неплохо. Но если ты делал этот урок для новичков, то тут стоит объяснять поэтапно, т. е. думаю не все сразу же смогут освоить материал и написать свою первую, hello, world. Сначала нужно объяснить принцип работы ввода вывода, отдельно уделить внимание( в другом видео уроке), понятию что такое метод приват или паблик, отдельно поговорить про модули. Но повторюсь материал подан хорошо, но для новеньких будет менее понятно.
Program Privetik; var a:string; b:string; c:string; d:string; e:string; begin writeln('Как тебя зовут красотуля :0'); readln(a); Writeln('Шо поделываешь?'); readln(d); Writeln('Ты бяка. Что ты сможешь мне ответить?'); readln(c); Writeln('Сам(а) такой(ая) -_-'); readln(d); Writeln('Ну все, я обиделся :('); readln(e); Writeln('Ой,всё!'); end.
Fx PandaCoper Лучше просто var a, b, c, d, e:string; Да и вообще можно в данной программе переменные не использовать, так как то что ввёл человек, всё равно не учитывается.
спасибо все повторил все получилось. очень хочу научиться программировать так как получил травму руки и больше не смогу работать. посмотрю все твои уроки и обязательно попробую что нибудь от себя
Красавец, работа с ООП в первом уроке! Нужно сначала расжевать: что такое переменная, какие есть типы данных и т.п. Странно, что приложение не стал писать на первом уроке.
Согласен, этот курс скорее для тех кто уже неплохо разбирается в паскале, но хочет расширить знания. Те кому нужно все разжевывать - ищите курс с нуля.
спасибо я написал по этому гайду калькулятор взял write('напиши второе число которое нужно прибавить : '); readln (h.operatorB); ну там изи вообще 10 мин спасибо)))
Можно ещё, чтоб все по красоте было, между блоками сбора инфы и её выводом сделать очистку экрана? Во всяком случае Бейсик это делать позволял вставкой команды очистки с указанием времени задержки. Хотелось бы узнать как это реализовано в Паскале. У меня не робит. На var матерится.
Дружище ты определись -либо ты обучаешь, либо просто показываешь как ты умеешь программировать. -с начало бы потрудились хотя бы алгоритм придумать как ознакомить нас с возможностями программы, и какое мышление от нас требуется чтобы понять программу . Введение -только не заумными словами -а простыми понятными для восприятия ...
Program gg; var a,b,c,d:string; Humen:string; Name:string; Age:integer; begin write('поприветствуй бота ' ); readln(a); writeln('Приветик, Мне нужно собрать твои данные'); writeln('И для этого, напиши своё имя'); read(Name); writeln('Отличное имя ' ,Name, ' А теперь введи в строку сколько тебе лет!' ); read(Age); writeln('Замечательно,' ,Name, '! Теперь я эту информацию заложу в хранилище!'); writeln('Приятно иметь с вами дело, пока!'); end.
Программка простых чисел! var a,b,c:integer; begin writeln ('Ваедите до какого числа вы хотите получить простые числа!'); read(b); for a:=1 to b do begin if a mod 2 = 0 then c:=c+1; if a mod 3 = 0 then c:=c+1; if a mod 5 = 0 then c:=c+1; if a mod 7 = 0 then c:=c+1; case c of 1,2,3,4:write(''); else write (a,','); end; c:=0; if a mod 2 = 0 then c:=c+1; if a mod 3 = 0 then c:=c+1; if a mod 5 = 0 then c:=c+1; if a mod 7 = 0 then c:=c+1; case c of 1,2,3,4:write(''); else write (a,','); end; c:=0; end;
Если у кого ошибка с else вот вам поправочка: readln(h.Age); if (h.Age>17) then writeln('Ti uze!Soversheno letniy!') else writeln('Oi! Da ti ese mal.'); write('Ladno.A skasi svoi rost: '); P.S Я писал транслитом Кому надо вот мой скрипт: type Human=class public Name:string; Age:integer; Height:integer; end; var h:Human; begin h:=new Human; write('Privet! Ya xochu uznat nemnogo o tebe.'); write('Kak teby zovut: '); readln(h.Name); write('Prekrasno, ', h.Name, ', a teper skashi, skok tebe let: '); readln(h.Age); if (h.Age>17) then writeln('Ti uze!Soversheno letniy!') else writeln('Oi! Da ti ese mal.'); write('Ladno.A skasi svoi rost: '); readln(h.Height); writeln(); writeln('Nu vot i vse .Mi sobrali vsu neobxodimuy infu:'); writeln('Teby zovut ', h.Name); writeln('Tebe ', h.Age); writeln('Tvoi rost: ', h.Height, ' sm'); writeln(); writeln('Sps, ', h.Name, '.S toboi bila Alena, BB!'); end.
Короче, люди, которые хотят сделать такую развертку (линию) зайдите в "Сервис - Настройки - Редактор" и поставьте галочку на разрешение сворачивания кода, и будет вам счастье. =)
Поясните, пожалуйста. Вот есть запись типа record с некоторыми полями. Есть файл со списком этих данных: город, жители, площадь и район. Как правильно считать данные из входного файла, если входной и выходной файлы-текстовые? Вот я считываю: (f,a) - это ясно: будет строка полная. А как считывать данные в формате (f,a,b,c.. ). У меня программа жалуется, что формат неверный. Не вижу ошибок. паскаль abc.net
У меня со второй программой проблема, пишет " слишком мало или слишком много аргументов передающихся функции "new" " хотя всё вроде точь в точь сделал.
А нормально то что я 4 классе делаю 3д модели, 3Д анимации, 3Д игры на BGE, игры и проги на CTF(Clickteam Fusion 2.5) и пишу на Poscal ABS (Пока не фонтан на Pascal ABS)???
Не очень люблю, когда паскаль объясняют с программы "Здравствуй, мир". У нас препод по информатике заставил записывать штук 15 операторов и описание к ним, потом начал объяснять программу типа "a+b=c", где и присутствовали все эти операторы, не знаю, как сверстникам, но мне было понятно.
А допустим написал программу ,как сделать чтоб она отдельная работала, а не только в паскале, допустим ,чтоб была возможность её установить и она работала
Идея прекрасная! НО!!!! изложение материала, напоминает мне вот что:
"одно яблоко плюс одно яблоко - будет два яблока; два яблока плюс одно яблоко - будет три яблока... А теперь, когда мы научились производить вычисления - рассчитаем массу черной дыры, зная коэффициент гравитационного искажения света, проходящего на расстоянии n..."
проорал с комента
Согласен с тобой чувак))) очень здорово что теперь я могу написать под диктовку программу, но от этого я не начал понимать что и зачем я делаю)
в точку ))))).......
Привет, можешь подсказать где можно научиться работать на Turbo Pascal и Delphi очень хочу научиться
Евгений Головейко Четко чувак
Для человека который не видел до этого паскаль этот видос как физика для ученика 3 класса.
Я в 4 классе. Я все поняла.
Мой мозг развет больше в математическую сторону но это не так сильно влеяет.
Мне нравиться , спасибо
@@Atori_2739 ++ но мне 15😂😂
@@Atori_2739 оно и видно.
Синтаксис языка очень убогий, С++ и то читается проще.
Туториал отличный!Сразу вник в происходящие
//Моя программа на языке Pascal #1
//
//----Заполнение Анкеты-------
type
Human=class
public
Name:string;
Lastname:string;
Age:integer;
end;
var
h:Human;
begin
h:=new Human;
writeln('Здравствуйте, пользователь!');
writeln('Заполните анкету');
//Считывание информации
write('Ваше имя: ');
readln(h.Name);
write('Ваша фамилия: ');
readln(h.Lastname);
write('Ваш возраст: ');
readln(h.Age);
writeln('Ваша анкета успешно заполнена!');
writeln('------------------------------');
writeln('Вывод вашей анкеты:');
//Вывод записаной информации
writeln('Ваше Имя: ', h.Name);
writeln('Ваша Фамилия: ', h.Lastname);
writeln('Ваш Возраст: ', h.Age);
end.
Отличное видио! Все понятно и по теме, ни чего лишнего! ))) Обязательно просмотрю все видио, думаю, что узнаю много нового! А те кто говорят, что им не понятно о чем идет речь, так начните с азов, а потом уж переходите на темы посложнее тогда точно все будет понятно!
Большое спасибо за урок! Наконец-то нашёл видео где всё отлично и без всякой воды с подробным описанием каждого символа
Большое спасибо за урок!Очень долго парился с этим паскалем,а тут так легко и просто:)
Есть от чего оттолкнутся)) Большая часть коментов правильно говорят, очень трудно понять что к чему. Но ни кто ведь не мешает покопаться в интернете и найти объяснение что к чему))Видео Уроки самый раз) спасибо тебе за работу которую ты сделал....
Отлично, Сергей! Очень интересно и всё понятно! Мне нравится
Ну это просто восхитительно!!!! Я это сделала!!! Свою первую программу!!!! Спасибо за доступную информацию!!!!
Лучшее, что я видел! Спасибо.
кто непонял, читайте вот что.
в конце каждого "действия" нужно ставить точку с запятой, они отделяют одну команду от другой.
var это переменная, то что вы там напишете это значение переменной и её тип(числовой-числа, строковый-буквы или то что будет читаться как буквы, тоесть не будет складываться, булевой-слишком долго объяснять идите гуглить).
остальное по мелочам, сами потом поймёте, но видео реально для тех кто уже хоть как-то разобрался.
Неплохо, неплохо. Но если ты делал этот урок для новичков, то тут стоит объяснять поэтапно, т. е. думаю не все сразу же смогут освоить материал и написать свою первую, hello, world. Сначала нужно объяснить принцип работы ввода вывода, отдельно уделить внимание( в другом видео уроке), понятию что такое метод приват или паблик, отдельно поговорить про модули. Но повторюсь материал подан хорошо, но для новеньких будет менее понятно.
Отличный урок , все доходчиво и понятно . Спасибо.
Тебя зовут Сергей.
Тебе 19 лет.
Рост 168.
Учишь программированию в ютюбе.
Мы тебя найдём;)
186 а не 168
😂😂👍👍
Program Privetik;
var
a:string;
b:string;
c:string;
d:string;
e:string;
begin
writeln('Как тебя зовут красотуля :0');
readln(a);
Writeln('Шо поделываешь?');
readln(d);
Writeln('Ты бяка. Что ты сможешь мне ответить?');
readln(c);
Writeln('Сам(а) такой(ая) -_-');
readln(d);
Writeln('Ну все, я обиделся :(');
readln(e);
Writeln('Ой,всё!');
end.
Fx PandaCoper Лучше просто var a, b, c, d, e:string;
Да и вообще можно в данной программе переменные не использовать, так как то что ввёл человек, всё равно не учитывается.
Я знаю,что коммент был написан давно,но это так,для новеньких,переменные одного типа можно перечислить в одну строчку.
😂😂👍👍
Отличное видео ! Спасибо за хорошее объяснение.
Мда. Тут народ не шарит, что умножаются числа знаком "*", а делятся "/", а вы тут про ООП рспинаетесь. Может го сразу ассемблер учить?
😶👌
Спасибо, как для питон разраба всё очень понятно и интересно!
Спасибо!!!! В школе не понял , Вы Объяснили вообще просто вах как хорошо!!!!! Спасибо!!!!!!!!!
Спасибо! Вы помогли мне освоить программирование! Благодарю и жду 2-ю часть!
Это конечно программирование но ты его не освоил, это просто курс 6 класса школьной программы, есть еще куча более сложных языков, как минимум
Новичкам не советую. Только для повторения
спасибо все повторил все получилось. очень хочу научиться программировать так как получил травму руки и больше не смогу работать. посмотрю все твои уроки и обязательно попробую что нибудь от себя
Ну и что вышло
Нет. у меня родился 3й ребенок и я бросил.
Классный пример так и надо учить программирования, респект и уважуха за данный пример.
Все понятно, ничего сложного. Спасибо!
Все круто, все понятно, спасибо! Лайк=подписка. Иду смотреть второй урок)
Красавец, работа с ООП в первом уроке!
Нужно сначала расжевать: что такое переменная, какие есть типы данных и т.п. Странно, что приложение не стал писать на первом уроке.
Очень помог. Спасибо за урок)
Очень хороший и обучающий видос! Спасибо огромное!
Ну раз обязательное условие, то ставлю Like :)
Я все понял (не очень), но смог разобраться сам и даже поэкспериментировал, тем самым поняв возможности программы больше.
Довольно интересно Большое спасибо!PROTEBA
Класс, всё понятно и доступно, спасибо огромное!!!!!
Завалите все .Продолжай Сергей.Ваще норм все.
Согласен, этот курс скорее для тех кто уже неплохо разбирается в паскале, но хочет расширить знания. Те кому нужно все разжевывать - ищите курс с нуля.
Очень хорошо объяснил ! Лови лайк и подписку !
Спасибо Сергей!
пожалуйста повыполняй программы на решение задач
Я в школе проходил эту тему нихера не понял. Посмотрел твое видео все понятно стало!!!
Спасибо, что рассказал о uses! Вообще не шарил...
Отличный урок! Спасибо.
чтобы поставить скобки надо зайти в сервис после настройки и редактор и ставим галочки
А как же собрать прогу?
Но урок понравился очень!
Хорошо что со звуком хорошо!
спасибо я написал по этому гайду калькулятор взял write('напиши второе число которое нужно прибавить : ');
readln (h.operatorB); ну там изи вообще 10 мин спасибо)))
Хорошо что я хоть чуть знал Паскаль так бы тупил,но все ровно спасибо
Блогадаря курсу смог писать игры сейчас являюсь джава разработчикам кому интерестно зайдите на сайт java rush
Супер!!!) Спасибо за урок!
Нашел самый первый урок и все равно ничего не понимаю "переменная " и т.д. СПАСИБО ! А не для программистов можно с азов начать ?
Салам.Какой приложения усползуете для прогграмы
Можно ещё, чтоб все по красоте было, между блоками сбора инфы и её выводом сделать очистку экрана? Во всяком случае Бейсик это делать позволял вставкой команды очистки с указанием времени задержки. Хотелось бы узнать как это реализовано в Паскале.
У меня не робит. На var матерится.
Дружище ты определись -либо ты обучаешь, либо просто показываешь как ты умеешь программировать.
-с начало бы потрудились хотя бы алгоритм придумать как ознакомить нас с возможностями программы, и какое мышление от нас требуется чтобы понять программу .
Введение -только не заумными словами -а простыми понятными для восприятия ...
Точняк +1😂😂
Вау, блин у меня были проблемы в школе с этой темой ...а теперь все понятно
Учитель ужасен полный игнор
Всё ок. Думаю тебе нужно панель инструментов тоже показывать
Я бы этот выпуск назвал"Как сделать текстовый квест на Паскале."
Program gg;
var
a,b,c,d:string;
Humen:string;
Name:string;
Age:integer;
begin
write('поприветствуй бота ' );
readln(a);
writeln('Приветик, Мне нужно собрать твои данные');
writeln('И для этого, напиши своё имя');
read(Name);
writeln('Отличное имя ' ,Name, ' А теперь введи в строку сколько тебе лет!' );
read(Age);
writeln('Замечательно,' ,Name, '! Теперь я эту информацию заложу в хранилище!');
writeln('Приятно иметь с вами дело, пока!');
end.
Как ставить "минус" перед begin и прочими командами ?
+Ованнес Агаджанян там в настройках можно эту функцию включить
+Ованнес Агаджанян он сам ставится, в более ранних версиях, а сейчас нет, просто пишешь команду и все
Здравствуйте . Подскажите пожалуйста как сделать чтобы корабль двигался в обратном напровлении ?
uses graphAbc;
var x,i: integer;
begin
lockdrawing;
x:=0;
setwindowsize(640,480);
for i:=1 to 200 do
begin
x:= x+1;
ClearWindow;
setbrushcolor(clYellow);
circle(580,70,30);
setbrushcolor(clNavy);
rectangle(0,400,640,480);
line(x+100, 400, x+400, 400);
line(x+30,350, x+430,350);
line(x+100,400, x+30, 350);
line(x+400, 400, x+430, 350);
floodfill(x+100+10, 400-10, clBrown);
line(x+200, 100, x+200, 350);
line(x+45, 300, x+400, 300);
line(x+45, 300, x+200, 150);
line(x+200, 150, x+400, 300);
floodfill( x+200+10, 300-10, clLime);
floodfill(x+200-10, 300-10, clLime);
line(x+200, 100, x+235, 125);
line(x+200, 125, x+235, 125);
floodfill(x+210, 120, clRed);
floodfill(10,12, clSkyBlue);
sleep(10);
redraw;
end;
end.
У меня вопрос. Как поставить условие -- если что-либо написано?
Всё круто) Спасибо.
Лёгкая тема, я сейчас это в 9-м классе прохожу
Программка простых чисел!
var a,b,c:integer;
begin
writeln ('Ваедите до какого числа вы хотите получить простые числа!');
read(b);
for a:=1 to b do
begin
if a mod 2 = 0 then c:=c+1;
if a mod 3 = 0 then c:=c+1;
if a mod 5 = 0 then c:=c+1;
if a mod 7 = 0 then c:=c+1;
case c of
1,2,3,4:write('');
else write (a,',');
end;
c:=0;
if a mod 2 = 0 then c:=c+1;
if a mod 3 = 0 then c:=c+1;
if a mod 5 = 0 then c:=c+1;
if a mod 7 = 0 then c:=c+1;
case c of
1,2,3,4:write('');
else write (a,',');
end;
c:=0;
end;
классно объесняешь буду у тебя учиться снимай еще видео)
какой индикатор после readln нужно поставить?
Если у кого ошибка с else вот вам поправочка:
readln(h.Age);
if (h.Age>17) then writeln('Ti uze!Soversheno letniy!') else writeln('Oi! Da ti ese mal.');
write('Ladno.A skasi svoi rost: ');
P.S Я писал транслитом
Кому надо вот мой скрипт:
type
Human=class
public
Name:string;
Age:integer;
Height:integer;
end;
var
h:Human;
begin
h:=new Human;
write('Privet! Ya xochu uznat nemnogo o tebe.');
write('Kak teby zovut: ');
readln(h.Name);
write('Prekrasno, ', h.Name, ', a teper skashi, skok tebe let: ');
readln(h.Age);
if (h.Age>17) then writeln('Ti uze!Soversheno letniy!') else writeln('Oi! Da ti ese mal.');
write('Ladno.A skasi svoi rost: ');
readln(h.Height);
writeln();
writeln('Nu vot i vse .Mi sobrali vsu neobxodimuy infu:');
writeln('Teby zovut ', h.Name);
writeln('Tebe ', h.Age);
writeln('Tvoi rost: ', h.Height, ' sm');
writeln();
writeln('Sps, ', h.Name, '.S toboi bila Alena, BB!');
end.
Короче, люди, которые хотят сделать такую развертку (линию) зайдите в "Сервис - Настройки - Редактор" и поставьте галочку на разрешение сворачивания кода, и будет вам счастье. =)
Очень круто.
Спасибо за урок
Помогите пж!, я когда пишу комманду Begin, делаю программу, запускаю, а мне пишет:,, Встречено begin, а ожидалось ; ,,
Такой вопрос,как сделать чтобы как и на видео от Begin до End. проходила полоса,показывающая начало и конец ?
Спасибо) за видео
Поясните, пожалуйста. Вот есть запись типа record с некоторыми полями. Есть файл со списком этих данных: город, жители, площадь и район. Как правильно считать данные из входного файла, если входной и выходной файлы-текстовые? Вот я считываю: (f,a) - это ясно: будет строка полная. А как считывать данные в формате (f,a,b,c.. ). У меня программа жалуется, что формат неверный. Не вижу ошибок. паскаль abc.net
10:10 надо было написать: ну вот и все, мы собрали всю необходимую информацию, жди повестку.
Спасибо,очень помогло.
Зачем ты добавляешь "-ln" когда пишешь "write"? Ничего не меняется емли написать или нет ведь
прекрасно!
h:= это оператор присваивания? Просто вспомнить решил.
:= - это оператор присваивания, ты прав.
У меня со второй программой проблема, пишет " слишком мало или слишком много аргументов передающихся функции "new" " хотя всё вроде точь в точь сделал.
Ой, господи)))
А так все понятно, спасибо.
У меня 1 ошибка на слове else, пишет что "ожидался оператор", есть идеи?
Пасиб чувак, очень помог!
Thank, it is a good lesson)
Height - высота, все правильно.
Как сделать, что бы была такая линия от begin до end. И, чтобы перед begin был -!? Ответьте!
А как сделать так,чтоб все данные сохранялись в определенном месте????
Спасиибоо огромнооое!!!
А нормально то что я 4 классе делаю 3д модели, 3Д анимации, 3Д игры на BGE, игры и проги на CTF(Clickteam Fusion 2.5) и пишу на Poscal ABS (Пока не фонтан на Pascal ABS)???
Это норма! Ты просто мамин гений!!!
Begin
h:=new Human;
writeln(Как тебя зовут?');
readln(h.Name);
Пишет не верное выражение h:=new Human;
та же проблема((
А как вот эти скобочки делать?
Скачиваем последнюю версию PascalABC.NET !
Скиньте исходники. vk.com/sergeiterehov
Алексей Тарасенков В type ты мог написать не Human=class, а HumEn=class
+Школа программистов просто супер класс!! пожалуйста помоги мне создать опросник, как создать опросник помоги пожалуйста
у меня почему то ,когда я begin ввожу слево не высвечивается квадрат?
Че как жизнь? Через 5 то лет
🤣🤣🤣🤣убил
как сделать эти разделения кода, у меня всё в столбик пишется?
Не очень люблю, когда паскаль объясняют с программы "Здравствуй, мир". У нас препод по информатике заставил записывать штук 15 операторов и описание к ним, потом начал объяснять программу типа "a+b=c", где и присутствовали все эти операторы, не знаю, как сверстникам, но мне было понятно.
а что значит string и integer
Что значит: нет перегруженной подпрограммы с такими типами параметров?
как музыка в начале ролика называется???
Сколько тебелет?
После begin на какой кнопку нажать не знаю.пазор.энтр нажал.но не получается
А допустим написал программу ,как сделать чтоб она отдельная работала, а не только в паскале, допустим ,чтоб была возможность её установить и она работала
It's a nice language. But any tutorials on English ? Or English subtitles ?
begin
h:=new human;
пишет неверное выражение, что посоветуете?
var
h:Human;
begin
h:= new Human;, и всё получится:)
Нельзя вроде ставить пробел в названиях, получается 2 разных значения.
*ПОГНАЛИ ИЗУЧАТЬ КЛАССЫ НЕ ЗНАЯ ОСНОВ СИНТАКСИСА ПАСКАЛЯ!НАЙС ДА?*
Как вы сделали
что появилась табличка что использовать например Age
когда я открываю программку которую сохранил то мне пишет не понятно что.
Что надо установить на компьютер что бы открывать файлы из паскаля?
спасибо ты лучший