Создать простенькую форму для программы чтобы на кнопку старт программа запускалась (курсовая)

05.06.2018, 16:11. Показов 802. Ответов 0

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

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Program Eyler;
Uses CRT;
Const
        n = 7;     {Skoka vershin}
        START = 1; {S kakoy vershinyi na4inat' poisk}
Type
        point = record
                link: Byte;
                mark: Boolean;
                end;
Var
        a: Array[1..n,1..n] of point;
        g: Integer;
 
Procedure Searching(r: Byte);
Var i, j: Byte;
Begin
For i := 1 to n do
    Begin
    If (a[i,r].link = 1) then
       Begin
       a[i,r].link := 0;
       a[r,i].link := 0;
       Searching(i);
       End;
    End;
ReadKey;
Write(r,' - ');
End;
 
Procedure CreateMatrix;
Var i, j: Byte;
Begin
For i := 1 to n do
    Begin
    Writeln('Вершина № ',i,#13#10,'(0 - связи нет, 1 - связь есть)');
    For j := i to n do
        Begin
        If (i = j) then Continue;
        Write('Связь ',i,'-ой вершины с ',j,'-ой: ');
        Read(a[i,j].link);
        a[j,i].link := a[i,j].link;
        End;
    End;
End;
 
Procedure ExitProg;
Begin
Write(#13#10,'- Программа завершена. Нажмите любую клавишу для выхода -');
ReadKey;
Halt(0);
End;
 
Begin
ClrScr;
CreateMatrix;
Searching(START);
ExitProg;
End.

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

05.06.2018, 16:11

Ответы с готовыми решениями:

Qmake. Создать цель для make, чтобы она автоматом не запускалась
Здравствуйте! Не могу найти инфу относительно следующего: нужно сделать цель в Makefile, пусть это будет некая x. Проблема в том, что...

Сделать так, чтобы при нажатии на кнопку на листе excel запускалась процедура записи макроса
Как сделать так, чтобы при нажатии на кнопку на листе excel запускалась процедура записи макроса? То есть нужно чтобы при выполнении...

Создайте кнопки для выбора двух цветов и кнопку Старт. После нажатия кнопки Старт надпись должна мигать выбранными цвет
Создайте кнопки для выбора двух цветов и кнопку Старт. После нажатия кнопки Старт надпись должна мигать выбранными цветами.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

05.06.2018, 16:11

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

Как подключить форму, что б при запуске программы она запускалась первой ?
У меня имеется программа,и имеется интерфейс для ее "запуска" , мне необходимо подключить эту форму с интерфейсом , где имеется кнопка для...

Как сделать, чтобы программа не запускалась на Windows 7?
как сделать чтобы программа не запускалась на Windows Xp, vista, 7,а запускалась только на Windows 8, 8.1,10?

Как сделать, чтобы программа запускалась под x64
Вопрос вот в чем, делаю программу, часть уже написал, но контора, для которой программа резко перешла на Windows 10 x64, а делал я на...

Как сделать, чтобы с флешки при её подключении запускалась программа?
Нужно сделать чтобы после того как я вставлю флешку, запускалась на ней определенная программа, как это сделать? Создаю файл autorun.inf...

Как сделать так чтобы простейшая программа запускалась сначало
Предположим есть самая простая программа: #include <iostream> using namespace std; #include <cmath> int main() { double...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

Наверх