Эдуард, ваши видео - качественные ролики с хорошими обьяснениями . Спасибо вам!

Я в полном восторге от ваших уроков. Всё просто, понятно, не напрягают слова-паразиты, типа э-э-э, у-у-у и т.д. Оптимально по времени, не успевает надоесть. Урок заканчивается, а хочется продолжения. Поэтому дальше каждый сам определяет в состоянии он усвоить следующий урок или сделать паузу.

Дошел до 9-го урока, супер!!!

Кстати можно писать диапозоны через запятую. Например, 1..5,8..11 Тоесть числа с 1 по 5 и с 8 по 11 будут выводится как напимер будний день)

Спасибо огромное! Как всегда интересно, познавательно и понятно!

Отличные уроки, хорошо объясняешь, удачи) За уроки спасибо

Благодарю за отличные видеоуроки👍👍

Спасибо. В школе с первого раза не разобрался. А по вашему видеоуроку- все ОК.

Program GameXXX; const G1 = 'Вы победили!'; G2 = 'Вы проиграли...'; N = 'Ничья.'; var a1: integer; a2: integer; b1: integer; b2: integer; x1,x2: integer; begin a1 := Random(6)+1; a2 := Random(6)+1; b1 := Random(6)+1; b2 := Random(6)+1; writeln('Очки, выпавшие на ваших кубиках: ', a1, ', ', a2, '.'); writeln('Очки, выпавшие на кубиках противника: ', b1,', ', b2, '.'); x1 := a1+a2; x2 := b1+b2; writeln('Сумма ваших очков: ', x1, '.'); writeln('Сумма очков противника: ', x2, '.'); if x1=x2 then writeln(N) else if x1>x2 then writeln(G1) else writeln(G2); end.

Все очень понятно, спасибо)

Спасибо. Счастья, здоровья, успехов.

Спасибо за урок!

Очень помогают видеоролики!

Спасибо вам большое !!!

program Январь2017; var day: integer; begin writeln('Введите день месяца (1-31):' ); readln(day); case day of 1: writeln('Воскресенье'); 2: writeln('Понедельник'); 3: writeln('Вторник'); 4: writeln('Среда'); 5: writeln('Четверг'); 6: writeln('Пятница'); 7: writeln('Суббота'); 8: writeln('Воскресенье'); 9: writeln('Понедельник'); 10: writeln('Вторник'); 11: writeln('Среда'); 12: writeln('Четверг'); 13: writeln('Пятница'); 14: writeln('Суббота'); 15: writeln('Воскресенье'); 16: writeln('Понедельник'); 17: writeln('Вторник'); 18: writeln('Среда'); 19: writeln('Четверг'); 20: writeln('Пятница'); 21: writeln('Суббота'); 22: writeln('Воскресенье'); 23: writeln('Понедельник'); 24: writeln('Вторник'); 25: writeln('Среда'); 26: writeln('Четверг'); 27: writeln('Пятница'); 28: writeln('Суббота'); 29: writeln('Воскресенье'); 30: writeln('Понедельник'); 31: writeln('Вторник') else writeln('Неправильно введён день месяца (1-31)'); end; end.

Крутой видос!

Продолжай снимать , помогает

Спасибо за видео, Эдуард, изучаю питон, уже далеко вперед темы прошел, сейчас на рекурсии, и вот мне пришлось столкнуться с Pascal, как же это больно))) Особенно отсутствие elif бьет по сердцу😁, а от лесенки в глазах рябит🤣 , хоть case of есть. Спасибо Вам за видео)

огромное спасибо

Как всегда топ

Классно!

Большое спосибо

Ты красавец!

Спасибо 😁

ты супер !!

program ghj; const A: array[1..7] of string = ('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье'); var day: integer; begin write('Введите день недели: '); readln(day); write(A[day]); end. Так по-моему лучше

здорово

все понятно

Я посоветовал Вас подруге, и она написала комментарий, где сказала, что я посоветовал Вас ей, после чего прислала мне сообщение и скрин с криками мол "Он лайкнул!", мне вот интересно, почему вы не выпускаете новые видео, к примеру, по языку пайтон: я бы смотрел с удовольствием. Извиняюсь, если Вы, конечно, говорили, почему не снимаете больше видео в последующих уроках. Я, кстати, загорелся сделать программу, которая будет на введенное число и месяц будет давать день недели - попробовать стоит( но я ещё новичок, это, скорее, просто эксперимент). Спасибо за уроки

