Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal Найти минимальное значение среди сумм модулей элементов диагоналей, параллельных главной https://www.cyberforum.ru/ free-pascal/ thread861949.html поооомммоооггиииттеее!!!!пожалуууййста!):) по заданной квадратной матрице, размером NxN, найти минимальное значение среди сумм модулей элементов диагоналей, параллельных главной.	Free Pascal В квадратной действительной матрице найти максимальный и минимальный элементы Решить задачу, создав процедуры для ввода, вывода, и обработки матрицы. В квадратной действительной матрице найти максимальный и минимальный элементы. Если максимальный элемент окажется на главной диагонали, то все элементы первой строки заменити его значениям, иначе элементы первой строки заменить минимальным элементом, вывести на экран дисплея полученную матрицу.
Free Pascal Найти сумму значений элементов главной диагонали данной матрицы Прошу вашей помощи, помогите пожалуйста решить эти две задачки :) 2. Дана матрица а(10, 10), заполненная датчиком случайных чисел в диапазоне от -20 до 15 включительно. Найти сумму значений элементов главной диагонали данной матрицы. https://www.cyberforum.ru/ free-pascal/ thread861868.html	Free Pascal Определить процедуры работы арифметических операций над комплексными числами Дано действительные числа u1,u2, v1,v2, w1,w2. Получить 2u + (3u*w/2+w-v) -7, где u,v,w - комплексные числа u1+iu2, v1+iv2, w1+iw2. (Определить процедуры роботы арифметических операций над комплексными числами ). https://www.cyberforum.ru/ free-pascal/ thread861866.html
Попытка разыменовать нулевой указатель Free Pascal Создаю дерево: program BinTree; uses Tree; var TheRoot: PNode; begin Init(TheRoot);	Free Pascal Подсчитать количество отрицательных элементов каждого столбца матрицы Прошу вашей помощи, помогите пожалуйста решить эти две задачки :) 1. Дана матрица а(10, 20), заполненная датчиком случайных чисел в диапазоне от -20 до 15 включительно. Подсчитать количество отрицательных элементов каждого столбца матрицы. https://www.cyberforum.ru/ free-pascal/ thread861764.html
Free Pascal Объясните, пожалуйста, поведение процедур https://www.cyberforum.ru/ free-pascal/ thread861745.html Здравствуйте, я не понимаю, почему, например из верхней процедуры в нижнюю перейти нельзя, а наоборот можно. Добавлено через 7 минут Вот набросал код(сорри за ошибки, если есть.) Uses crt; Var kl:char; procedure procedure2; begin; procedure3	Free Pascal Повторяющийся фрагмент орнамента оформите в виде вспомогательной процедуры пользователя Помогите пожалуйста!!! Напишите программу, которая строит заданный орнамент. Повторяющийся фрагмент орнамента оформите в виде вспомогательной процедуры пользователя.
Free Pascal Определите u=Ax+By-Cz+Bx https://www.cyberforum.ru/ free-pascal/ thread861405.html Заданы матрицы А, В, С размера( n x n) и векторы x, y, z в n-мерном пространстве. Определите u=Ax+By-Cz+Bx.	Free Pascal Получить u = min(a, b), v = min(ab, a + b), g=min(u + v2, 3.14) https://www.cyberforum.ru/ free-pascal/ thread861403.html Даны действительные числа а, b. Получить u = min(a, b), v = min(ab, a + b), g=min(u + v2, 3.14).
Free Pascal Задача: Строка содержит произвольный русский текст. Проверить, каких букв в нем больше: гласных или согласных Здравствуйте. Есть задача и её решение. Но мне хотелось бы узнать. Можно ли её выполнить без констант? Допустим с помощью массивов или просто строкового типа данных. Если можно, то как? Задача: Строка содержит произвольный русский текст. Проверить, каких букв в нем больше: гласных или согласных. Код программы: program example1; const glasn=; soglas=; var st: string;	Free Pascal Проверка матрицы на "магический квадрат" Здравствуйте. Я только начинаю изучать Pascal и вообще программирование. Я поставил для себя цель, понять все действия данной программы. Но я с самого начала начал путаться в переменных, то бишь за что, какая переменная отвечает. Не могли вы прокомментировать следующий код (переменные и действия), чтобы хоть как то понять смысл программы. Язык: Free Pascal Код программы: PROGRAM... https://www.cyberforum.ru/ free-pascal/ thread861282.html

Svyatoslav7

18 / 18 / 17

Регистрация: 19.08.2012

Сообщений: 281

12.05.2013, 11:19 [ТС]

Графика clrscr - Free Pascal - Ответ 4542970

12.05.2013, 11:19. Показов 3104. Ответов 13

Метки (Все метки)

Ответ

Pascal

program my_time;
uses
Dos,crt,graph;
var
gd,gm:integer;
h,hv,s,ms:word;
cx,cy:integer;
x,y,x1,y1:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
setbkcolor(red);
cleardevice;
setcolor(yellow);
circle(320,240,150);
circle(320,240,2);
x:=320;
y:=130;
x1:=1;
y1:=10;
repeat
cleardevice;
line(320,240,x,y);
delay(1000);
x:=x+8;
y:=y+7;
until y>240;

вот кусочек кода

Добавлено через 29 секунд

Сообщение от Svyatoslav7

setcolor(yellow);
circle(320,240,150);
circle(320,240,2);

от я нарисовал круг

Добавлено через 39 секунд

Pascal

repeat
cleardevice;
line(320,240,x,y);
delay(1000);
x:=x+8;
y:=y+7;
until y>240;

тогда я рисую линию и передвигаю ее.... и стираю ....

Добавлено через 17 секунд
но и круг стирается(

Вернуться к обсуждению:
Графика clrscr Free Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

12.05.2013, 11:19

Готовые ответы и решения:

Модуль CRT, clrscr и кириллица
Написал программу. Ввод и вывод строк русскими буквами. После проверки проги, очень не понравилось...

неверный идентификатор clrscr
условие:CASE14.Элементы равностороннего треугольника пронумерованы следующим образом: 1 — сторона...

Что такое clrscr?
Что такое clrscr

clrscr
Как сделать очистку экрана? clrscr() в Турбо си работает?? может я не туда вставляю? ( сразу...

	12.05.2013, 11:19

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

12.05.2013, 11:19

Помогаю со студенческими работами здесь

clrscr
Какую библиотеку нужно подключить, чтоб работал оператор очистки консоли clrscr(); ? Добавлено...

#define и clrscr()
Добрый день! В прошлый раз мне тут здорово помогли...вот и сейчас, надеюсь на помощь. Коллега,...

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

Функция ClrScr
Можно ли с помощью функции ClrScr стереть часть записей а не всё?

Новые блоги и статьи
Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

Наверх