Паскаль с нуля [ч5]. Математические функции. Простой калькулятор. От блок-схемы к программе

Сегодня мы изучим наиболее частые математические функции языка Паскаль, такие как sqr(), sqrt(), div(), mod(), abs() и напишем простейший калькулятор. Кроме того, еще одним шагом в освоении курса по программированию "Паскаль с нуля", станет разбор домашнего задания по информатике, в частности, в этот раз мы напишем программу по блок-схеме, показанной в предыдущем уроке, которая будет решать уравнения и выводить результат на экран. Программа будет использовать вложенную конструкцию if-else языка Pascal.
Для связи со мной вы можете оставить комментарий под любой из видеозаписей, либо написать мне личное сообщение в социальных сетях:
Вконтакте: edwardmetsker
Google+: google.com/+ЭдуардМецкер

[@user-rv9iu5dk6d]

21 год, а все ещё эта информация полезна) Спасибо ☺️

[@user-my2pi9ji2i]

Эдуард, огромное спасибо за ваши уроки! Начал понимать Паскаль. Продолжай те в том же духе!

[@user-ub1iy4wn2s]

обожаю ваши видео урока. Долго искала такой канал все так понятно легко. У меня одна просьба пожалуйста в конце каждого видео урока давайте задание по теме о которотой был урок. Что бы можно было себя проверить. А в начале следуйшего урока показывайте просто картинкуу на которой будет показано какой код должен получиться. Ну и конечно делайте поюолбше таких видео уроков.

[@German707707]

Спасибо за идею! Думаю будет полезно ее применить)

[@xeshaq8513]

+Анжелика Малинина Плюсую, тоже была такая идея)

[@MrProgrammist2015]

+Эдуард Мецкер Вопрос Мучает откуда ты все эти знаешь или тебя кто то изучил??

[@German707707]

+Mr. Programmist-2015 В школе начал изучать, а потом книжки, сам ковырял что-то пробовал) На олимпиаду пару раз съездил успешно, так и понял что нужно в этом направлении развиваться и дальше)

[@init1514]

+Эдуард Мецкер Когда новые видео ?

[@beg1684]

Program commants; Const A = ('классно'); Begin Writeln(A, ' ', ты топ, '!' '); End.

[@user-oj4nh1wg2r]

Эдуард, мне очень понравились все ваши видео. Ютуберов как вы очень мало. Благодаря вам я научился немного программировать в Pascal'е. Вам от меня огромная благодарность.

[@rage5694]

Я с 5 класса не мог сделать не одной программы а сейчас хоть калькулятор могу,спасибо вам от души,Эдуард.

[@mkrv3577]

Сам Я учусь на машиниста, но глядя Ваши видеоуроки Я усомнился в своём выборе :) Так интересно изучать Pascal! А дальше, например php, HTML, Python, C++ и так далее, ещё интереснее!

[@user-ip8uh3do8o]

program thx; begin writeln('Спасибо'); end.

[@Shtokalo]

Можно просто write

[@dmaxxg7253]

Блин у тебя ошибки нет

[@lipa484]

@@Shtokalo write только если мы пишем 1 букву или цифру

[@steelswing]

public static void main(String[] args){ System.out.println("И тебе:)"); }

[@ron8307]

@@lipa484, нет, через write можно писать хоть сколько букв и цифр, но в отличии от writeln если написать несколько write то все что ты написал в write будет в одну строчку, в отличии от writeln

[@nonamewithoutdaw]

Тут до сих пор лайки ставят?

[@iamtop228]

Да

[@_doshak]

да

[@user-zp9fy3qk7z]

Да

[@user-er3xn2lp2f]

Да

[@nonamewithoutdaw]

@@user-er3xn2lp2f круто

[@iacovburdianov]

Экстра просто исключительное! Большое спасибо !!

[@user-bx9tr9bm1e]

здравствуйте эдуард!спасибо большое за уроки просмотрел три урока подряд всё понятно хотя мне уже немало лет.Вы делаете очень нужное дело, удачи Вам и терпения.