Program Pascal_9; var day: integer; begin write('Введите номер дня недели (1-7): '); readln(day); case day of 1: begin write('Понедельник. '); writeln('День ху... кхм. тяжёлый.'); end; 2: writeln('Вторник'); 3: writeln('Среда'); 4: writeln('Четверг'); 5: begin write('Пятница. '); writeln('День Ивана Бухалова.'); end; 6: writeln('Суббота'); 7: begin write('Воскресение. '); writeln('"Тупа отдыхаем, самогон4ик попиваем".'); end else writeln('Неверно введен номер дня недели'); end; case day of 1..5: writeln('Будни.'); 6..7: writeln('Выходной.'); // [простите те, у кого суббота - не выходной ;-;] end; end.

Написал простенький калькулятор по моим полученным знаниям, надеюсь в будущем смогу его улучшить. program calc; var a,b : real; i: integer; begin writeln ('Введите первое число:'); readln (a); writeln ('Введите второе число:'); readln (b); writeln ('Введите действие'); writeln ('1:прибавить'); writeln ('2:вычесть'); writeln ('3:умножить'); writeln ('4:разделить'); readln (i); case i of 1: writeln ('Сумма чисел = ',a+b); 2: writeln ('Разность чисел = ',a-b); 3: writeln ('Произведение чисел = ',a*b); 4: writeln ('Частное чисел = ',a/b); end; end.

Че! Ты мега-крутыш...

program PPH; var day: integer; begin writeln('Введите номер дня недели (1-7): '); readln(day); if day = 1 then writeln('Понедельник.') else if day = 2 then writeln('Вторник.') else if day = 3 then writeln('Среда.') else if day = 4 then writeln('Четверг.') else if day = 5 then writeln('Пятница.') else if day = 6 then writeln('Суббота.') else if day = 7 then writeln('Воскресение.') else writeln('Неверно введен номер дня недели!'); writeln('Введите номер дня недели (1-7): '); readln(day); case day of 1..5: writeln('Будний день'); 6..7: writeln('Выходной'); else writeln('Неверно введен номер дня недели!'); end; end.

Программу с днями недели можно написать легче: program proverka; var w: array [1..7] of string; n: integer; begin write('Введите номер дня недели: '); readln (n); if (n>=1) and (n

var i: integer; begin writeln ('введите номер дня недели'); readln (i); if i=1 then writeln('понедельник'); if i=2 then writeln ('вторник'); if i=3 then writeln ('среда'); if i=4 then writeln ('четверг'); if i=5 then writeln ('пятница'); if i=6 then writeln ('суббота (выходной)'); if i=7 then writeln ('воскресенье (выходной)'); end.

program proshka; uses crt; var q:integer; const A:array [1..7] of string = ('Понедiлок','Вiвторок','Середа','Четвер','П`ятниця','Субота','Недiля'); begin textbackground(0); clrscr; textcolor(lightgreen); gotoxy(23,1); write('Введiть номер дня тижня : '); readln(q); if (q7) then begin clrscr; writeln('Помилка введення даних!'); end else write(A[q]); case q of 1..5: begin textcolor(14); writeln(' - робочий день'); end; 6,7: begin textcolor(14); writeln(' - вихiдний день'); end; end; readln; end.

program dfsj; var q: integer; begin write('Введите число от 1 до 7: '); readln (q); if q =1 then writeln ('Понедельник'); if q =2 then writeln ('Вторник'); if q =3 then writeln ('Среда'); if q =4 then writeln ('Четверг'); if q =5 then writeln ('Пятница'); if q =6 then writeln ('Суббота '); if q =7 then writeln ('Воскресенье'); end.

Я патписався и лайк eбнyл

ДЛЯ ТЕХ, КТО ХОЧЕТ ДОМАШНИЕ ЗАДАНИЯ: В программе об этом позаботились. Там, где мы нажимаем на кнопку запуска программы, правее от неё есть следующие 3 кнопки - иконки у них чёрно-белые (почти). Самая левая из них и будет выдавать вам задания.

все еще актуально

Program myFirstProgram; var days: array [1..7] of string = ('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье'); day, i: integer; begin writeln('Введите номер для недели (1-7): '); readln(day); if day in [1..7] then begin writeln(days[day]); end else begin writeln('Не найден такой день недели!'); end; end.

Здравствуйте Эдуард, в уроке № 7 Вы сказали, что разберете присланную Вам одним пользователем задачку, в которой нужно составить программу, где компьютер угадывает число, а пользователь ему дает уточняющие подсказки. Я не встретил в Ваших выпусках этот урок. Скажите, делали ли Вы обзор по этой теме и если да то где его можно увидеть, а если нет, то будите ли? Спасибо.

сними видео обучение о C++

плохо что задачек практических мало А так, в целом, я доволен

Program Pascal_9; var day: integer; begin Writeln('Введите день недели:...'); readln(day); if day=1 then writeln('Этот день недели-понедельник)') else if day=2 then writeln('Этот день недели-вторник') else if day=3 then writeln('Этот день недели-среда)') else if day=4 then writeln('Этот день недели-четверг)') else if day=5 then writeln('Этот день недели-пятница)') else if day=6 then writeln('Этот день недели-суббота)') else if day=7 then writeln('Этот день недели-воскресенье)') else writeln('Этот день недели-ошибка)'); end. Сделал,не смотря ваше видео :) Надеюсь у вас так же,или иным способом)

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

