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.
Лучший, объясняешь все очень быстро и по делу, Я бы хотел видеть такие видео ещё, но, не заставляю тебя, надеюсь такой приятный человек как ты нашел дело по душе приятней этого, удачи тебе😊
Объясните мне я не понимаю. Всё языки (питон, паскаль и тд) это все как калькулятор?? И тогда зачем это все нужно? И ещё, на вот этих языках, и делаються сами приложения?))
Этому видео уже 8 лет, я в свое время писал в программе PascalABC.NET (это видно на видео вверху) Есть вероятность, что сейчас есть более современные IDE для языка Pascal А вообще, не тратьте на него свое время, если у вас есть альтернатива в виде изучения Python (во многих школах сейчас параллельно с Pascal учат и Python), так как это гораздо полезнее для будущего, особенно, если нравится программирование.
Этому видео уже 8 лет, я в свое время писал в программе PascalABC.NET (это видно на видео вверху) Есть вероятность, что сейчас есть более современные IDE для языка Pascal А вообще, не тратьте на него свое время, если у вас есть альтернатива в виде изучения Python (во многих школах сейчас параллельно с Pascal учат и Python), так как это гораздо полезнее для будущего, особенно, если нравится программирование.
@@pascal8836 Здравствуйте, извините но я не согласен с вами, программистам в первую очередь надо знать основы конвенций программистов, а если сразу идут на пайтон, то потом очень тяжело бывает пересаживаться на другие ЯП. Пайтон достаточно опасен в этом плане
У меня конечно была информация в тетради, по поводу очерёдности, но я всё равно хотел посмотреть физуальный инструктаж. Большое спасибо. Кстати: Спасибо за то, что рассказал про шестую строку. На нашем уроке её не правильно записали.
Не благодарите! 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 Маньяк; 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 a<4 then writeln ('Простофиля!'); if a=4 then writeln ('Молодец! Правильно! '); WriteLN ('4-2='); ReadLN (a) ; if a>2 then writeln ('Глупец!'); if a<2 then writeln ('...!'); if a=2 then writeln ('Отлично! Это решение верно! '); WriteLN ('4+4='); ReadLN (a) ; if a>8 then writeln ('Это же просто!'); if a<8 then writeln ('Порог человеческой глупости преступлен'); if a=8 then writeln ('Отлично! Правильно! '); WriteLN ('10-5='); ReadLN (a) ; if a>5 then writeln ('Сколько там ваш iq 10 ?!'); if a<5 then writeln ('Ваши знания сравнимы с знаниями камня!'); if a=5 then writeln ('Это тоже верно! '); writeln ('Я устал! '); writeln ('Теперь вы свободны! '); writeln ('Но знайте, в следующий раз я вас просто так не отпущу! '); writeln ('До свидания! '); end.