Создать файл, записать в него пример. Создать проект что подсчитывает количество арифметических операций

@DenchikPro · Регистрация: 06.10.2016

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

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

@SavelS · 30.01.2017, 21:00

Уважаемый, DenchikPro, прежде чем помочь, позволю себе включить "режим Ванги",
и сделаю ряд важных допущений, с которыми если Вы не согласны - напишите об этом.
Первое:

Сообщение от DenchikPro

Создать файл, записать в него пример.

Буду считать, что файл создаётся в директории программы пользователем,
имеет формат ".txt" и содержит арифметический пример вида: "(2+2)*2="
Второе:

Сообщение от DenchikPro

подсчитывает количество арифметических операций

Здесь считаю необходимым уточнить что именно считать за арифметическую операцию и каким образом будет записан пример, ибо:

Без конкретизации формата входных данных - решение задачи ~~невозможно~~ бессмысленно!
Так как, не существует единого для всех, формата записи математических операций.
Пример:
Мы можем записать сложение двух чисел X и Y как " X + Y = ", а можем как " - ( - X - Y ) = ", что с точки зрения математики - одно и то же. Но чтобы ответ был одинаков и по мнению программы, она в таком случае должна представлять из себя очень гибкий парсер, что весьма и весьма сложно, а главное - абсолютно нерационально.

Так что, предложу простой вариант поиска для неотрицательных чисел с "адекватным" представлением примера в виде строки. Искомыми арифметическими операциями будут: сложение, вычитание, деление, умножение, возведение в (не дробную) степень и факториал. При необходимости можно будет расширить этот список, но нужно помнить, что запись должна производиться по заранее стандартизированному шаблону с единообразным представлением той или иной операции.

Итак, на форме обычная кнопка Button1 и лэйбл Label1.
Вот код обработчика события нажатия кнопки (onClick):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
var
  F : TextFile;
  S : String;
  i : Integer;
  M : set of Char;
  Amount : Integer;
begin
  Amount:=0;
  M:=['+','-','/','*','^','!'];
  AssignFile(F, 'Text.txt');
  Reset(F);
  readln(F, S);
  for i:=1 to Length(S) do
    if not (S[i] in M) then else Amount := Amount+1;
  Form1.Label1.Caption := IntToStr(Amount);
  CloseFile(F);
end;

После нажатия на кнопку "Button1", в Лэйбле "Label1" отображается количество арифметических операций содержащихся в примере из файла.

Тестовый пример:

Кликните здесь для просмотра всего текста

Входные данные (содержимое файла):
(28 + 33) - 8 / (40 * 1,5) =

Результат (содержимое файла):
4

PS. считаю поставленную задачу не до конца описанной, в связи с чем - неразрешимой, а потому - некорректной.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@DenchikPro 0 / 0 / 0 Регистрация: 06.10.2016 Сообщений: 11

	Создать файл, записать в него пример. Создать проект что подсчитывает количество арифметических операций 30.01.2017, 18:17. Показов 1552. Ответов 1 Метки нет (Все метки) Создать файл, записать в него пример. Создать проект что подсчитывает количество арифметических операций и записывает в label. Помогите пожалуйста. 0

Опции темы

Создать файл, записать в него пример. Создать проект что подсчитывает количество арифметических операций

Решение