Это мое самое первое видео, не судите строго. Если понравилось, ставьте лайки и подписывайтесь, видеоуроки будут постоянно выкладываться! Спасибо за внимание!
Красавчик продолжай в том же духе. Очень информативно и подробно. Лайк однозначно!
@technic_and_programming
5 жыл бұрын
Program Маньяк; var a, b, c : integer; name : string; K:= 'Да'; begin writeln ('Введите имя: '); ReadLN (name); writeln ('Здравствуй!',' ' , name ); writeln ('Эту программу создал Шамиль Идрисов'); writeln ('Ты должен ответить на несколько вопросов!'); writeln ('В этой задании 4 вопроса!'); writeln ('Ладно, приступим! '); writeln ('Вы готовы? '); ReadLN (k); if k='Да' then writeln ('Отлично! '); if k='Нет' then writeln ('Но вы всё равно будете их решать!'); WriteLN ('2+2='); ReadLN (a) ; if a>4 then writeln ('Неудачник'); if a2 then writeln ('Глупец!'); if a8 then writeln ('Это же просто!'); if a5 then writeln ('Сколько там ваш iq 10 ?!'); if a
@lirika2278
4 жыл бұрын
не работает
@botagozbaimurat5510
3 жыл бұрын
Круто
@Тяфтель-в8с
3 жыл бұрын
А влепи-ка слово **й вместо числа и эксепшен сразу вылетит. Try-Catch где?
@2spekx
6 жыл бұрын
Спасибо,получил две 5 по информатике
@pascal8836
5 жыл бұрын
Очень рад, что смог помочь)
@минямишазавут
3 жыл бұрын
Спасибо,получил 5 двоек по информатике
@АдамБогатырёв-и1ф
2 жыл бұрын
@@минямишазавут 🤣🤣🤣🤣🤣
@RosieTheCannibalOverlordHazbin
3 жыл бұрын
То чувство, когда так же сделал в компьютере и ничего не сработало, показывает одни "неожиданные символы", да какие-то "вместо... Ожидалось..." : 🧐
@chel8818
3 жыл бұрын
Может что-то на русском написал_а?
@furrykio9409
2 жыл бұрын
У меня тож так писалось но я нашел ошибку просто по внимательнее надо
@user-vm2pu3ug3f
2 жыл бұрын
я сейчас смотрю видеоурок приложения на компьютере, и пойду делать самостоятельную по этому тутору на телефоне в другом приложении🤦♀️
@pascal8836
Жыл бұрын
Судя по описанию похоже на опечатку
@l1me_demon
Жыл бұрын
Мне хватило 2 уроков информатики в школе чтобы самому делать простейшие игры на 5кб
@dragondozer9954
9 жыл бұрын
Круто! Очень подробное видео о сложении чисел в Паскале. Хотелось бы еще увидеть такие видеоуроки.
@МеруертСабекова
3 жыл бұрын
спасибо огромное, за 3 минуты поняла, то что не могла понять целый год 🤗
@skillissuegodfist228
4 жыл бұрын
У меня конечно была информация в тетради, по поводу очерёдности, но я всё равно хотел посмотреть физуальный инструктаж. Большое спасибо. Кстати: Спасибо за то, что рассказал про шестую строку. На нашем уроке её не правильно записали.
@Voin-st7zu
Жыл бұрын
там будет правильно, просто не перенесется на другую строку сама функция(в данном случае сумма)
@АннаДомик
4 жыл бұрын
Спасибо большое за видео, суперр❤😘
@тимофейгорупич-в3т
2 жыл бұрын
Спасибо за урок очень помогли с дз.
@Luffy-ck8th
2 жыл бұрын
Спасибо за 5 по информатике!!!!
@Devilnevercryy
6 ай бұрын
Спасибо за оценку
@Verox_001
7 жыл бұрын
Класс делай еще ролики
@Магнус-б4э
5 жыл бұрын
Почему при запуске программы в названии пишет , что встречено Programm ,а ожидался раздел описаний или begin ?
@mavrody585
3 жыл бұрын
Конечно прошёл год но там пишется одна буква m👉👈
@greentea288
5 жыл бұрын
спасибо выручили
@colboy2.2beta67
2 жыл бұрын
Спасибо теперь я понял)))
@Club_zaz_belarus
Жыл бұрын
спасибо, не знаю всех функций этой проги, но это издевательство в школе над детьми
@Uioogftyvf
7 ай бұрын
Какую копку нажимать, после того как в клоце ввели 2 числа?
@Зубочист_ка
2 жыл бұрын
Пришлось перерыть пол ютуба, дабы мне попалось сие видео. Т›Т
@lolkerlolkerovich1698
5 ай бұрын
То чувство когда сделал точно так же но у тебя выводится почему то просто c
@ЯтакПолагаю
5 жыл бұрын
Коды вводить умеет каждый но а из файла.pac сделать программу не каждый....
@СергейФедоткин-у1я
7 ай бұрын
В строке 6 пишетвходная строка имела неверный формат
@jwbwbsj
Жыл бұрын
Объясните мне я не понимаю. Всё языки (питон, паскаль и тд) это все как калькулятор?? И тогда зачем это все нужно? И ещё, на вот этих языках, и делаються сами приложения?))
@ВасилийПасечник-в5к
Жыл бұрын
Как с тобой связаться
@Cakegor
11 ай бұрын
program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n = 4; type Matrix = array[1..n, 1..n] of integer; procedure readMatrix(var mat : Matrix); var i, j : integer; begin for i:= 1 to n do begin for j:=1 to n do begin readln(mat[i,j]); end; end; end; procedure showMatrix(mat : Matrix); var i, j : integer; begin for i:=1 to n do begin for j:=1 to n do begin write(mat[i, j], ' '); end; writeln(''); end; end; var matrl : Matrix; procedure transformMatrix(var mat : Matrix); var i, j : integer; begin for i := 1 to n do begin for j := 1 to n do begin if i + j = n + 1 then mat[i, j] := 0 end; end; end; begin readMatrix(matrl); showMatrix(matrl); writeln(''); transformMatrix(matrl); showMatrix(matrl); readln; end.
@МАГИЯРЕТРО
4 жыл бұрын
А как же Hello World?
@pascal8836
Жыл бұрын
Решил, что это слишком просто, ни переменные не затрагиваются, ни ввод/вывод, ни математические операции
@BARON.MAKSIM
2 жыл бұрын
Здравствуйте, а можно сделать так, чтобы я мог ввести числа сразу дробные и целые
@BARON.MAKSIM
2 жыл бұрын
Имею ввиду, присвоить через Var a,b,c сразу real и integer
@pascal8836
Жыл бұрын
Добрый день, думаю, что это уже не актуально, но да, можно: var a, b: integer; c: real;
@BARON.MAKSIM
Жыл бұрын
@@pascal8836 я уже превзошел все знания паскаля , поэтому это не актуально . И это нельзя сделать на прямую, спасибо , вы не так поняли мой вопрос .
@Rnat1
Жыл бұрын
@@BARON.MAKSIM , а ты крутой перец
@yyyegorkaa
3 жыл бұрын
в какой праграмме это надо писать?
@pwoduus
3 жыл бұрын
Очевидно в Паскале;)
@slavaplakouchiy8362
3 жыл бұрын
Algo Pascal
@pascal8836
Жыл бұрын
Этому видео уже 8 лет, я в свое время писал в программе PascalABC.NET (это видно на видео вверху) Есть вероятность, что сейчас есть более современные IDE для языка Pascal А вообще, не тратьте на него свое время, если у вас есть альтернатива в виде изучения Python (во многих школах сейчас параллельно с Pascal учат и Python), так как это гораздо полезнее для будущего, особенно, если нравится программирование.
@juzyOG
Жыл бұрын
@@pascal8836 Здравствуйте, извините но я не согласен с вами, программистам в первую очередь надо знать основы конвенций программистов, а если сразу идут на пайтон, то потом очень тяжело бывает пересаживаться на другие ЯП. Пайтон достаточно опасен в этом плане
@Surynovych
4 жыл бұрын
Не благодарите! var a,b,n: Real; operation:String; begin Writeln('a='); readln (a); Writeln('b='); readln(b); Writeln ('operation='); readln (operation); If operation='+' then writeln (a+b) else If operation='-' then writeln (a-b) else if operation='*' then writeln (a*b) else if operation='/' then writeln (a/b) else if operation='**' then writeln(sqr(a+b)); //Для расчета степеней взят самый простой способ - прописка кода через Функцию Power. if operation='^' then writeln ('n='); Readln (n); If operation='^' then writeln (Power(a+b,n)); end.
@juzyOG
Жыл бұрын
не буду благодарить, это за секунду делается
@АлександрКрайник-ф2ы
2 жыл бұрын
Привет👋
@pascal8836
Жыл бұрын
Привет)
@ЯрославРезинкин-ц2ю
2 жыл бұрын
Как программа называется
@pascal8836
Жыл бұрын
Этому видео уже 8 лет, я в свое время писал в программе PascalABC.NET (это видно на видео вверху) Есть вероятность, что сейчас есть более современные IDE для языка Pascal А вообще, не тратьте на него свое время, если у вас есть альтернатива в виде изучения Python (во многих школах сейчас параллельно с Pascal учат и Python), так как это гораздо полезнее для будущего, особенно, если нравится программирование.
@ЗарифАшуров-э2е
5 жыл бұрын
У
@GusikAl
2 жыл бұрын
Не получилось
@pascal8836
Жыл бұрын
Очень жаль, скорее всего где-то опечатались(
@dirkmanking
Жыл бұрын
писать
@vanyachit3260
2 жыл бұрын
Ошибка: не апострОф а апОстраф
@pascal8836
Жыл бұрын
У интернета другое мнение на это счет:(
@vanyachit3260
Жыл бұрын
@@pascal8836 понятно, бывает🤷
@user-vm2pu3ug3f
2 жыл бұрын
я сейчас смотрю видеоурок приложения на компьютере, и пойду делать самостоятельную по этому тутору на телефоне в другом приложении🤦♀️
@BONJUR476
2 жыл бұрын
Неработает
@pascal8836
Жыл бұрын
Скорее всего где-то опечатались, так как почти у всех все работает хорошо
Пікірлер: 65