program уравнение; var a,b,c,d,x1,x2: real ; begin write('a = '); read(a); write('b = '); read(b); write('c = '); read(c); if (a0) and (b0) then begin d:=sqr(b)-4*a*c; if d0 then begin x1:=(-b-sqrt(d))/2*a ; x2:=(-b+sqrt(d))/2*a ; writeln('корни этого уравнения' , x1:9 , x2:9 ); end; end; if a=0 then begin x1:=-c/b; writeln('корень этого уравнения = ' , x1); end; if b=0 then begin if (a>0) and (c>0) then writeln ('в уравнении нет корней'); if (a

перед else стоит точка с запятой, а программа работает. Хотя неоднократно говорили что нельзя ставить

Я сделал более удобно: var day: integer; begin writeln('Начало.'); writeln('Введите номер дня недели (от одного до семи):'); readln(day); if day = 1 then writeln('Понедельник'); if day = 2 then writeln('Вторник'); if day = 3 then writeln('Среда'); if day = 4 then writeln('Четверг'); if day = 5 then writeln('Пятница'); if day = 6 then writeln('Суббота'); if day = 7 then writeln('Воскресенье'); if day > 7 then writeln('Неверный номер дня недели'); writeln('Конец.'); end.

Здравствуйте, а вы будете делать урок по процедурам?

Научи пользоваться "приложение windows forms" в паскале

*Всё izi*

Это работает только с типом integer? Просто я пытался делать с char, Не получается

а как можно составить блок схему на этой операции?

Программа считает сколько дней прожил человек. program Dni; var a, b, c, a1, b1, c1, d, e, i: integer; begin writeln('Введите дату вашего рождения ( отдельно день, месяц,год )'); readln(a, b, c); if a > 31 then writeln('День введен неправильно,если вы продолжите,программа будет работать неправильно.'); if b > 12 then writeln('Месяц введен неверно,если вы продолжите,программа будет работать неправильно.'); writeln('Введите сегодняшнее число ( отдельно день, месяц,год)'); readln(a1, b1, c1); if c1 > 2018 then writeln('Год введен неправильно,если вы продолжите,программа будет работать неправильно.'); if b1 > 12 then writeln('Месяц введен неверно,если вы продолжите,программа будет работать неправильно.'); if a1 > 31 then writeln('День введен неправильно,если вы продолжите,программа будет работать неправильно.'); case b of 1: b := 31; 2: b := 59; 3: b := 90; 4: b := 120; 5: b := 151; 6: b := 181; 7: b := 212; 8: b := 243; 9: b := 273; 10: b := 304; 11: b := 334; 12: b := 365 else writeln('Месяц введен некорректно,если вы продолжите,программа будет работать неправильно.'); end; case b1 of 1: b1 := 31; 2: b1 := 59; 3: b1 := 90; 4: b1 := 120; 5: b1 := 151; 6: b1 := 181; 7: b1 := 212; 8: b1 := 243; 9: b1 := 273; 10: b1 := 304; 11: b1 := 334; 12: b1 := 365 else writeln('Месяц введен некорректно,если вы продолжите,программа будет работать неправильно.'); end; for i := c to c1 do begin if i mod 4 = 0 then e := e + 1; end; d := 365 - (b + a) + (365 * (c1 - c - 1)) + (b1 + a1) + e + 1; Writeln('Вы прожили', d, 'дней'); end.

Как сделать зашиту от букв? А то выводит ошибку,когда буквы вводятся.

А оператор присваивания в case of такой же? Просто у меня выдает ошибку когда я присваиваю определенные значения больше чем одной переменной

Ваши видео очень актуальны сейчас. Но к сожалению плохое качество видео. Буквы размыты и не видно самой программы. В 2017 году по вашим урокам написала курсовую "Табличные величины." Своим ученикам даю ссылку на ваши уроки. Имеет смысл продолжить работу или хотя бы улучшить качество видео. Ничего не понятно. Просто не видно. А в 2017 году всё было отлично видно. Хорошо,что осталась курсовая. Теперь ею активно пользуюсь.

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

подскажи как правильно прочитать такие строчки copy( MaskEdit1.Text, (i-adr1)*3+1, 2 ); s := s + inttohex( b, 2 )+'-';

а почему этот же самый кейс не работает если тип данных у переменной заменить с интеджера на риал?

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

как превратить этот код в программу, то есть чтоб оно было иконкой на рабочем столе,а при запуске ее были кнопки по нажатию которых все выдавалось и не видно бы было вообще кода этой программы ждя обычного пользователя)

