Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Создать движущееся по экрану изображение змейки из разноцветных квадратов Создать движущееся по экрану изображение змейки из разноцветных квадратов https://www.cyberforum.ru/ turbo-pascal/ thread1635472.html	Вставить в список новый элемент E1 за каждым вхождением элемента E Turbo Pascal Описать процедуры, которые вставляют: а) в список L новый элемент E1 за каждым вхождением элемента E; б) в список L новый элемент E1 перед первым вхождением элемента E, если E входит в L; в) в непустой список L пару новых элементов E1 и E2 перед его последним элементом; г) в непустой список L, элементы которого упорядочены по неубыванию, новый элемент E так, чтобы сохранилась упорядоченность...
Turbo Pascal Чему будут равны элементы массива после выполнения фрагмента программы Помогите решить В программе описан одномерный целочисленный массив A с индексами от 0 до 10 и целочисленная переменная i. Ниже представлен фрагмент программы, записанный на разных языках программирования, в которых значения элементов сначала задаются, а затем меняются. Бэйсик FOR i = 0 TO 10 A(i) = i NEXT i FOR i = 9 TO 1 STEP -1 A(10 - i) = A(I)Паскальfor i:=0 to 10 do https://www.cyberforum.ru/ turbo-pascal/ thread1635412.html	Turbo Pascal Удалить из текстовых файлов строки, которые имеют одинаковые номера, но сами не являются одинаковыми https://www.cyberforum.ru/ turbo-pascal/ thread1635389.html Даны два текстовых файла. Удалить из этих файлов строки, которые имеют одинаковые номера, но сами не являются одинаковыми. Результаты записать в новый файл.
Получить из исходного файла новый файл по заданному условию Turbo Pascal Задание: Дан файл, содержащий строки целых чисел. Получить файл, содержащий последние числа каждой строки, если число меньше заданного n, то заменить его нулем. Помогите исправить ошибки)) program lab91; uses crt; var a,b: Text; n,i,l:integer; x:integer; str:string; e:char;	Turbo Pascal Определить, образует ли змея замкнутый контур https://www.cyberforum.ru/ turbo-pascal/ thread1635347.html На игровом поле размером NxM , размещено змею - непрерывную ломаную, шириной 1 ячейку, которая может сгибаться только на 90 градусов. Змея нигде не перетиняеться и нигде не соприкасается, кроме только головой к хвосту. Определить образует змея замкнутый контур. Информация о размещении змеи задано массивом 1 - если ячейка принадлежит змеи 0 - если нет. Если можно с объяснением
Turbo Pascal Вывести матрицу из файла на экран https://www.cyberforum.ru/ turbo-pascal/ thread1635211.html Может кто помочь разобраться в чем проблема, есть код и есть файл, в файле дана матрица такого типа 1234 1234 1234 1234 но при запуске ничего не происходит const m=4; n=4; var a: array of Integer; i, j: Integer;	Найти все точки, находящиеся ближе всего к самой линии круга как изнутри, так и снаружи Turbo Pascal Народ просто подскажите как решить: На плоскости задано N точек своими координатами. Также задано круг координатами центра и радиусом. Найти все точки, находящиеся ближе всего к самой линии круга как изнутри, так и снаружи.
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread1634971.html как записать в программу паскаль вот эти 3 формулы?	Turbo Pascal Сформировать другой массив, в который нечетные элементы из первого массива переписать без изменений https://www.cyberforum.ru/ turbo-pascal/ thread1634827.html Уже всю голову пробил, в чем ошибка? По сути программа должна выводить 2 массива - начальный и переработанный. на деле выходит, что получаю что-то в роде 37117 2 0 0 Вот само задание. Ниже мой вариант кода Дан массив байтов. Сформировать другой массив, в который нечетные элементы из первого массива переписать без изменений, а к четным прибавить 1.
Turbo Pascal Создать меню, с помощью которого можно выбрать цвет заливки текстового окна В построенном окне создать меню, с помощью которого можно выбрать цвет заливки текстового окна. Пункты меню 1 красный цвет 2 зеленый цвет 3 синий цвет 4 выход Не могу сделать, так что б заливал, после заливки к примеру красным, программа закрывается.	Turbo Pascal Найти заданные суммы https://www.cyberforum.ru/ turbo-pascal/ thread1634683.html Дано натуральное число N и вещественное x. Вычислить S_1=\sum_{i=1}^N (\sin x)^i S_2=\sum_{i=1}^N \sin x^i

