Составить программу, включающую меню из четырех пунктов: 1.создать текстовый файл из пяти строк-предложений. 2.вывести содержимое файла на экран. 3.вывести на экран количество слов, содержащих цифры. 4.выход. первые три пункта меню реализовать в процедурах, которые поместить в модуль. на делфи.

127

381

Посмотреть ответы 2

Ответы на вопрос:

vladsimonenko4

Информатика

4,7(96 оценок)

{запись 5 строк в файл } procedure tform1.button1click(sender: tobject); var outfile: textfile; begin assignfile(outfile, 'outfile.txt') ; rewrite(outfile); writeln(outfile, ' из delphi'); writeln(outfile, 'моя программа работает, и выводит ' +'данный текст, чтобы доказать '); writeln(outfile, '3. треться строка'); writeln(outfile, '234 четвертая'); writeln(outfile, 'пятая строка'); closefile(outfile); end; // вывод на экран точнее в мемо или лист боксprocedure tform1.button2click(sender: tobject); begin // выводим в мемо memo1.lines.loadfromfile('outfile.txt'); // либо в лист бокс как тебе лучше listbox1.items.loadfromfile('outfile.txt'); end; // кнопка для закрытия procedure tform1.button3click(sender: tobject); begin close; end; // событие oncloseprocedure tform1.formclose(sender: tobject; var closeaction: tcloseaction); begin if messagedlg('вы точно хотите выйти? ', mtconfirmation, mbokcancel,0)= mrok then begin closeaction: = cafree; end else begin closeaction: = canone; end; end; здесь! outfile.txt - это ваш файл(может создаваться автоматическичто нужно сделать? 1. закинуть на форму 3 кнопки2. закинуть listbox или memo3. в событиях формы в инспекторе объектов (инспетор объектов/ события/ onclose) в onclose выбрать процедуру formclose

tanyainua

Информатика

4,6(23 оценок)

print("Введіть вартість товару")

sum = input()

print("Чи маєте дисконтну картку?(0/1)")

card = bool(int(input())

if card == True or sum > 3000:

sum = sum - (sum / 20)

print(sum)

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.