Калькулятор

Калькулятор

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 05.05.2015.

Загрузка...
Ответов: 0 Просмотров: 341 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    Uses crt;
    label goback;
    Var a,b,p,o,i:integer;
    Begin
    goback: clrscr;
    Writeln('Введите первое число');
    readln(a);
    Writeln('Введите второе число');
    readln(b);
    Writeln('Введите знак действия'+#13#10+'1=+'+#13#10+'2=-'+#13#10+'3=/'+#13#10+'4=*');
    readln(p);
    case p of
    1:Writeln('Ответ: ', a+b);
    2:Writeln('Ответ: ', a-b);
    3:Writeln('Ответ: ', a/b);
    4:Writeln('Ответ: ', a*b);
    end;
    Writeln('Введите 0 для выхода.'+#13#10+'Для повторного использования введите 1');
    readln(o);
    if (o=1) then goto goback;
    End.
     
    05.05.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.