Написание простого калькулятора

@arvec · Регистрация: 05.04.2011

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

может где то уже писалось но в этом разделе такой темы не нашел.
Собственно уважаемые кодеры помогите сделать.
п.С у калькулятора должно быть +,-,*,/ и возведение в степень

Fortran
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
program calc
real a,b,c
print,*'Input a'
read a
print,*'Input b'
read b
character oper
read oper
select case (operation)
case ('-')
print,*'a-b'
case ('+')
print,*'a+b'
case ('*')
print,*'a-b'
case ('/')
if (b.eq.0)then
print,*'Delutb Nelb39'
print,*'Input another b'
read b
case ('**')
print,*'BBedite a'
read a
print,*'BBedite ctepenb'
read c

на этом у меня думалка закончилась

@BakinEugene · 14.10.2011, 23:27

Интересная задачка. Вот что у меня получилось:

Fortran
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
PROGRAM calc
 
   IMPLICIT NONE
 
   CHARACTER(LEN=50)                     :: input
   REAL(KIND=16)                         :: a, b, c
   INTEGER, DIMENSION(1:5)               :: pos
   CHARACTER, PARAMETER, DIMENSION(1:5)  :: oper = (/'+','-','*','/','^'/)
   INTEGER                               :: i
 
   DO
      WRITE (*,*) ">>>"
      READ  (*,"(A50)") input
      
      input = ADJUSTL(input)
 
      IF (input.EQ."quit".OR.input.EQ."exit") EXIT
 
      pos = SCAN(input(2:),oper)
 
      DO i = 1,5
         IF (pos(i) /= 0) THEN
!            PRINT *,input(:(pos(i))),' and ',input((2+pos(i)):)
            READ (input(:(pos(i))),*) a
            READ (input((2+pos(i)):),*) b
            SELECT CASE (i)
               CASE(1)
                  c = a + b
               CASE(2)
                  c = a - b
               CASE(3)
                  c = a * b
               CASE(4)
                  c = a / b
               CASE(5)
                  c = a ** b
            END SELECT
            PRINT *,c
         END IF
      END DO
   END DO
END PROGRAM calc

Пример работы:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
eugene@eugene-laptop:~$ ./a.out 
 >>>
45+3
   48.000000000000000000000000000000000      
 >>>
-34  - 3
  -37.000000000000000000000000000000000      
 >>>
233 / 3
   77.666666666666666666666666666666671      
 >>>
234 * 213
   49842.000000000000000000000000000000      
 >>>
234 ^ 23 
  3.10430740194339822594700275211845119E+0054
 >>>
exit
eugene@eugene-laptop:~$

Новые блоги и статьи Все статьи Все блоги /
Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .	Собеседование по Node.js - вопросы и ответы Reangularity 20.05.2025 Каждому разработчику рано или поздно приходится сталкиватся с техническими собеседованиями - этим стрессовым испытанием, где решается судьба карьерного роста и зарплатных ожиданий. В этой статье я. . .	Cython и C (СИ) расширения Python для максимальной производительности py-thonny 20.05.2025 Python невероятно дружелюбен к начинающим и одновременно мощный для профи. Но стоит лишь заикнуться о высокопроизводительных вычислениях — и энтузиазм быстро улетучивается. Да, Питон медлительнее. . .	Безопасное программирование в Java и предотвращение уязвимостей (SQL-инъекции, XSS и др.) Javaican 19.05.2025 Самые распространёные векторы атак на Java-приложения за последний год выглядят как классический "топ-3 хакерских фаворитов": SQL-инъекции (31%), межсайтовый скриптинг или XSS (28%) и CSRF-атаки. . .
Введение в Q# - язык квантовых вычислений от Microsoft EggHead 19.05.2025 Microsoft вошла в гонку технологических гигантов с собственным языком программирования Q#, специально созданным для разработки квантовых алгоритмов. Но прежде чем погружаться в синтаксические дебри. . .	Безопасность Kubernetes с Falco и обнаружение вторжений Mr. Docker 18.05.2025 Переход организаций к микросервисной архитектуре и контейнерным технологиям сопровождается лавинообразным ростом векторов атак — от тривиальных попыток взлома до многоступенчатых кибератак, способных. . .	Аугментация изображений с Python AI_Generated 18.05.2025 Собрать достаточно большой датасет для обучения нейронной сети — та ещё головная боль. Часами вручную размечать картинки, скармливать их ненасытным алгоритмам и молиться, чтобы модель не сдулась при. . .	Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .

Опции темы