[@Lerok_Positive]

Вы отлично объясняете! Всё доступно и понятно! 😍

[@hey_polly]

Ну просто идеальные видео с идеальным объяснением! Просто отлично! :))

[@aynurataeva5939]

Spasibo bolshoe, vsyo ponyatno i interesno, no mojno poprosit vas videa bez muzyki😊 a tak vsyo super, great

[@user-wn9iu8mv6i]

Просто огромное спасибо!!!!!!!! это настолько понятно, интересно и круто, что мне понравилось очень сильно. До этого я в информатике была так скажем не новичком, но понимала мало, а сейчас я хочу узнавать всё больше и больше. СПАСИБО ОГРОМНОЕ!

[@AssoziaRepetitorovRT]

Очень здоровско объясняете, благодарю за уроки, небольшая поправка, здесь мы не решаем уравнение, а выводим значения составной функции.

[@original9125]

Просто лучший. Я в пятом классе, решил учить Паскаль. Все очень легко даётся, очень хорошо рассказываешь)

[@user-kp9gz5rq5f]

Спасибо за sqrt! очень помог в программе по решению дз по алгебре: формулы сокращенного умножения)))

[@pug8544]

Спасибо огромное за ваши видео! Все очень понятно и легко! Благодаря вам стала понимать что к чему)

[@aidarbekkuzenbaev8953]

спасибо автору за такие видео уроки! Продолжайте очень интересно!

[@5leavessoftware211]

Огромнешое спасибо!Все понятно и чётко!

[@user-pk2xz6bh4q]

Здравствуйте Эдуард, ваши уроки мне очень помогли изучать паскаль, спасибо вам огромнее! Я хочу дальше изучать урок

[@user-ol3yt5xt9j]

Спасибо за информацию, за короткое время быстро научился печатать коды)

[@razetoken9767]

Ты топовый, на уроке не понял что такое див мод а тут сразу понял спасибо тебе

[@alikhanalikhanov8154]

Спасибо, Эдуард. Очень помог!!))

[@artempogorelov2819]

Большое спасибо очень понятно продолжайте в том же духе

[@boryabelovol2587]

отличные видеоуроки, с меня лайк и подписка

[@miffan7]

чувак твои видео просто круто, я даже начал понимать математику. СПАСИБо

[@kofthesofk]

интересно как это связано?...

[@rudomir-__-2929]

Красавец!

[@verakokh3047]

За день благодаря тебе научился спасибо

[@user-jg4kj4ty1n]

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

[@MyBlaDeGames]

Спасибо за помощь,учусь)

[@studio744]

program coment; begin; writeln('Круто снимаешь'); end.

[@user-cd2py1zo7e]

Здравствуйте, Эдуард, очень нравятся Ваши уроки. Ещё очень нравится фоновая музыка.Не могли бы Вы подсказать её название. Заранее благодарен)

[@user-xi8zm5df3s]

Спасибо вам огромное!

[@danasm8947]

Привет смотрю тебя через 4 года но все равно твои уроки очень понятные и поучительные

[@vadym2960]

Єдуард, видео просто супер! Но не могли би ви добавить к плейлисту видео про пунктуацию Pascal?

[@user-ry2pp9rw5c]

Класс!

[@deadrush2663]

в школе ничего не понял1 тут всё сразу стало ясно! огромное спасибо! выручил.

[@user-bs6vg9pf7k]

начал понимать спасибо

[@user-we2eh9qg6l]

спасибо за ролик

[@user-eb6dt3os3h]

спасибо

[@user-jr2uc3py3q]

Огромное спасибо, всё очень доступно и понятно... вообщем молодец поцык! лайк, респект, комментарий и подписка :D

[@blackjack2685]

Цела численные 5:50 ))) Молодец всё нравится, доходчиво.

[@stasyan_casper7831]

целочисленные, что не так?

[@neitheroso220]

удачи тебе

[@valerieguch4491]

спасииииибо

[@user-hb6bh7yr3l]

Класс

[@user-st9tl9kj3f]

