потому что омерзителен, микро как у бича, хотя работает с компом мог и получше купить, попил бы воды, его причмокивание аж кровь из ушей, и как вообще может учить человек программированию который даже винду активировать у себя не может
Спасибо огромное!!!!!!! Очень!!! Очень помогли!!! С Вашей помощью я написала свою первую программу!!!!! Спасибо огромное за доброе и ОЧЕНЬ полезное дело, которое Вы делаете!!!
Офигенный урок!!! Только за 1-ые 3 минуты я узнал то, что я ничего не знаю из этого школьного курса по информатике. А за десять понял что я даже азы не знаю. Желаю чтоб все учителя были такие!
большое спасибо, мы недавно приступили к изучению паскаля в школе и мне захотелось узнать больше о программировании, я смог выполнить задачу самостоятельно благодаря вам.
я уже второй курс колледжа на программиста, щас паскаль хреначим, но так как я постоянно болею соответственно вообще ничего не понимаю, когда все уже пишут длинные проги по 50 строк, я вообще ничего не умею. Сейчас вот ура написала первую программу по вашему дз. СПАСИБО ВАМ!!!
На уроках информатики мы сначала учились программировать на компьютерах. но когда у нас были контрольные работы, училка заставляла писать программы на листочке, в то время когда другая группа писала на компьютерах, понимаете? Программы на листочках писать! Ну а если серьезно. то очень полезное видео, очень хорошо все объяснил, спасибо👍
Лайк однозначно. Собираюсь сдавать информатику, а мы проходим именно паскаль, поэтому ваши уроки очень пригодятся. И да, вы довольно хорошо объясняете. Стоило бы конеяно сказать о том что именно делает "read" но на данный момент я уже понял.
Хотелось написать, что это замечательное видео(и последующие) именно с них началось моё изучение Pascal и любовь к программированию(тк в школе ничего понятно не объяснили) Хочу сказать Вам огромное спасибо, за все что вы делаете и что мотивируете учиться P.s я смотрела это в 8 классе, а сейчас в 9 классе получила красный аттестат
Program h1; VAR A,B,H,S:INTEGER; BEGIN WRITE('ВВЕДИТЕ СТОРОНЫ И ВЫСОТУ параллелепипеда'); READ (A,B,H); S:=2*(A*B)+2*(A*H)+2*(H*B); WRITELN('S=',S); END.
PROGRAM VLAD1; VAR A,B,H,S:INTEGER; BEGIN WRITE('ВВЕДИТЕ ТРИ ЧИСЛА'); READ(A,B,H); S:=2+(A*B+A*H+B*H); WRITE('ПЕРИМЕТР = ',S); END. Вот что у меня получилось это мой первый урок программирования
h читается АШ в математике (эта традиция пошла из 19 века, когда одной из лидирующих стран была германия (... он из германии туманной принёс учёности плоды...)), а по английски читается АЙЧ.
Домашние задание: Program Filatov_3; var a,h,b,S:real; begin writeln('Здравствуйте!'); write('Введите стороны параллелепипеда в сантиметрах:'); read(a,h,b); S:=2*((a*h)+(h*b)+(a*b)); write('Площадь параллелепипеда = ',S,('см')); end.
Ну мне говорли что паскаль нужно выучить, он сложный но в нём тебе нужно все очень детально розписывать, это поможет понимать в будущем лучше что ты на других языках делаешь, как работает как устроено и т. д.
Для проверки- program wan; VAR H,A,B,S:integer; begin write('введите высоту'); read(H); write('ведите длину'); read(A); write('ведите ширину'); read(B); S:=(2*A*B)+(2*A*H)+(2*B*H); write(S); end.
program Parallelogram; var a,b,h,S: real; begin writeln('Enter the values of a,b,h'); Read(a,b,h); S:=2*((a*b)+(b*h)+(a*h)); Write('Surface area of parallelogram= ',S); end. Нужно ли еще что-то добавить?
Дмитрий доброе. Как можно с Вами связаться. Ну скажем через комментарий. Не могу решить две задачи. Сможете оказать помощь? В программировании еще слаб.
program vor; var h,a,b,s:real; begin writeln('Введите сторону A'); read(a); writeln('Введите сторону B'); read(b); writeln('Введите сторону H'); read(h); s:=2*(a*b+a*h+b*h); writeln('Площадь = ',s); end.
Помогите разобраться ! Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последо-вательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 9.
Мне кажется, или ты немного не правильно решил задание 6.2 , точнее решил правильно, но условие задачи прочитал не так, там написано: Ускорение свободного падения g = 9,8 м/с2 укажите в разделе описаний как константу. А ты в разделе описаний не указал g как константу. Ты просто ей значение присвоил.
Program Egor1; var S, a, b, h: real; Begin writeln ('Введите длину параллелепипеда'); readln (a); writeln ('Введите ширину параллелепипеда'); readln (b); writeln ('Введите высоту параллелепипеда'); readln (h); S := 2*(a * b + a * h + b * h); writeln ('Ответ'); write ('Площадь поверхности параллелепипеда S равна ',s:1:2 , ' кв. см.'); end.
program .....i; var a,b,c,s:integer; begin write ('введите данные сторон'); read(a,b,c); s:=2*(a*b + b*c + a*c); write ('площадь боковой поверхности',s); end.
Не подскажете, почему в моей программе выдается сообщение об ошибке 215? uses crt; var a:longint; d,b,c:integer; begin d:=34; b:=23; c:=52; a:=100*d+1000*b+10000*c; write(a); readln; end.
Program Parallelepiped; Var a,b,h,S:real; begin Writeln('1)Введите число a'); Writeln('1)Введите число b'); Writeln('1)Введите число h'); Read(a,b,h); S:=2*(a*b+b*h+a*h); Writeln('Площадь параллелепипеда = ', S); end. Правильно?
пАсКаЛь тоП ето лутший язік топ топ топ топ топ топ топ топ топ топ топ топ топ топ топ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Program Vasya; VAR a,b,h,S:real; begin write('Введите значения a'); read(a); write('Введите значения b'); read(b); write('Введите значения h'); read(h); S:= 2*(a*b+ b*h+ a*h); write(S); end. вот дз)
Program Razvertka; var A, B, H, Sum: real; begin Write ('Введи H, A и B: '); read (H, A, B); Sum:=2*(H*B+H*A+A*B); Write('Площадь поверхности параллелепипеда равна: ', Sum); end.
Ребята, помогите. Пиши программу,всё как на видео, но в окне выводы пишет [CODEPAGE65001][READLNSIGNAL] и после этого ничего не могу ввести, что делать?
Program Homework; Var a,h,b,S:real; Begin Writeln('Enter the sides of the parallelepiped in centimeters'); Read (a,h,b); S:=2*((a*h)+(h*b)+(a*b)); Write('Parallelepiped area = ',S:6:3,('cm')); End.
program PAROLILEPIPED; Var a, h, d, s:Integer; begin Writeln ('Введите a ='); read (a); writeln ('Введите h ='); read (h); writeln('Введите d ='); read (d); S:=4*(a*h)+(2*h*d); writeln('S параллелограмма = ', S); End.
в чём здесь ошибка? я написал, но пишет что не хватает " ; " program time; var h,t,g: real; begin write ('Enter h'); read (h); g:=9,8; t:=sort (2*h)/g; write ('time = ',t); end.
![Noob To Max With DRAGON REWORK In Blox Fruits [FULL MOVIE]](http://i.ytimg.com/vi/LnBMOinoOvA/mqdefault.jpg)
Ты за 30 минут рассказал и обьяснил больше, чем моя училка за 2 года.
maxxx какже я тебя понимаю
П-ПОНИМАЮ!
+
лол у меня училка это обьясняет 3 четвертиxd
Это около 15 уроков
15*40мин = НИЧЕГО (ЕСЛИ УЧИТУЧИЛСЯ)
30*1 = ПОЛЕЗНАЯИНФА ЕСЛИ СМОТРЕЛ ДМИТРИЯ
+
Хорошо что с задачником реальным работаешь. В принципе нормально и молодец что разжёвываешь каждый оператор, для новичков в самый раз.
+HD KINO Спасибо за комментарий
Дмитрий Лапко я сейчас учусь в техникуме и через год по профессии нужно учить paskal
Владимир Спицв , ну... paskal конечно классный язык программирования, но лучше для старта начинать с языка программирования
@@ДмитрийЛапко-л1ндякую
Ты лучший!!!
Объясняешь в 100 раз лучше нашего учителя в школе)))
Спасибо. Приятно.
@@phobos8808 я в 9 и нихера не вдупляю (((
@@phobos8808 мы в 9 создаем анимации в паверпоинте XDDD
@@reflex3627 Мы с Excel работаем....будущие бухгалтеры :D
Лол вы чё Паскаль изучаете? Мы на Пайтон перешли
Смотрю в 2019 году и удивляюсь. Почему у тебя так мало лайков? Объясняешь намного лучше учителей информатики в моей школе, спасибо тебе!
наши информатики вообще не учат, я сам своим пайтоном и хтмлом занимаюсь, а другие удивляются
потому что омерзителен, микро как у бича, хотя работает с компом мог и получше купить, попил бы воды, его причмокивание аж кровь из ушей, и как вообще может учить человек программированию который даже винду активировать у себя не может
@@Школа23сУИИЯНижневартовск хахпахаа лоооол
Спасибо огромное!!!!!!! Очень!!! Очень помогли!!! С Вашей помощью я написала свою первую программу!!!!! Спасибо огромное за доброе и ОЧЕНЬ полезное дело, которое Вы делаете!!!
Спасибо за чёткое, понятное объяснение. Благодаря этому видеоуроку я смогу сделать информатику. Видео было полезным и обучающим. Спасибо!
Офигенный урок!!! Только за 1-ые 3 минуты я узнал то, что я ничего не знаю из этого школьного курса по информатике. А за десять понял что я даже азы не знаю. Желаю чтоб все учителя были такие!
Дмитрий, Спасибо вам за это видео! Наконец -то начал понимать, что мы проходим в Вузе и как этим пользоваться. Вы мне очень помогли. Лайк однозначно!
Сначала я сам для себя учил питон.
Но когда я перешёл в новую школу, то там уже учили Паскаль, и теперь все новенькие должны учить паскаль👍👍👍
Спасибо! лучшего объяснения не найти! Супер!
Спасибо!!! Мучалась с Паскалем весь 9 класс, теперь разобралась!
До начала сессии не учил, теперь надо взяться за ум))
Спс, многое узнал))
Всегда пожалуйста.
Прекрасный учитель!!! спасибо за такой подробный туториал
Спасибо за помощь! Всё просто и понятно.
Отличный урок. Спасибо вам
большое спасибо, мы недавно приступили к изучению паскаля в школе и мне захотелось узнать больше о программировании, я смог выполнить задачу самостоятельно благодаря вам.
особенно с квадратиком удобно обьяснили)
Огромное вам спасибо! Ваши видео очень полезны.
Спасибо Димон всё тщательно пояснил
Первый урок очень понравился. Молодец. Спасибо. Буду смотреть дальше.!!!!!
Большое вам спасибо за урок! Очень информативно и познавательно. Благодаря вам понял то, чего не мог понять в школе! :D
Спасибо за хороший урок)
+KoMoD TV Большое спасибо.
спасибо большое
объясняете наглядно и понятно
отдельное спасибо за задачник, легко и быстро скачала :)
Все понятно,до мелочей)Продолжай в том же духе)
А где справочник. ты закрыл доступ к нему
Маэстро вы лучший!
вступаю на путь программиста, думаю твои уроки будут кстати.
Канал Люма :3 и как оно?
Не поможет) Паскаль это уже мертвый язык начни лучше с c++
@@серыйхомячок ,начинать надо с мелкого ,заканчивая большим.
@@sabeit5647 Я начинал с питона
ну и как там ?
Я даже не заметил что прошло 30 минут)
Спасибо тебе большое за этот ролик,я ничего не понимала до этого в програмировании теперь понимаю 👍💖
Объясняешь очень круто, Спасибо!!!!!
я уже второй курс колледжа на программиста, щас паскаль хреначим, но так как я постоянно болею соответственно вообще ничего не понимаю, когда все уже пишут длинные проги по 50 строк, я вообще ничего не умею. Сейчас вот ура написала первую программу по вашему дз. СПАСИБО ВАМ!!!
Ваауу, спасибо большое, всё очень понятно и быстро 👍
На уроках информатики мы сначала учились программировать на компьютерах. но когда у нас были контрольные работы, училка заставляла писать программы на листочке, в то время когда другая группа писала на компьютерах, понимаете? Программы на листочках писать! Ну а если серьезно. то очень полезное видео, очень хорошо все объяснил, спасибо👍
Классно! Большое спасибо! Да благословит вас Бог!
Лайк однозначно.
Собираюсь сдавать информатику, а мы проходим именно паскаль, поэтому ваши уроки очень пригодятся. И да, вы довольно хорошо объясняете. Стоило бы конеяно сказать о том что именно делает "read" но на данный момент я уже понял.
Спасибо, огромное....
Очень хорошее видео. Дмитрий вам респект!
Спасибо, все очень круто)
подписка и лайк! Жаль на ютубе это не очень ценится(
Хотелось написать, что это замечательное видео(и последующие) именно с них началось моё изучение Pascal и любовь к программированию(тк в школе ничего понятно не объяснили)
Хочу сказать Вам огромное спасибо, за все что вы делаете и что мотивируете учиться
P.s я смотрела это в 8 классе, а сейчас в 9 классе получила красный аттестат
3 года назад начал с этого курса :)
Ничего лучше нету. Лучшее, что я когда-либо смотрел.
Спасибо автору,классно видео
Искал что хотел , а то на канале "школа программистов" нормально не объясняет все на лету" Лайк!
Класс! Спасибо большое!
Мы в универе на дистанционном обучение, учимся по твоим видео)
Спасибо. Привет преподу!
Спасибо, наставник
Дмитрий а вы знаете Perl? хотелось бы в вашем исполнении. очень хорошо объясняете. если канал еще не забросили.
Program h1;
VAR A,B,H,S:INTEGER;
BEGIN
WRITE('ВВЕДИТЕ СТОРОНЫ И ВЫСОТУ параллелепипеда');
READ (A,B,H);
S:=2*(A*B)+2*(A*H)+2*(H*B);
WRITELN('S=',S);
END.
Почему integer? Там же вещественные числа... Думаю, real
Очень хорошо объяснил, спасибо!
Спасибо! Подписалась 😊
нету доступа к задачнику. можно авторов и издательство?
За 30 мин объяснил материал , который я не смог понять за год
Спасибо, чувак, круто объяснил!
Афигеть я до этого момента вообще был нулём, спасибо огромное!
Удачи продалжай в томже духе
пасиба очень помог другие сразу начинают с непонятного а ты всёобьяснил я сразу понял)
Спасибо большое, я разобралась наконец то)) 😌
ты молодец спасибо большое))))))
Посмотрел --спасибо
За задачник лайк
спасибо, мне как 12-летнему школьнику было все понятно
Спосибо за доступность
PROGRAM VLAD1;
VAR A,B,H,S:INTEGER;
BEGIN
WRITE('ВВЕДИТЕ ТРИ ЧИСЛА');
READ(A,B,H);
S:=2+(A*B+A*H+B*H);
WRITE('ПЕРИМЕТР = ',S);
END.
Вот что у меня получилось это мой первый урок программирования
h читается АШ в математике (эта традиция пошла из 19 века, когда одной из лидирующих стран была германия (... он из германии туманной принёс учёности плоды...)), а по английски читается АЙЧ.
То чувство когда поскаль забыли и щас популярен пайтон, джава скрипт и т.д
мы до сих пор проходим в школе паскаль)))))
@@ashlozhka мы тоже)
Спасибо огромное!
доработаная программа
var a,b,s,p:integer;
begin
textbackground(blue);
clrscr;
gotoxy (25,5);
textcolor(green);
write ('Введите первое число: ');
read (a);
p := (a+b)*2;;
textcolor(red);
write ('Периметр=');
writeln (p);
textcolor(green);
write ('Введите второе число: ');
read (b);
s := (a*b);;
textcolor(red);
write ('Площадь=');
writeln (s);
textcolor(black);
end.
2:32 и тут мне стало страшно...
Ну как? Справился?
спасибо большое
тЫ Лучший!!!!
Спасибо!
Домашние задание:
Program Filatov_3;
var a,h,b,S:real;
begin
writeln('Здравствуйте!');
write('Введите стороны параллелепипеда в сантиметрах:');
read(a,h,b);
S:=2*((a*h)+(h*b)+(a*b));
write('Площадь параллелепипеда = ',S,('см'));
end.
Годится
Ну мне говорли что паскаль нужно выучить, он сложный но в нём тебе нужно все очень детально розписывать, это поможет понимать в будущем лучше что ты на других языках делаешь, как работает как устроено и т. д.
Для проверки-
program wan;
VAR H,A,B,S:integer;
begin
write('введите высоту');
read(H);
write('ведите длину');
read(A);
write('ведите ширину');
read(B);
S:=(2*A*B)+(2*A*H)+(2*B*H);
write(S);
end.
спасибо, к кр по инфе готовлюсь
program Parallelogram;
var a,b,h,S: real;
begin
writeln('Enter the values of a,b,h');
Read(a,b,h);
S:=2*((a*b)+(b*h)+(a*h));
Write('Surface area of parallelogram= ',S);
end.
Нужно ли еще что-то добавить?
Дмитрий доброе. Как можно с Вами связаться. Ну скажем через комментарий. Не могу решить две задачи. Сможете оказать помощь? В программировании еще слаб.
у тебя не лицензированная винда!
30:05 если я напишу вместо write writeln то на выводе 15 перенесется на след строку от слов введите высоту ветки????
да, и, зачастую это намного удобнее и эстетичнее
program vor;
var h,a,b,s:real;
begin
writeln('Введите сторону A');
read(a);
writeln('Введите сторону B');
read(b);
writeln('Введите сторону H');
read(h);
s:=2*(a*b+a*h+b*h);
writeln('Площадь = ',s);
end.
Помогите разобраться !
Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последо-вательность).
Количество чисел не превышает 1000. Введённые числа по модулю
не превышают 30 000.
Программа должна вывести одно число: количество чётных чисел, кратных 9.
Мне кажется, или ты немного не правильно решил задание 6.2 , точнее решил правильно, но условие задачи прочитал не так, там написано: Ускорение свободного падения g = 9,8 м/с2 укажите в разделе описаний как константу. А ты в разделе описаний не указал g как константу. Ты просто ей значение присвоил.
Да, ты прав. Это упустил.
А что значит "Как константу"?
Константа - это величина которая в ходе программы не изменяется. Пример объявления : const g:=9.8;
Спасибо, но можно просьбу, запиши видео как решать задания 5 номеров?) Спасибо за твои уроки, начал хоть что-то понимать.
Ок, спасибо.
6:35 а в какую программу он зашел? Ее надо устанавливать? Просто в word нету эллипс и все такое.
Это libreoffice. Для написания программы, рисовать алгоритм не обязательно. Это для наглядности.
@@ДмитрийЛапко-л1н хорошо. Спасибо
Вот этот безымянный поинт. И либер офис врайт попадают на тему?
Program Egor1;
var S, a, b, h: real;
Begin
writeln ('Введите длину параллелепипеда');
readln (a);
writeln ('Введите ширину параллелепипеда');
readln (b);
writeln ('Введите высоту параллелепипеда');
readln (h);
S := 2*(a * b + a * h + b * h);
writeln ('Ответ');
write ('Площадь поверхности параллелепипеда S равна ',s:1:2 , ' кв. см.');
end.
как откуда ты это узнал
Я пишу из будущего блин объясняете хорошо но когда я пытаюсь что та сам зделать нечего немогу
Тем временем моя училка по информатике объясняет что такое файл в 8классе
program .....i;
var a,b,c,s:integer;
begin
write ('введите данные сторон');
read(a,b,c);
s:=2*(a*b + b*c + a*c);
write ('площадь боковой поверхности',s);
end.
Не подскажете, почему в моей программе выдается сообщение об ошибке 215?
uses crt;
var a:longint;
d,b,c:integer;
begin
d:=34; b:=23; c:=52;
a:=100*d+1000*b+10000*c;
write(a);
readln;
end.
Program Parallelepiped;
Var a,b,h,S:real;
begin
Writeln('1)Введите число a');
Writeln('1)Введите число b');
Writeln('1)Введите число h');
Read(a,b,h);
S:=2*(a*b+b*h+a*h);
Writeln('Площадь параллелепипеда = ', S);
end. Правильно?
пАсКаЛь тоП ето лутший язік топ топ топ топ топ топ топ топ топ топ топ топ топ топ топ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Program Vasya;
VAR a,b,h,S:real;
begin
write('Введите значения a');
read(a);
write('Введите значения b');
read(b);
write('Введите значения h');
read(h);
S:= 2*(a*b+ b*h+ a*h);
write(S);
end.
вот дз)
Урок очень понравился, но почему Вы читаете слово write как "врайт"? В английском языке произносится "райт", буква W не читается вовсе.
Мне кажется он за 6 лет научился это произносить
Program Razvertka;
var
A, B, H, Sum: real;
begin
Write ('Введи H, A и B: ');
read (H, A, B);
Sum:=2*(H*B+H*A+A*B);
Write('Площадь поверхности параллелепипеда равна: ', Sum);
end.
А что делать если у меня аутизм и мои оценки 3?
Ребята, помогите.
Пиши программу,всё как на видео, но в окне выводы пишет [CODEPAGE65001][READLNSIGNAL] и после этого ничего не могу ввести, что делать?
ТОЛЬКО НЕ ВРАЙТ, А РАЙТ!
Program Homework;
Var a,h,b,S:real;
Begin
Writeln('Enter the sides of the parallelepiped in centimeters');
Read (a,h,b);
S:=2*((a*h)+(h*b)+(a*b));
Write('Parallelepiped area = ',S:6:3,('cm'));
End.
program PAROLILEPIPED;
Var a, h, d, s:Integer;
begin
Writeln ('Введите a =');
read (a);
writeln ('Введите h =');
read (h);
writeln('Введите d =');
read (d);
S:=4*(a*h)+(2*h*d);
writeln('S параллелограмма = ', S);
End.
в чём здесь ошибка? я написал, но пишет что не хватает " ; "
program time;
var h,t,g: real;
begin
write ('Enter h');
read (h);
g:=9,8;
t:=sort (2*h)/g;
write ('time = ',t);
end.
t:=sqrt(2*h/g); {sqrt kvadratnij korenj} (((((SQRT))))
А как те одинарные скобки ставить?Где они?
я имел ввиду кавычки. На английской раскладке возле Enter