Автор, присмотритесь к задаче "8.5". Могу ошибаться, но данная задача либо неполная, либо поставленные условия не совсем верны. Нужно объяснить данные недочеты слушателям, или же дать рекомендации в видеуроках учиться по Вашему списку задач в данном учебнике. Задачник хороший, как и Ваши уроки, но в этом задачнике, скорее всего, есть некоторые ошибки. Конкретно в этой задаче следует: 1)Заменить пременные "k" и "m" на одну 2)Использовать операции не только деления по модулю, но и целочисленного деления("mod" и "div") 3)Либо использовать оператор выбора "Case" дважды. Тогда можно выполнить условия задачи согласно представленной блок-схеме. Первые два варианта укорачивают и упрощают код, но могут запутать новичка с переназначением переменных и использованием нескольких операций деления .Последний вариант хоть и дублирует одну и ту же операцию ,но более прост для логического понимания и усвоения материала, что на начальном этапе важнее.

паскааль факин дерьмокто прогает на нем геи немощи я на всех ссал исрал

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

так никаких программ учащийся по этим урокам не напишет никогда )

Вопрос по домашнему заданию зачем вот эта длинная линия в выводе ?

ХАХВХАВХАХВХАХВАХХХАХВХА БЛЯТЬ ТЫ С КАПС-ЛОКОМ ВСЮ ЖИЗНЬ ПИШЕШЬ ДА?ххахаххахахах

Дмитрий доброе. Как можно с Вами связаться. Ну скажем через комментарий. Не могу решить две задачи. Сможете оказать помощь? В программировании еще слаб.

ты молодец спасибо большое))))))

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

Про телефон program xxxx; var st,c:real; kod:integer; begin writeln('Введите код города'); read(kod); writeln('Введите длительность разговора(мин)'); read(c); case kod of 423: st:=c*3.5; 495: st:=c*1.2; 815: st:=c*1.8; 846: st:=c*2.4; end; case kod of 423: writeln('Город Владивосток'); 495: writeln('Город Москва'); 815: writeln('Город Мурманск'); 846: writeln('Город Самара'); else writeln('Город не внесён в базу') end; case kod of 423:writeln('Стоимость минуты 3.5 руб '); 495:writeln('Стоимость минуты 1.2 руб '); 815:writeln('Стоимость минуты 1.8 руб '); 846:writeln('Стоимость минуты 2.4 руб '); end; if ((kod=423) or (kod=495) or (kod=815) or (kod=846)) and (c>0) then writeln('Стоимость разговора составит',st:6:2,' руб'); if c<=0 then writeln('Неправильно введено время'); end.