Тебе спасибо

[@grafmorkovkin5620]

Очень полезное видео. Просто отлично.

[@bahruz.]

👍

[@la1ne_82]

Здравствуйте можно ли в а := real делить ( умножать, складывать и вычитать) целые числа или это только для не целых чисел?

[@user-ef1hp8nm7s]

Сделайте ,пажалуйста, после уроков что то вроде домашки, а в следуещем выпуске покажите ее решение. это поможет лучше закрепить материал)

[@user-ef1hp8nm7s]

+Максим Шатских простите не заметил

[@user-fq5lf8lw8d]

Если integer то деленее лучше mod и div заменить)) Ааа, смотрю видео дальше)))

[@user-gs3hv7ii6m]

Кайф бомба

[@stazaltman6541]

Огромное спасибо! Все очень легко оказывается.

[@user-mm1ys2zc8p]

Привет, ты можешь сделать видео, если не сложно. Про диалог , например если у тебя спрашивают как дела?, и ты отвечаешь 'хорошо', то тебе отвечают ' здорово' , если ты пишешь 'плохо', то тебе отвечают 'почему?'

[@user-lq8cp7oo4i]

Program Program1; Begin a := Спасибо за уроки. Ты лучше чем училка. writeln (a); end.

[@fuiradano8667]

Забыл переменную объявить

[@zhavokhirdavranov3754]

@@fuiradano8667 еще и точку с запятой на 3 строке

[@paint-art5363]

Пожалуйста сделайте шрифт написания программ чуть-чуть побольше

[@technic_and_programming]

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

[@user-bq8hw4md5r]

Ну такое ,Ну прикольно

[@technic_and_programming]

*Не суди строго, я начинающий программист!*

[@buturli9830]

Ох,мне в этом году информатику ОГЭ сдавать.Спасибо вам большое)

[@maximplyashchenko5610]

На паскале? А там можно выбрать в какой среде программировать будешь или это преподы решают?

[@GrandStudio777]

Там вроде 3 среды. Basic,Кумир,Pasal. Выбирать можно

[@maximplyashchenko5610]

