Создать окно для программы без запуска консоли

@xProstoix · Регистрация: 23.06.2015

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

У меня есть листинг программы, помогите пожалуйста сделать exe файл из нее и что бы когда ее запускаешь она была не в консоле, а в окне с названием программы,покрасивее консоли и что бы была возможность отвечать на вопросы которые задает программ.

вот листинг программы:

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
program expert;
var nr,bm,z,chss,chdd,soe,tr,r,gi,p,fon,mon,eo,rras,rraz,ed,tz,l,lu,G1,G2,G3:real;
begin
writeln ('Были ли нарушения режима (1-нет,2-да)?');
readln (nr);
writeln ('Бацилловыделение микроскопия:');
readln(bm);
writeln('Было ли заключение (0-нет, 1-да)?');
readln(z);
writeln('ЧСС:');
readln(chss);
writeln('ЧДД:');
readln(chdd);
writeln('СОЭ:');
readln(soe);
writeln('Район (1-6):');
readln(r);
writeln('Тип района (1-3):');
readln(tr);
writeln('Жалобы интоксикационного характера (0-нет;1-слабость;2-падение массы тела;3-слабость+падение массы тела):');
readln(gi);
writeln('Фон в легочных тканях (1-не изменен;2-един.очаги,невыраж.фиброз;3-множ.очаги,выраж.фиброз,4-петрификаты;5-локальный фиброз):');
readln(fon);
writeln('Палочкоядерные:');
readln(p);
writeln('Моноциты:');
readln(mon);
writeln('Эозинофилы:');
readln(eo);
writeln('Распад легочной ткани (распростр) (0-отсутствует;1-множ.мелкий;2-множ.2-4см;3-множ.более4):');
readln(rras);
writeln('Распад легочной ткани (размер) (0-отсутствует;1-1-1,5см;2-2-3см;3-4см):');
readln(rraz);
writeln('Образование (0-нет;1-незаконч.среднее;2-среднее;3-среднеспец;4-неоконч.высшее;5-высшее):');
readln(ed);
writeln('Трудовая занятость (1-студент;2-работает;3-не работает;4-пенсионер;5-инвалид):');
readln(tz);writeln('Лейкоциты:');
readln(l);
writeln('Лекарственная устойчивость МБТ (0-нет;1-монорезист;2-полирезист;3-МЛУ;4-ШЛУ):');
readln(lu);
G1:=(7.38*nr)-(0.3921*bm)+(2.9361*z)+(0.8497*chss)-(0.1331*soe)+(9.1949*tr)-(2.3797*r)+(0.9529*chdd)-(1.9270*gi)+(0.7418*p)+(3.7940*fon)+(0.5549*mon)+(1.2189*eo)+(1.6602*rras)+(0.6465*rraz)+(3.2676*ed)+(4.6376*tz)+(0.9712*l)+(3.0311*lu)-80.0499;
writeln(G1);
G2:=(11.8240*nr)+(1.0042*bm)+(2.8782*z)+(0.7966*chss)-(0.1022*soe)+(13.8645*tr)-(4.2363*r)+(0.8687*chdd)-(1.6522*gi)+(0.7914*p)+(4.1867*fon)+(0.4483*mon)+(1.2278*eo)+(1.1655*rras)+(1.6718*rraz)+(2.7476*ed)+(4.2509*tz)+(1.0602*l)+(2.9193*lu)-83.6718;
writeln(G2);
G3:=(13.202*nr)+(0.662*bm)+(11.812*z)+(0.947*chss)-(0.124*soe)+(14.360*tr)-(4.956*r)+(1.073*chdd)-(2.308*gi)+(1.238*p)+(5.243*fon)+(0.285*mon)+(0.815*eo)+(1.531*rras)+(2.179*rraz)+(2.419*ed)+(4.599*tz)+(1.252*l)+(3.832*lu)-112.538;
writeln(G3);
if (G1>G2)and(G2>G3) then writeln('Предполагаемая эффективность лечения:Достижение результата');
if (G2>G1)and(G1>G3) then writeln('Предполагаемая эффективность лечения:Сохранение результата');
if (G3>G1)and(G1>G2) then writeln('Предполагаемая эффективность лечения:Прогрессирование заболевания');
readln;
end.

Помогите пожалуйста, очень нужно

@xProstoix · 24.06.2015, 02:34 **[ТС]**

помогите пожалуйста очень нужно для защиты диплома, а в программировании я вообще нини

@SergMolo · 25.06.2015, 13:00

Подключи GraphABC.

Pascal
1
uses GraphABC;

