М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ryabtsev08
ryabtsev08
13.12.2022 06:36 •  Информатика

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

👇
Ответ:
ReginaRem27
ReginaRem27
13.12.2022

Для вычисления алгебраического выражения, представленного текстом, требуется написать простенький анализатор этих самых выражений. Изначально мы имеет Выражение, из которого должны, с различных вычислений получить Число.

Для этого разберёмся, что же такое число и выражение, и какие они бывают.


Понятия и определения:

1) Число. Может быть целым или дробным. Запишем это так (в /.../ записано регулярное выражение для всех неотрицательных чисел, отрицательные рассмотрим, как выражение)

Число :- строка вида /[0-9]+(.[0-9]+)?/ или число на паскале

2) У Выражения можество определений. Во-первых, число само по себе тоже является выражением, возвращающим само себя. Во-вторых число {+,-,*,итд} выражение тоже являются выражением.

Набор рекурсивных определений:

Выражение :- Число

Выражение :- -Число

Выражение :- (Выражение)

Выражение :- Число + Выражение

Выражение :- Число - Выражение

Выражение :- Число * Выражение

Выражение :- Число \ Выражение


Список можно продолжить и для других математических операций.

Используя эти определения можно написать программу, которая реализует предикаты (функции) Число() и Выражение() (функции называй, как хочешь). Особенно удобно это делать на логических языках программирования по типу Prolog, так как её код очень похож на то, что записано выше.

Для паскаля же (или того же c++) нужно писать рекурсивную программу.

Далее псевдокод:

void ВывестиОшибку(){

Print("У тебя что-то не то с выражением!! Перепиши!");

}

real Число(string numb){

    if(/[0-9]+(.[0-9]+)?/.IsMatch(numb) <> true) ВывестиОшибку();

    return StrToInt(numb);

}

real Число(real numb){

    return numb;

}

real Выражение (string expr) {

    if(/[0-9]+(.[0-9]+)?/.IsMatch(expr)){

         // Вариант: число

         return Число(expr);

    }

    else if(/-[0-9]+(.[0-9]+)?/.IsMatch(expr)){

         // Вариант: -число

         return -Число(expr);

    }

    else if(/\((.+)\)/.IsMatch(expr)){

         // Вариант: (выражение)

         return Выражение(/\((.+)\)/.Match(expr)[1]); //Используя группы регулярных выражений вытаскиваем содержимое из скобок

    }

    else if(/([0-9]+(?.[0-9]+)?)\+(.+)/.IsMatch(expr)){

         // Вариант: число + выражение

         real numb = /([0-9]+(?.[0-9]+)?)\+(.+)/.Match(expr)[1]; // Вытаскиваем Число

         expr = /([0-9]+(?.[0-9]+)?)\+(.+)/.IsMatch(expr)[2]; // Вытаскиваем Выражение

         return Число(numb) + Выражение(expr); // Складываем

    } else if (...далее для остальных (-,*,/) знаков...) {}

   else {

         //Если ничего не подошло, значит ошибка в выражении.

        ВывестиОшибку();

   }

}


P.S. В выражении не может быть пробелов. Если нужна поддержка пробелов, подкорректируй регулярки.

4,7(97 оценок)
Открыть все ответы
Ответ:
Стариат
Стариат
13.12.2022
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]);
  var n := ReadInteger('n->');
  for var i := 4 downto 0 do
  begin
    k[i] := n div t[i];n := n mod t[i];
  end; 
  if k[0] * cost[0] >= cost[1] then begin k[0] := 0;inc(k[1]); end;
  if k[0] * cost[0] + k[1] * cost[1] >= cost[2] then 
  begin
    k[0] := 0;k[1] := 0;inc(k[2]); 
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] >= cost[3] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;inc(k[3]);
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] >= cost[4] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;k[3] := 0;inc(k[4]); 
  end;
  
  for var i := 0 to 4 do WritelnFormat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);
end.

Пример(1):
n-> 37
1 билет(ов)- 0 штук(а)
5 билет(ов)- 0 штук(а)
10 билет(ов)- 0 штук(а)
20 билет(ов)- 0 штук(а)
60 билет(ов)- 1 штук(а)

Пример(2):
n-> 35
1 билет(ов)- 0 штук(а)
5 билет(ов)- 1 штук(а)
10 билет(ов)- 1 штук(а)
20 билет(ов)- 1 штук(а)
60 билет(ов)- 0 штук(а)
4,7(10 оценок)
Ответ:
naletova1974
naletova1974
13.12.2022

Скорее всего большое приемущество обработки данных с электронных  таблиц  в том ,что при такой обработке  допущение ошибки минимально (  это уже зависит от человека ,где он неправильно ввёл данные ) . Если же обрабатывать таблицу вручную ,то верояность допущения ошибок велика!
Так же преимущество  в том ,что при обработке информации при таблицы  намного быстрее проходит этот процесс ,нежеле ты сама  будешь всё  проверять .
Ну и конечно же  люди сейчас настолько ленивы ,чтобы самостоятельно обрабатывать какую-либо информацию, поэтому мы всё доверяем исскуственному разуму:) 

4,4(89 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