C++ нету...( А почему нету-то?

[@fuiradano8667]

У кого-то в школе программки на pascal'e пишут, а у нас таблицы в excel'e :''''')

[@saladinurtaev2284]

И не говори xD

[@ssfnn]

программирование вроде же обязательно с 9 класса, не?

[@saladinurtaev2284]

@@ssfnn Пока не проходим, я в 9-ом

[@ssfnn]

@@saladinurtaev2284 ну хз, я тоже в 9, мы начали в этом году

[@nolikflare380]

@@ssfnn мы учимся писать в ворде

[@pa1ochka440]

var x,y:integer; begin readln(x); if x0 then begin y:=2*x; end; writeln(y) end. Я вот так сделал,тоже работает все

[@user-ys4ce3kb9h]

program easy; begin writeln('thanks'); end.

[@user-xi2ds8mm1p]

А можно ли в составить какую нибудь серьёзную программу сделать, которая например скачает музыку из интернета или заменит фотошоп , а не школьные задачки составлять???

[@kxt.m4543]

Спасибо из 2020

[@user-cf6mr6pi3j]

как сделать блокнот в паскале. Подскажите пожалуйста.

[@igorantonof705]

Квадрат числа можно записать алт кодом вот так: a²

[@advenitille9461]

На счёт калькулятора можно легче сделать var a,b,c:real; ilya:char; begin writeln('Введите два числа'); readln(a,b); writeln('Введите знак операции'); readln(ilya); case ilya of '+':c:=a+b; '-':c:=a-b; '*':c:=a*b; '/':c:=a/b; end; writeln('Результат',a,ilya,b,'=',c); end.

[@user-wd9be2fw5n]

Здравствуйте! У меня такая проблема: когда я работаю с циклом for выдаёт такое " Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла " что это значит? Помогите пожалуйста.

[@xdicegang]

Чем отличается write от writeln?

[@fiction906]

Последняя задача у меня вышла вот так begin x := -1; if x < 0 then begin x := x*x; end else begin x := x*2; end; if x=0 then begin x := x-1; end; writeln('x = ', x);

[@romansobolev1589]

'корень из a' можно записать как '√a'. Для этого нужно зажать alt и добавить 251 на цифровой клавиатуре.

[@German707707]

Roman Sobolev можно, но что тебе на это скажет Паскаль?

[@romansobolev1589]

@@German707707 я имел в виду не саму функцию так писать, а название, то что в кавычках. Так быстрее просто получается.

[@German707707]

Roman Sobolev да, невнимательно прочитал комментарий) в таком случае отлично)

[@user-jf2qe9mi1e]

@@German707707 Почему не выпускаете больше видео?

[@VolodiaE]

а ещё значёк корня можно написать : зажать alt+251 отпустить alt и получится √

[@suraykhalilova]

Моё решение задачи program calculator; uses crt; var a: string; b, c: integer; begin writeln('Welcome to the calacularor!'); writeln('Pick one of theese: addition, subtracrion, multiplication, division'); readln(a); if a = 'addition' then begin write('input a: '); readln(b); write('input b: '); readln(c); writeln(b, ' + ', c, '= ', b + c); end else if a = 'subtraction' then begin write('input a: '); readln(b); write('input b: '); readln(c); writeln(b, ' - ', c, '= ', b - c); end else if a = 'multiplicaton' then begin write('input a: '); readln(b); write('input b: '); readln(c); writeln(b, ' * ', c, '= ', b * c); end else if a = 'division' then begin write('input a: '); readln(b); write('input b: '); readln(c); writeln(b, ' / ', c, '= ', b / c); end; end. program calculator; uses crt; var a: string; b, c: integer; begin writeln('Welcome to the calacularor!'); writeln('Pick one of theese: addition, subtracrion, multiplication, division'); readln(a); if a = 'addition' then begin write('input a: '); readln(b); write('input b: '); readln(c); writeln(b, ' + ', c, '= ', b + c); end else if a = 'subtraction' then begin write('input a: '); readln(b); write('input b: '); readln(c); writeln(b, ' - ', c, '= ', b - c); end else if a = 'multiplicaton' then begin write('input a: '); readln(b); write('input b: '); readln(c); writeln(b, ' * ', c, '= ', b * c); end else if a = 'division' then begin write('input a: '); readln(b); write('input b: '); readln(c); writeln(b, ' / ', c, '= ', b / c); end; end.

[@thedmitryguy]

Привет! Где ты такую блок-схему сделал? Я про фотку ее, которая справа.

[@rodkok0220]

Скинул ему подписчик дз по инфе , чтобы он его решил. Вот он и решил)))

[@victorslonovschi4198]

как он записал символ степени? какая комбинация?

[@user-hb6bh7yr3l]

Эдуард, если я хочу стать программистом(пока я учусь в школе), какие языки я должен знать?

[@belarus3131]

Человечек ты обязан знать языки: HTML, CSS(Эти для создания веб страниц), C#,C++(C++ объектное ориентирование). Сразу же говорю язык C ты никогда не выучишь, ибо сам его создатель не знал его полностью :) , но еслт будешь разбираться в коде C тогда тебя захотят много кампаний :). Если заинтересовал могу хорошие видео по C скинуть.

[@user-hi4uw5ik1r]

мне не можешь скинуть пж

[@hierayku873]

Смотря в какую ветвь программирования. Сейчас развивается геймдев (C#, C++) и веб (HTML, CSS, PHP). C# для юнити (в основном мобильные, несложные игры), c++ (для сложных в плане геймплея и графики игр) - Unreal Engine. Еще есть Cocos2D, CryEngine, Frostbite и т.д. Лично я учу C# для Unity

[@user-ic3id2fj7e]

Едуард,я написав схожу програму і вона не компілюється.В кінці там,де виводиться кінцеве число вибиває помилку.Підкажи чому?

[@doom1669]

Всем привет. А почему переменной типа integer "a" в ответе присваивается число с плавающей точкой? Просто не понял.

[@doom1669]

а это не integer a real понял.

[@MrPool-nn6ne]

Подскажите пожалуйста я только что написал программу и не пишет числа(десятичные дроби), как у вас так получилось вы же ведь не меняли значение integer?

[@trungbinh4805]

Он же в конце исправил на real

[@DodojonKorring]

Привет.Я создал чуть по другому, работал нормально. Можете писать настоящего калькулятора пожалуйста это для меня очень важно.Вот мои изменения по этой теме. program calc ; var a, b: real; begin writeln('Введите первую цифру '); readln(a); writeln('Введите вторую цифру'); readln(b); writeln(a,'+',b,'=',a+b); writeln(a,'-',b,'=',a-b); writeln(a,'x',b,'=',a*b); writeln(a,':',b,'=',a/b); writeln(a,'^2(то есть квадрат)=', a*a,' ' ,b,'^2(то есть квадрат=)', b*b); writeln(a,'^3(то есть куб)=', a*a*a, ' ' ,b,'^3(то есть квадрат)=', b*b*b); writeln('корень из',a,'=',sqrt(a),' ', 'корень из',b,'=',sqrt(b)); end.

[@Iluxatv]

Эдуард, скажите пожалуйста, чем отличаются readln от read

[@user-re9jh1ij3f]

+IlyaSkill readline отличается от read тем, что команда line переводит слово просто на новую строку .

[@user-re9jh1ij3f]

Соглашаюсь:)

[@luxuryemo9810]

как калькулятор написанный напаскале представить в виде проги

[@user-ze5nw4ks5t]

Почему забросили канал?

[@loricon1970]

На самом деле лучшие операторы для математики в паскали это int,sqr,sqrt,mod,div

[@juteexbtcbp3600]

Program Calc; var a,b: real; a1,b1:integer; answer1: byte; answer2: byte; answer3: byte; begin writeln('Введите первое значение: '); read(a); writeln('Введите второе значение: '); read(b); writeln(a,' + ', b,' = ', a+b); writeln(a,' - ', b,' = ', a-b); writeln(a,' * ', b,' = ', a*b); writeln(a,' / ', b,' = ', a/b); write('Хотите вычислить целое и остаток от деления одного числа на другое? (числа укажите) (Пишите 1 или 0): '); readln(answer3); if (answer3=1) then begin write('Введите 1-е число: '); readln(a1); write('Введите 2-е число: '); readln(b1); writeln('Целое от деления ', a1,' на ', b1, ' = ', a1 div b1); writeln('Остаток от деления ', a1,' на ', b1, ' = ', a1 mod b1); end else begin writeln(''); end; write('Хотите перевести ' , a, ' и ', b ,' в 2-ю степень? (Пишите 1 или 0): '); readln(answer1); if (answer1=1) then begin writeln(a,' в квадрате = ', sqr(a)); writeln(b,' в квадрате = ', sqr(b)); end else begin writeln(''); end; write('Хотите вычислить корень из ', a,' и ', b ,'? (Пишите 1 или 0)'); readln(answer2); if (answer2=1) then begin writeln('Корень из ', a,' = ', sqrt(a)); writeln('Корень из ', b,' = ', sqrt(b)); end else begin writeln(''); end; end.

[@user-ks3uf5dc1v]

Очень хорошие видеоуроки)) Но не могли бы вы пожалуйста или вообще убрать музыку на фоне, или сделать ее еще тише? Просто плохо слышно названия на английском(не могу разобрать) А так видеоуроки просто отличные)

[@user-ir1gt8nv3b]

"THEN" expected but ":=" found что это значит?

[@user-lx8ig4lq1r]

Помогите найти ошибку, пожалуйста program gara; var a,b,c,d,r,t,y,u,i,o,p,s :char; begin writeln('Привет, я канкулятор! Напиши число! 1 - сумма, 2 - вычитание, 3 - деление, 4 - умножение'); read(a); case a of '1' :writeln('Первое слогаемое?'); read(b): wreteln('Второе слогаемое?'); read(c): writeln('Значение суммы', b + c); else '2' .writeln('Первое слогаемое?'); read(d); wreteln('Второе слогаемое?'); read(r); writeln('Значение вычитания', d - r); case a of '3' :writeln('Первое слогаемое?'); read(t): wreteln('Второе слогаемое?'); read(y): writeln('Значения умножения', t * y); else '4'.writeln('Первое слогаемое?'); read(u); wreteln('Второе слогаемое?'); read(i); writeln('Значение деления', u/i); end; end; end.

[@nurdauletkuandykov8610]

почему ты выбрал у=х-1 а у=2*х в какой ситуаций будет использовано не могу понять это

[@kokosios1985]

y=2*x будет выполнятся, если ложно:x=0 и x

[@discord2643]

Вот что у меня получилось по этой задаче: Program myFirstProgram; var x: real; begin read(x); if x

[@user-ob9km5xu9z]

какой-то короткий код.

[@user-hi4uw5ik1r]

почему для ввода цифр используется оператор read , а не readln

[@user-ob9km5xu9z]

Read оставляет курсор после чтения значения на той - же строке, а Readln переводит курсор на другую строку и все дальнейшие действия будут производиться с новой строки...

[@Camaeel1]

Если вы прочитаете а как такой калькулятор? program n; const H= 'Здравствуйте'; p= 'Введите 2 числа'; j= 'Сумма'; l= 'Разность'; k= 'Произведение'; u= 'Частное'; var a,b,c,d,f,g:real; begin writeln (H); writeln (p); writeln (a,b); read (a,b); c:=a+b; d:=a-b; f:=a*b; g:=a/b; writeln (j); writeln (c); writeln (l); writeln (d); writeln (k); writeln (f); writeln (u); writeln (g); end.

[@user-yr7zx9py9f]

Что делать если у меня выбивает Program1.pas(17) : Нельзя преобразовать тип real к integer В программе Program задание2; var a,b,x:real; label 1,2; begin writeln('Введите a'); read(a); writeln('Введите b'); read(b); writeln('Введите x'); if x0 then goto 1 else if x=0 then goto 2; 1:writeln('(a-b)/x=',(a-b)/x); 2:writeln('Решения нет') end.

[@st0pgallller948]

где все перемные создай x: integer; и удали x из перменой real

[@snapcross]

Скажите, пожалуйста, как на языке Паскаль вписать в программу следующие функции: ln, x^n, x^1/3?

[@sibaslav2181]

Ну первое как логарифм по основанию 2,7, второе через цикл - умножать x на x столько раз, сколько n, третье вот хз, ну наверное как-то можно корень третий степени извлечь)

[@farruhkoshchanow6237]

Табулирование фу н к ц и й СоставитьпрограммудлявычислениязначенийфункцииF(x) наотрезке[а,Ь]сшагом/г .Результатпредставитьввидетаблицы, первыйстолбецкоторой-значенияаргумента,второй-соот ветствующиезначенияфункции. F(x)=Vxcos2 x . Помогите пожалуйста как писать в паскале ? заранее спасибо

[@user-zs1uj1nr4k]

27 : 5= 5.4 а в паскаль написано что 5 - Целое от деление a на d. 2 - Остаток от деления a на b.

[@adams9316]

27/5= 5 цело число и остаток 2 т.е. 27-25=2, но не десятых

[@beautiful5139]

Это изи. Куда сложнее для меня примеры огромные которые по действиям. Там и ln sin cos tan. Сегодня делал но не получил верное решение.

[@user-tz3pb5pv6r]

Эдик у тебя в описании написано что обучение sqr() sqrt() div() mod() и ad() а что такое ads я так и не понял может я слепой и глухой но вроде как ты не обьяснял про ads()

[@asano3766]

вместо ads() нужно abs(). Он ошибся. abs() вычисляет модуль числа

[@xxxnho3emeu259]

у меня не распознаёт команду sgr почему?

[@egor_kozlov_neoclassic]

Потому что команда не sgr a sqr