Мне нужно открыть файл (специально созданные музыкальные файлы), используя программу по умолчанию для этого типа файла из программы pascal. Пока я думаю, что лучший способ сделать это — использовать командную строку для запуска команды:
open C:/Users/defaultuser0/Music/filename.wav
но я не уверен, как сказать cmd что-то сделать изнутри pascal.
спросил(а) 2020-03-16T17:39:59+03:00 3 года, 3 месяца назад
добавить комментарий
пожаловаться
В Lazarus есть вызов OpenDocument, который абстрагирует эту функциональность. В Windows он перенаправляется на функцию ShellExecuteW, а на * nix пытается передать его на соответствующую открытую программу на рабочем столе (например, Open/start в Windows).
Реализация также подключается, поэтому, если вы хотите открыть определенный документ по-разному (например, PDF файлы непосредственно в adobe вместо браузера), вы можете написать перехват.
ответил(а) 2020-03-16T17:56:05.344497+03:00 3 года, 3 месяца назад
Источник: progi.pro
ПРОСТАЯ ИГРА НА PASCAL
Создать окно для программы без запуска консоли — PascalABC.NET
У меня есть листинг программы, помогите пожалуйста сделать exe файл из нее и что бы когда ее запускаешь она была не в консоле, а в окне с названием программы,покрасивее консоли и что бы была возможность отвечать на вопросы которые задает программ. вот листинг программы:
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.
Помогите пожалуйста, очень нужно
Lazarus Установка и настройка Pascal в 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.
Источник: studassistent.ru
Программа вывода цветного сообщения в отдельном окне при помощи модуля CRT
Недавно я рассказывал про модуль CRT в паскале, сегодня же публикую исходник программы, в которой используется этот модуль. Для чего нужны готовые программы и решения задач на паскаль? Для того, чтобы понять как их создавать самим, а именно для этого и существуют пояснительные комментарии.
Исходный код программы:
uses //Подключение модуля
crt;
begin
textbackground (2); //Перекраска фона в зелёный
clrscr; //Очистка экрана и применени цвета фона
textcolor (13); //Текст будет розовым цветом
gotoxy (9,6); //Курсор будет перемещён в точку (9;6)
write (‘Hi, people!’); //Вывод текста
delay (1500); //Задержка
textbackground (3); //Фон будет салатного цвета
clrscr; //Очистка экрана
gotoxy (20,20); //Курсор перемещён в точку (20;20)
textcolor (red); //Цвет текста — красный
write (‘Hi!’); //Вывод текста
readln;
end. //Конец программы
Данная программа выводит два цветных сообщения на цветном фоне в новом окне с задержкой.
Для строительства могут потребоваться иногда очень качественные ЖБИ, а где их взять? Купить в магазине, но к выбору нужно подходить осознанно.
Источник: zedpost.ru