Название окна:

Pascal
1
Window.Title := 'Эксперт';

Размер шрифта:

Pascal
1
Font.Size := 12;

Сам шрифт:

Pascal
1
Font.Name := 'Times New Roman';

Вот так вставлять:

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
{$apptype windows}
program expert;
uses GraphABC;
var nr,bm,z,chss,chdd,soe,tr,r,gi,p,fon,mon,eo,rras,rraz,ed,tz,l,lu,G1,G2,G3:real;
begin
Window.Title := 'Эксперт по медицине';
Window.Width := 800;
Font.Size := 12;
Font.Name := 'Times New Roman';
writeln ('Были ли нарушения режима (1-нет,2-да)?');
readln (nr);
writeln ('Бацилловыделение микроскопия:');
readln(bm);
writeln('Было ли заключение (0-нет, 1-да)?');
readln(z);
writeln('ЧСС:');
readln(chss);
writeln('ЧДД:');
readln(chdd);
writeln('СОЭ:');
readln(soe);
writeln('Район (1-6):');
readln(r);
writeln('Тип района (1-3):');
readln(tr);
writeln('Жалобы интоксикационного характера (0-нет;1-слабость;2-падение массы тела;3-слабость+падение массы тела):');
readln(gi);
writeln('Фон в легочных тканях (1-не изменен;2-един.очаги,невыраж.фиброз;3-множ.очаги,выраж.фиброз,4-петрификаты;5-локальный фиброз):');
readln(fon);
writeln('Палочкоядерные:');
readln(p);
writeln('Моноциты:');
readln(mon);
writeln('Эозинофилы:');
readln(eo);
writeln('Распад легочной ткани (распростр) (0-отсутствует;1-множ.мелкий;2-множ.2-4см;3-множ.более4):');
readln(rras);
writeln('Распад легочной ткани (размер) (0-отсутствует;1-1-1,5см;2-2-3см;3-4см):');
readln(rraz);
writeln('Образование (0-нет;1-незаконч.среднее;2-среднее;3-среднеспец;4-неоконч.высшее;5-высшее):');
readln(ed);
writeln('Трудовая занятость (1-студент;2-работает;3-не работает;4-пенсионер;5-инвалид):');
readln(tz);writeln('Лейкоциты:');
readln(l);
writeln('Лекарственная устойчивость МБТ (0-нет;1-монорезист;2-полирезист;3-МЛУ;4-ШЛУ):');
readln(lu);
G1:=(7.38*nr)-(0.3921*bm)+(2.9361*z)+(0.8497*chss)-(0.1331*soe)+(9.1949*tr)-(2.3797*r)+(0.9529*chdd)-(1.9270*gi)+(0.7418*p)+(3.7940*fon)+(0.5549*mon)+(1.2189*eo)+(1.6602*rras)+(0.6465*rraz)+(3.2676*ed)+(4.6376*tz)+(0.9712*l)+(3.0311*lu)-80.0499;
writeln(G1);
G2:=(11.8240*nr)+(1.0042*bm)+(2.8782*z)+(0.7966*chss)-(0.1022*soe)+(13.8645*tr)-(4.2363*r)+(0.8687*chdd)-(1.6522*gi)+(0.7914*p)+(4.1867*fon)+(0.4483*mon)+(1.2278*eo)+(1.1655*rras)+(1.6718*rraz)+(2.7476*ed)+(4.2509*tz)+(1.0602*l)+(2.9193*lu)-83.6718;
writeln(G2);
G3:=(13.202*nr)+(0.662*bm)+(11.812*z)+(0.947*chss)-(0.124*soe)+(14.360*tr)-(4.956*r)+(1.073*chdd)-(2.308*gi)+(1.238*p)+(5.243*fon)+(0.285*mon)+(0.815*eo)+(1.531*rras)+(2.179*rraz)+(2.419*ed)+(4.599*tz)+(1.252*l)+(3.832*lu)-112.538;
writeln(G3);
if (G1>G2)and(G2>G3) then writeln('Предполагаемая эффективность лечения:Достижение результата');
if (G2>G1)and(G1>G3) then writeln('Предполагаемая эффективность лечения:Сохранение результата');
if (G3>G1)and(G1>G2) then writeln('Предполагаемая эффективность лечения:Прогрессирование заболевания');
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@xProstoix 0 / 0 / 0 Регистрация: 23.06.2015 Сообщений: 2
	24.06.2015, 02:34 [ТС]
	помогите пожалуйста очень нужно для защиты диплома, а в программировании я вообще нини 0