Урок 1. Первая программа на Pascal (Сложение чисел) 

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

Красавчик продолжай в том же духе. Очень информативно и подробно. Лайк однозначно!

Круто! Очень подробное видео о сложении чисел в Паскале. Хотелось бы еще увидеть такие видеоуроки.

То чувство, когда так же сделал в компьютере и ничего не сработало, показывает одни "неожиданные символы", да какие-то "вместо... Ожидалось..." : 🧐

Спасибо,получил две 5 по информатике

Спасибо большое за видео, суперр❤😘

спасибо огромное, за 3 минуты поняла, то что не могла понять целый год 🤗

Спасибо за 5 по информатике!!!!

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

У меня конечно была информация в тетради, по поводу очерёдности, но я всё равно хотел посмотреть физуальный инструктаж. Большое спасибо. Кстати: Спасибо за то, что рассказал про шестую строку. На нашем уроке её не правильно записали.

спасибо выручили

Класс делай еще ролики

Спасибо теперь я понял)))

Спасибо за оценку

Почему при запуске программы в названии пишет , что встречено Programm ,а ожидался раздел описаний или begin ?

Пришлось перерыть пол ютуба, дабы мне попалось сие видео. Т›Т

спасибо, не знаю всех функций этой проги, но это издевательство в школе над детьми

Какую копку нажимать, после того как в клоце ввели 2 числа?

Коды вводить умеет каждый но а из файла.pac сделать программу не каждый....

То чувство когда сделал точно так же но у тебя выводится почему то просто c

В строке 6 пишетвходная строка имела неверный формат

Привет👋

Как с тобой связаться

Объясните мне я не понимаю. Всё языки (питон, паскаль и тд) это все как калькулятор?? И тогда зачем это все нужно? И ещё, на вот этих языках, и делаються сами приложения?))

Здравствуйте, а можно сделать так, чтобы я мог ввести числа сразу дробные и целые

А как же Hello World?

Как программа называется

Не благодарите! 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.

в какой праграмме это надо писать?

У

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.

писать

Ошибка: не апострОф а апОстраф

Не получилось

Неработает

я сейчас смотрю видеоурок приложения на компьютере, и пойду делать самостоятельную по этому тутору на телефоне в другом приложении🤦‍♀️