шёл 2024год и Дизельное топливо дороже 95го...(

Спасибо! Подписалась 😊

А мне с февраля поставили информатику студентам вести, хотя я последний раз проги 25 лет назад писал😂 не представляю как это реализовать 😮

ну пять лет прошло но всё же program 8.1; var w,e:real; var q:int64; begin writeln('владивасток-423'); writeln('москва-495'); writeln('мурманск-815'); writeln('самара-846'); writeln('введите код города '); read (q); writeln('введите кол-во минут '); read(w); case q of 423: e:=w*3.5; 495: e:=w*1.2; 815: e:=w*1.8; 846: e:=w*2.4; end; writeln('стоимость звонка',e,'р.'); end.

Так A DIV 100 равно 5, откуда A DIV 100 равно 37?

program lijnik; var p,td,dd:real; d:integer; begin writeln('Введите процент P'); read(p); dd:=10; td:=0; while td <= 200 do begin dd:=dd * (1+ p / 100); td:=td+dd; d:=d + 1; end; writeln('Сумарный пробег составил: ',td:0:2,' км'); writeln('Лыжник бегал: ',d,' дней'); end.

//Задача 14.2 var mas:array [1..50] of integer; i,min,k:integer; begin min:=0; for i:=1 to 50 do mas[i]:=Random(-100,100); for i:=1 to 25 do Write (mas[i]:4); Writeln(); for i:=26 to 50 do Write (mas[i]:4); Writeln(); for i:=1 to 50 do begin if mas[i]<min then begin min:=mas[i]; k:=i; end; end; Writeln ('Минимальный элемент массива:', min); Writeln ('Порядковый номер первого минимального элемента - ',k); end.

program milyoner; var y:integer; p,k:real; begin write('Введите количество долларов: '); read(k); write('Введите банковский процент: '); read(p); y:=0; while k < 1000000 do begin k := k * (1 + p / 100); y := y + 1; end; write('Вы станете миллионером всего через:' ,y, 'лет!'); end.

program sklad; var s,m,k:real; begin while(s<100)do begin read (m); s:=s+m; k:=k+1; end; if s>100 then k:=k-1 else k:=k; write(k); end.

Задача 14.3 var a:array [1..5] of integer; b:array [1..5] of integer; c:array [1..5] of real; i:integer; begin for i:=1 to 5 do a[i]:=random (1,10); Writeln ('Массив А:'); for i:=1 to 5 do Write (a[i]:6); Writeln(); for i:=1 to 5 do b[i]:=random (1,10); Writeln ('Массив B:'); for i:=1 to 5 do Write (b[i]:6); Writeln(); for i:=1 to 5 do c[i]:=((a[i]*b[i])/2); Writeln ('Массив C, рассчитывался по формуле c[i]:=(a[i]*b[i])/2:'); for i:=1 to 5 do Write (c[i]:6); end.

Задача 8.5. Что-то я не поняла алгоритм в задачнике и решила сделать проще: program rubli; var rubl,chislo:integer; begin write('Введите число рублей от 1 до 999: '); read(rubl); chislo:= rubl mod 10; if (chislo>10) then chislo:=chislo mod 10; case chislo of 1: write(rubl,' рубль'); 2,3,4: write(rubl,' рубля'); else write(rubl,' рублей') end; end. Почему-то работает, даже если число от трехзначного и выше :)

Спасибо вам

ошибка в том что число может быть равно 0

Добрый день. Готовлюсь по вашим урокам к ОГЭ. Пробник завтра. Спасибо. Если бы не вы я не знаю что бы делал.

Вот этот безымянный поинт. И либер офис врайт попадают на тему?

Спасибо

Здравствуйте Дмитрий. Могли бы вы проверить задание 11.8? Задание: 11.8) Напишите программу для подсчета суммы всех положительных и суммы всех отрицательных случайных целых чисел из диапазона от -100 до 100. Количество случайных чисел вводиться пользователем. решение: program test; var a,b,f,k,s,n: integer; begin readln (a); s:=0; b:=0; for k:= 0 to a do begin begin s:=random (-100,-1); f:=s+s; end; begin b:=random(1,100); n:= b+b; end; end; writeln (f,' ',n); end.

Дмитрий, спасибо за полезные видео! Вы бы не могли еще посоветовать годные к изучению учебники по прогр-нию, что бы без воды?)

PROGRAM VI; var y,I : integer; var T : REAL; VAR MAS1:ARRAY[1..7] OF STRING=('ПН','ВТ','СР','ЧТ','ПТ','СБ','ВС'); VAR MAS2:ARRAY[1..7] OF REAL; begin WRITELN('ВВЕДТЕ ТЕМПЕРАТУРУ'); FOR I:=1 TO 7 DO begin WRITE(MAS1[I]); READ(MAS2[I]); T:= T+MAS2[I]; END; T:= T/7; WRITELN(T:8:1); end.