Puporev

Почетный модератор

64303 / 47600 / 32742

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

Сообщений: 115,181

10.01.2016, 17:42

Расположение окон по углам экрана - Turbo Pascal - Ответ 8602387

10.01.2016, 17:42. Показов 1548. Ответов 1

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

Сообщение было отмечено Kolapsis как решение

Решение

Pascal

uses crt;
begin
clrscr;
window(1,1,12,5);
textbackground(2);
textcolor(15);
clrscr;
gotoXY(4,3);
write('Окно 1');
window(69,1,80,5);
textbackground(4);
textcolor(14);
clrscr;
gotoXY(4,3);
write('Окно 2');
delay(3000);
window(1,1,80,25);
textbackground(0);
textcolor(7);
clrscr;
write('Программа завершена, нажмите Enter');
readln
end.

Вернуться к обсуждению:
Расположение окон по углам экрана Turbo Pascal

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

10.01.2016, 17:42

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

Составьте программу, которая нарисует два квадрата по углам экрана
Составьте программу, которая нарисует два квадрата по углам экрана. После нажатия на "ENTER" они...

Составить программу, которая приводит к появлению четырех квадратов по углам экрана.
Составить программу, которая приводит к появлению четырех квадратов по углам экрана. После нажатия...

Работа с окнами (расположение окон каскадом,расположение окон вертикально,расположение окон)
не работает private void расположениеОконКаскадомToolStripMenuItem_Click(object sender, EventArgs...

Движение картинки от центра экрана — по диагоналям ко всем углам экрана с уменьшением размера
нужно чтобы картинка двигалась от центра экрана - по диагоналям ко всем углам экрана с уменьшением...

	10.01.2016, 17:42

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

10.01.2016, 17:42

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

Заставить символ по нажатию клавиши enter двигаться от центра экрана к углам
Нужно ввести произвольный символ с клавиатуры в центре экрана. Нажатием Enter заставить символ...

Расположение MDI-окон
У меня есть тулбар и TreeView. тулбар выравнивается поверху, TreeView - слева. Если поставить...

Расположение экземпляров окон на экране
Есть такая задача: Окно первого экземпляра приложения расположить в левом верхнем, второго - в...

Расположение окон на экране под Win10
Под Windows 10 вывожу два окна, надо чтобы GrafForm было сразу под MainForm GrafForm.Top :=...

Новые блоги и статьи
Создание UI на Python с TKinter InfoMaster 12.01.2025 TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .	HTML5 в разработке мобильных приложений InfoMaster 12.01.2025 Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .	Как создавать приложения для iOS/iPhone InfoMaster 12.01.2025 Введение в разработку iOS-приложений Разработка приложений для iOS открывает огромные возможности в мире мобильных технологий. С каждым годом количество пользователей iPhone и iPad растет,. . .	Как использовать Kotlin в Android разработке InfoMaster 12.01.2025 Язык программирования Kotlin, разработанный компанией JetBrains, стал неотъемлемой частью современного мира Android-разработки. Первоначально представленный в 2011 году, Kotlin был официально. . .	Использование Go (Golang) в backend разработке InfoMaster 12.01.2025 Язык программирования Go (Golang), разработанный компанией Google, стал важным инструментом для разработчиков программного обеспечения, особенно в области бэкенд-разработки. С момента своего. . .	Как работать с Laravel в PHP InfoMaster 12.01.2025 Laravel представляет собой современный PHP-фреймворк с открытым исходным кодом, который значительно упрощает и ускоряет процесс разработки веб-приложений. Этот фреймворк был создан с целью сделать. . .
Как программировать под HCL Notes и создавать свои продукты на ее основе InfoMaster 11.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой мощную платформу для разработки корпоративных приложений, которая сочетает в себе функции электронной почты, календаря,. . .	Как работать с SVN (Subversion) InfoMaster 11.01.2025 Система контроля версий является неотъемлемой частью современного процесса разработки программного обеспечения. Она обеспечивает управление изменениями в коде, позволяет отслеживать историю изменений. . .	Использование GraphQL в JavaScript InfoMaster 11.01.2025 Введение в GraphQL и его преимущества В современной разработке веб-приложений эффективный обмен данными между клиентом и сервером играет ключевую роль. GraphQL представляет собой язык запросов и. . .	Администрирование Git, продвинутые техники работы с Git InfoMaster 11.01.2025 Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .	Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .

Наверх