1000 7 код паскаль
1000 7 код паскаль
Эта программа на подобие PAINT.
procedure keydown(key: integer);
begin
if key=Vk_up then S:=S+1;
if key=Vk_down then S:=S-1;
if key=Vk_left then A:=A-1;
if key=Vk_right then A:=A+1;
if A=0 then A:=A+1;
if A=11 then A:=A-1;
if S=0 then S:=S+1;
if S=10 then S:=S-1;
end;
procedure MouseDown(x,y,mb: integer);
begin
MoveTo(x,y);
end;
procedure MouseMove(x,y,mb: integer);
begin
if S=1 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clblack); setbrushcolor(clblack); circle(7,7,A); end;
if S=2 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clgreen); setbrushcolor(clgreen); circle(7,7,A); end;
if S=3 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clred); setbrushcolor(clred); circle(7,7,A); end;
if S=4 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clblue); setbrushcolor(clblue); circle(7,7,A); end;
if S=5 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clyellow); setbrushcolor(clyellow); circle(7,7,A); end;
if S=6 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clbrown); setbrushcolor(clbrown); circle(7,7,A); end;
if S=7 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clsilver); setbrushcolor(clsilver); circle(7,7,A); end;
if S=8 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(clpurple); setbrushcolor(clpurple); circle(7,7,A); end;
if S=9 then begin setbrushcolor(clwhite); circle(7,7,12); setpencolor(cllime); setbrushcolor(cllime); circle(7,7,A); end;
if mb=1 then circle(X,Y,A);
setbrushcolor(clwhite);
setpencolor(clwhite);
if mb=2 then circle(X,Y,A);
end;
begin
gotoxy(1,2);
write(‘меняйте цвет стрелками на клавиатуре вверх и вниз. стирать пкм, рисовать лкм.’);
gotoxy(5,1);
write(‘менять размер кисти стрелками влево и вправо.’);
Onkeydown:=keyDown;
OnMouseDown:=MouseDown;
OnMouseMove:=MouseMove
end.
Как написать программу на Python каждый раз отнимающая 7
Уважаемые, модераторы. Этот пост посвящен токийскому Гулю, поэтому я не считаю этот пост оффтопиком, заранее спасибо за понимание.
Привет, Деды!(Инсайды конечно)
Сомневаюсь, что никто из вас не занимался программированием на языке Python.
Сначала я покажу вам весь код, а потом объясню, что где когда.
ВНИМАНИЕ! ПИТОН ЧУВСТВИТЕЛЕН К РЕГИСТРУ (ЗАГЛАВНЫЕ И СТРОЧНЫЕ БУКВЫ) ЕСЛИ У ВАС, ЧТО-ТО ВЫЗВАЛО ОШИБКУ, ТО СКОРЕЕ ВСЕГО ВЫ НЕ СДЕЛАЛИ ВСЕ НЕ ТАК КАК У МЕНЯ!
Теперь перейдем к пояснению!
В питоне куча библиотек или модификаций, но для оптимизации работы Python, их нужно вызывать.
Библиотека time поможет нам чуть позже.
Их можно назвать как вашей душеньке угодно, но существуют некоторые ограничения (читай вложение под текстом
Из названия понятно, что он что-то зацикливает. Объясню как это работает.
Цикл будет выполняться, пока выполняется условие, если что-то не соответствует условию, то цикл прерывается.
while (здесь пишем любое условие):(ДВОИТОЧИЕ ОБЯЗАТЕЛЬНО)
Нужно нажать таб или 3 раза пробел, это называется табуляция. В Питон она означает что, то, или иное действие принадлежит циклу или условию. Если оно вне табуляции, то оно не будет принадлежать ничему.
while (здесь пишем любое условие):
Переменная a становится на 7 меньше.
Причём обновить ее можно как вашей душеньке угодно!
Деление без остатка ( a = a//2);
Деление, которое оставляет только остаток (a = a%8);
Возведение в степень (a = a**3)
В итоге он будет каждую миллисекунду отнимать 7. А когда переменная а будет меньше нуля, то он напишет ощихитео.
Правила по созданию переменных:
Питон чувствителен к РЕГИСТРУ(Заглавные, строчные буквы).
Значит, что переменные:
Будут совершенно разными.
Вы можете назвать переменную как вам душе угодно, но на английском языке.
Нельзя использовать ЗАПРЕЩЕНЫЕ СИМВОЛЫ, пробелы и числа в названии переменной().
И ещё нельзя называть переменные командой в Питоне:
01 Nov 2019 в 22:41
01 Nov 2019 в 22:41 #1
01 Nov 2019 в 22:41 #2
01 Nov 2019 в 22:42 #3
01 Nov 2019 в 22:42 #4
01 Nov 2019 в 22:43 #5
01 Nov 2019 в 22:43 #6
01 Nov 2019 в 22:43 #7
01 Nov 2019 в 22:44 #8
01 Nov 2019 в 22:45 #9
01 Nov 2019 в 22:45 #10
01 Nov 2019 в 22:45 #11
тест на гомосексуалиста
01 Nov 2019 в 22:55 #12
01 Nov 2019 в 22:57 #13
Это для дед инсайдов, слишком сложна обьяснить
01 Nov 2019 в 22:58 #14
979
01 Nov 2019 в 22:58 #15
Это для дед инсайдов, слишком сложна обьяснить
хорошо что я не настолько поехавший чтобы это понимать
01 Nov 2019 в 23:08 #16
01 Nov 2019 в 23:09 #17
01 Nov 2019 в 23:11 #18
ну и шо ты мне сделаешь? я программист и считаю на калькуляторе, ахзхазахзахазахзаахазахазх я не проиграю вам, лохичи
модер, тут кста лайки абузят инсайды
01 Nov 2019 в 23:21 #19
ухади с форум шкила
01 Nov 2019 в 23:21 #20
Некорректное второе значение. 7 целых, а сколько десятых?
01 Nov 2019 в 23:22 #21
Некорректное второе значение. 7 целых, а сколько десятых?
Так и для тысячи не указано количество десятых
Примеры программ на Pascal
Задание:
Ввести с клавиатуры n чисел. Определить количество четных.
Код программы:
Задание:
Дано четырехзначное число. Верно ли, что сумма первой и последней цифр равна сумме средних цифр?
Пример теста:
1234 — да: 1+4=2+3
7459 — нет: 7+9 ≠ 4+5
Код программы:
Задание:
Решение квадратного уравнения ax 2 +bx+c=0
Пример теста:
Код программы:
Задание:
При попадании в маленький круг (радиус = 1), игроку начисляется 2 балла, при попадании в большой круг (радиус 2) — 1 балл, мимо мишеней — 0 баллов.
Пример теста:
Код программы:
Задание:
Вычислить значение функции 
Пример теста:
Код программы:
Задание:
Найти сумму элементов столбца, содержащего максимальный элемент. Если максимальный элемент встречается несколько раз, то вычислить сумму столбца, в котором максимальный элемент встречается в последний раз. То есть в тесте взять такую матрицу, чтобы максимальный элемент встречался в несколькх столбцах.
Пример теста:
1 2 3 4
7 1 3 0
2 7 4 3
1 3 2 1
Полезные коды для PascalABC.NET
В этой теме размещаются полезные исходники программ, различные процедуры и функции, а так же готовые решения на часто задаваемые вопросы, написанные на PascalABC.NET.
Поддержать тему и добавить свои примеры, исходники и пр. может каждый, после того, как ознакомиться с правилами темы:
Модуль для PascalABC.NET
Здравствуйте уважаемые форумчане, возник вопрос почему не работает модуль. Вот модуль unit.
Персонаж для игры на PascalABC.NET
Здравствуйте. Я программирую игру на PascalABC.NET и я столкнулся с такой проблемой. Смысл игры в.
Редактор форм для PascalABC.NET
Существуют ли редакторы форм для PascalABC.NET, а то в PascalABC был свой. Добавлено через 41.
Есть ли PascalABC.NET для Mac OS X?
Есть ли PascalABC.NET для Mac OS X?
Далее пишем коротенькую процедуру, которая будет отвечать за «отпускание» кнопки:
Думаю тут всё понятно)
Последний шаг делаем событие по движению мыши:
Тут тоже вроде всё ясно, единственная сложность с «движением относительно курсора», но тут легче понять чем объяснить.
Форма формы O_o. Извиняюсь за тавтологию)
BaboshinSD,тема действительно полезная.Я например в PascalABC.NET не пишу,изучаю чистый Паскаль без наворотов но хотелось бы и PascalABC.NET знать.
В:Как создать приложение с окном(пустым)?
О:
Попробовал код на mp3 Полезные коды для PascalABC.NET
не работает (Ошибка при чтении сборки ‘C:\Windows\Microsoft.NET\assembly\GAC_32\PresentationCore\v 4.0_4.0.0.0__31bf3856ad364e35\PresentationCore.dll’)
Вот этот работает
В: Как проигрывать звук в PascalABC.NET?
О:
Да, мне известно что есть функция которая возвращает перевернутую строку
Но это процедура которая переворачивает введеную переменную без присваивания
Нашел такую фичу:
Если описание процедуры такое: (var s:string)
то в процессе выполнения будет использоваться не переменная s а та переменная, которая была написана в этом месте
То есть
Кстати,
В: Вывести массив строк?
О:
Помощь в написании контрольных, курсовых и дипломных работ здесь.
Процедура GetMem для PascalABC.NET
Долго долго курил страницы форума, изучал динамические списки. Когда код для программы уже.
В чем разница PascalABC.net и PascalABC
Скажите в чем разница PascalABC.net И PascalABC. Помню когда-то давно программы работающие в.
Надо найти библиотеку для PascalABC NET
Всем привет. Вот сейчас пишу движок для PascalABC NET. Для графики взял OpenGL. Теперь начал делать.