вот мой вариант. текст не стал красить у меня начала тупить либо клавиатура лио мышка либо среда разработки. Даже текст выделить нормально не могу:( но код рабочий. PROGRAM VITA; VAR A,C,D,BALL:INTEGER; VAR B,K:REAL; LABEL M; LABEL R; BEGIN WRITELN('НАЧАТЬ 1/0'); READ(A); IF(A = 1) THEN BEGIN M: /////// BALL:= 0; D:= 0; WRITELN('ПЕРВЫЙ ВОПРОС'); WRITELN('--------------------------'); WRITELN('ОТВЕТ 1'); WRITELN('ОТВЕТ 2'); WRITELN('ОТВЕТ 3'); READ (D); CASE D OF 1: BALL:= BALL+1; 2: BALL:= BALL+0; 3: BALL:= BALL+0; end; WRITELN('ВТОРОЙ ВОПРОС'); WRITELN('--------------------------'); WRITELN('ОТВЕТ 1'); WRITELN('ОТВЕТ 2'); WRITELN('ОТВЕТ 3'); READ (D); CASE D OF 1: BALL:= BALL+1; 2: BALL:= BALL+0; 3: BALL:= BALL+0; end; WRITELN('ТРЕТИЙ ВОПРОС'); WRITELN('--------------------------'); WRITELN('ОТВЕТ 1'); WRITELN('ОТВЕТ 2'); WRITELN('ОТВЕТ 3'); READ (D); CASE D OF 1: BALL:= BALL+1; 2: BALL:= BALL+0; 3: BALL:= BALL+0; end; WRITELN('ПяТЫЙ ВОПРОС'); WRITELN('--------------------------'); WRITELN('ОТВЕТ 1'); WRITELN('ОТВЕТ 2'); WRITELN('ОТВЕТ 3'); READ (D); CASE D OF 1: BALL:= BALL+1; 2: BALL:= BALL+0; 3: BALL:= BALL+0; end; CASE BALL OF 5: K:=5; 4: K:=4; 3: K:=3; 2: K:=2; 1: K:=2; end; WRITELN('======================='); WRITELN('ВЫ НАБРАЛИ ', K, ' БАЛоВ'); /////// WRITELN('ПРОДОЛЖИТ? 1/0'); READ(C); IF (C=1) THEN GOTO M ELSE WRITELN('AND2'); end; end.

Хотелось написать, что это замечательное видео(и последующие) именно с них началось моё изучение Pascal и любовь к программированию(тк в школе ничего понятно не объяснили) Хочу сказать Вам огромное спасибо, за все что вы делаете и что мотивируете учиться P.s я смотрела это в 8 классе, а сейчас в 9 классе получила красный аттестат

У меня только так получилось, не знаю правильно или нет.. Program dz113; var c, s, i, p:Real; g1, g2, n, t: Integer; Begin writeln ('Напишите год'); Read (g1); writeln ('Сколько долларов'); Read (c); writeln ('Напишите процент'); Read (p); writeln ('Текущий год'); Read (g2); n:= g2-g1; s:= 1+p/100; i:=1; for t:=1 to n do begin i:=s*i end; i:= i*c; Writeln (i); end.

Кто перешёл сюда с учитель кой группы?

PROGRAM Paral; VAR A,B,H,S:REAL; BEGIN WRITELN('Введите длину'); READ(A); WRITELN('Введите ширину'); READ(B); WRITELN('Введите высоту'); READ(H); S:=2*(A*B+A*H+B*H); WRITE('Площадь равен: ',S:6:2,' кв.см.'); END.

Тут не хватает вещественных чисел, в этом и состоит ошибка, наверное

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

Так у меня получилось обратная задача program Search; var ONE,TWO,THREE,OTVET:integer; BEGIN WRITE('Введите единицы '); READ(ONE); WRITE('Введите десятки '); READ(TWO); WRITE('Введите сотни '); READ(THREE); OTVET:=(ONE+(TWO*10)+(THREE*100)); WRITE(OTVET); end.

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

А почему до else вы поставили точку с запятой, вы же говорили что не надо ставить?

Пацаны, вот : PROGRAM A3; VAR A,B,H,S:REAL; BEGIN WRITE ('Введите стороны A,B и высоту : '); READ (A,B,H); S:=2*(H*A+H*B+A*B); WRITE ('Площадь = ',S); END.

Хорошее видео.

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

Кто может помочь в Pascale?, с помощью Trunc, чтобы вещественное число было целым.

Ты на Путина похож

Я сижу смотрю видио в 2:33 У меня сегодня зачёт по информатике, а я не понимаю тему :,^

Антил... В словарь хоть раз бы заглянул, как оно читается. Позорище...

Круто

в чём здесь ошибка? я написал, но пишет что не хватает " ; " 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.

Спасибо, огромное....

Урок очень понравился, но почему Вы читаете слово write как "врайт"? В английском языке произносится "райт", буква W не читается вовсе.