Добрый день. Можете помочь с одной задачкой?

А можно как-то константу использовать в диапазоне оператора "CASE"???

Здравствуйте! Я раньше очень любил языки программирования, каждый день сидел за компьютером, учил учил. А сейчас постепенно становится не интересно. Хочу обратно полюбить программирование! Что делать? У вас возникало такая проблема?

Дорогой Эдуард! Попрошу НЕ ставить лишние пробелы между строк. Это очень мешает сосредоточиться и ЗАНИМАЕТ МНОГО КБ ( ты сам говорил об этом в прошлом видео). Заранее спасибо за понимание!

Не лучше ли будет использовать для этой задачи массив?

это был изи урок!

Помогите решить задачу по паскалю (Pascal),задание такое "Найти сумму третьего столбца в двумерном массиве"

Жаль что нет видео(

А можно ли использовать case не с цифрами а к примеру с русскими буквами? Например программа для разбора согласных и гласных?

Підкажіть,як скласти програму для розв'язування біквадратного рівняння!!!

Братан ты говорил что точка запитая не ставиться когда написано else

Сделайте по Kotlin видео

А С+ будет?

При помощи оператора case of написать программу. Условия: 1) если вводимое число А=1, то результат умножить на 2. 2) если А=2, то результат умножить на 3. Иначе результат разделить на 3. Помогите пож

А как работать с case of, когда надо ввести не номер дня, а его имя, то есть не 1: write('Пн') , а Pn:write('Пн')?

можно прошше решить

program days; var day:integer; begin writeln('Введите номер дня недели (1-7):'); readln(day); case day of 1:integer('Понедельник'); 2:integer('Вторник'); 3:integer('Среда'); 4:integer('Четверг'); 5:integer('Пятница'); 6:integer('Суббота'); 7:integer('Воскресенье'); else writeln('Нужно ввести от 1 до 7'); end. Помогите найти ошибку,выдает красным что ошибка в end. Program1.pas(18) : Встречено '.', а ожидалось ';'

Т

подскажите что здесь неправильно: Program Calculator; var a,b:real; c:integer; name:string; begin writeln('Write your name.'); readln(name); writeln('Hi!',name,'.','In this calculator you can complete simple math operation.'); writeln('Write first number'); readln(a); writeln('Write second number'); readln(b); writeln('What are you want to do with this numbers? a*b,a/b,a-b,a+b,a^2,b^2,a^1/2,b^1/2'); writeln('1.(a*b), 2.(a/b), 3.(a-b), 4.(a+b), 5.(^2), 6.(^1/2)'); readln(c); case c of 1.writeln(a*b); 2.writeln(a/b); 3.writeln(a-b); 4.writeln(a+b); 5.begin writeln(sqr(a)); writeln(sqr(b)); end; 6.begin writeln(sqrt(a)); writeln(sqrt(b)); end; else writeln('This symbol not.'); end; end.

Можно было массив создать и вызвать элемент массива

() : Не могу получить доступ к файлу 'C:\Users\Admin\Desktop\программы\Program 5.exe' ЧТО ЭТО

0:21 it looks like he said 'eni mawjoud ltawa ' xD tunisian sentence that means 'i'm still here '

Не хватает elif в Паскале. Жалко.

program danet; var otvet : string; begin writeln('ты смотришь аниме? ответь da или net'); readln(otvet); case otvet of da : writeln('ухты я тоже'); net : writeln('ну ладно а жаль'); else WriteLn('не так'); end; end. Скажите что тут не ьак

зачем нужно так часто использовать “else" если можно обойтись без него?

зачем писать "else"? и без него всё работает

кто ставит дизы?

слишком громкое интро

Очень грубая ошибка, особенно на олимпиадах - НИКАКИХ РУССКИХ БУКВ. С кириллицей сразу задание онуляется, только латинница, только хардкор.

Как же уныло, тебя только в 2х можно смотреть с постоянной перемоткой

Спасибо за урок!