Закрыть Привет! Если вы читаете это - Вы еще не зарегистрированы. Это займет не больше минуты. Нажмите здесь, чтобы пройти регистрацию в несколько простых шагов, чтобы пользоваться всеми возможностями нашего форума. Обратите внимание, запрещены непристойные, матерные, бессмысленные (цифры, случайный набор букв) ники. Удачи!

Тема: Калькулятор. (Сложение, вычитание, деление, умножение*)

Показано с 1 по 5 из 5

  1. #1
    Пользователь

    Аватар для TemplerShow

    Статус: Оффлайн
    Регистрация:30.03.2015
    Адрес:new.pwn
    Сообщений:238
    Репутация:38 [+/-] 

    Калькулятор. (Сложение, вычитание, деление, умножение*)

    Приветствую всех, уважаемые обитатели форума!)

    Шастал на кампуктере и нашел простенький калькулятор, мне он ни к чему, а тут может и пригодится. Для чего - решайте сами
    Все довольно просто и понятно.


    Ссылка на скачивание: yadi.sk/d/sjx1CA8o3NsMdV


    PHP код:
    program mycalculator;
    uses crt;
    var
      
    A,B,C:real;
      
    D:char;

    begin
      textbackground
    (0);
      
    clrscr;
      
      
    writeln;
      
    textcolor(2);
      
    writeln('   Calculator. (Version 0.1)');
      
    textcolor(2);
      
    writeln('   Сложение, вычитание, умножение, деление.');
      
    writeln;
      
      
    textcolor(2);
      
    write('   Введите первое число и нажмите ENTER: ');
      
    readln(A);
      
      
    textcolor(2);
      
    write('   Введите знак и нажмите ENTER: ');
      
    readln(D);
      
      
    textcolor(2);
      
    write('   Введите второе число и нажмите ENTER: ');
      
    readln(B);
      
      if 
    D='+' then C:=A+B;
      if 
    D='-' then C:=A-B;
      if 
    D='/' then C:=A/B;
      if 
    D=':' then C:=A/B;
      if 
    D='x' then C:=A*B;
      if 
    D='*' then C:=A*B;
      
      
    writeln;
      
    textcolor(2);
      
    write('   Получившийся ответ: ');
      
    textcolor(2);
      
    writeln(C);
      
    writeln;
      
    writeln;
      
    writeln;
    end
    Последний раз редактировалось TemplerShow; 29.11.2017 в 00:50.
    DESIGNER, WEB-DESIGNER - vk.com/templershow


    PHP код:
    uses crt;
    begin
      textcolor
    (2);
      
    writeln('Помог мой ответ? - дай спасибку, мне будет приятно!)');
    end

    WEB DESIGN / DESIGN




    [Скрыть]
  2. 1 пользователь сказал cпасибо TemplerShow за это полезное сообщение:

    El_Novik (20.11.2017)

  3. #2
    Пользователь

    Аватар для TemplerShow

    Статус: Оффлайн
    Регистрация:30.03.2015
    Адрес:new.pwn
    Сообщений:238
    Репутация:38 [+/-] 
    В заголовке обнаружил опечаточку. Сложение, вычитание, деление, умножение*

    Модераторы, прошу Вас исправить
    DESIGNER, WEB-DESIGNER - vk.com/templershow


    PHP код:
    uses crt;
    begin
      textcolor
    (2);
      
    writeln('Помог мой ответ? - дай спасибку, мне будет приятно!)');
    end

    WEB DESIGN / DESIGN




    [Скрыть]
  4. #3
    мастер спорта

    Аватар для muv4ansky

    Статус: Оффлайн
    Регистрация:30.10.2016
    Адрес:pawno-info.ru
    Сообщений:663
    Репутация:114 [+/-] 
    В заголовке обнаружил опечаточку. Сложение, вычитание, деление, умножение*

    Модераторы, прошу Вас исправить
    Изменено.

    VK: vk.com/muvik1337
    Услуги: Кликабельно


  5. 1 пользователь сказал cпасибо muv4ansky за это полезное сообщение:

    TemplerShow (02.12.2017)

  6. #4
    /proger/

    Аватар для whale

    Статус: Оффлайн
    Регистрация:20.09.2013
    Сообщений:654
    Репутация:186 [+/-] 
    PHP код:
    if D='+' then C:=A+B;
      if 
    D='-' then C:=A-B;
      if 
    D='/' then C:=A/B;
      if 
    D=':' then C:=A/B;
      if 
    D='x' then C:=A*B;
      if 
    D='*' then C:=A*B
    ?
    PHP код:
    case D of
        
    '+' C:=A+B;
        
    '-' C:=A-B;
        
    '/'':' C:=A/B;
        
    '*''x' C:=A*B
  7. 1 пользователь сказал cпасибо whale за это полезное сообщение:

    TemplerShow (06.12.2017)

  8. #5
    Пользователь

    Аватар для TemplerShow

    Статус: Оффлайн
    Регистрация:30.03.2015
    Адрес:new.pwn
    Сообщений:238
    Репутация:38 [+/-] 
    PHP код:
    if D='+' then C:=A+B;
      if 
    D='-' then C:=A-B;
      if 
    D='/' then C:=A/B;
      if 
    D=':' then C:=A/B;
      if 
    D='x' then C:=A*B;
      if 
    D='*' then C:=A*B
    ?
    PHP код:
    case D of
        
    '+' C:=A+B;
        
    '-' C:=A-B;
        
    '/'':' C:=A/B;
        
    '*''x' C:=A*B
    Тоже можно
    DESIGNER, WEB-DESIGNER - vk.com/templershow


    PHP код:
    uses crt;
    begin
      textcolor
    (2);
      
    writeln('Помог мой ответ? - дай спасибку, мне будет приятно!)');
    end

    WEB DESIGN / DESIGN




    [Скрыть]

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения