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

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

64304 / 47599 / 32743

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

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

10.01.2016, 17:42

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

10.01.2016, 17:42. Показов 1538. Ответов 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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

10.01.2016, 17:42

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

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

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

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

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

	10.01.2016, 17:42

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

10.01.2016, 17:42

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

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

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

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

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

Наверх