Добавил:
3axap4uk_
Рыльский филиал МГТУ ГА.
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Практические / prakt6 / калькулятор
.pas Program calc;
var A,B,N: integer;
label 10;
BEGIN
WRITELN ('1-СЛОЖЕНИЕ');
WRITELN('2-ВЫЧИТАНИЕ');
WRITELN('3-УМНОЖЕНИЕ');
WRITELN('4-ДЕЛЕНИЕ');
10:WRITELN('Введите два вещественных числа');
READ (A,B);
WRITELN('Введите номер операции');
READ (N);
CASE N OF
1: WRITELN (A,'+',B,'=',A+B);
2: WRITELN (A,'-',B,'=',A-B);
3: WRITELN (A,'*',B,'=',A*B);
4: WRITELN (A,'/',B,'=',A/B);
END;
goto 10;
END.
var A,B,N: integer;
label 10;
BEGIN
WRITELN ('1-СЛОЖЕНИЕ');
WRITELN('2-ВЫЧИТАНИЕ');
WRITELN('3-УМНОЖЕНИЕ');
WRITELN('4-ДЕЛЕНИЕ');
10:WRITELN('Введите два вещественных числа');
READ (A,B);
WRITELN('Введите номер операции');
READ (N);
CASE N OF
1: WRITELN (A,'+',B,'=',A+B);
2: WRITELN (A,'-',B,'=',A-B);
3: WRITELN (A,'*',B,'=',A*B);
4: WRITELN (A,'/',B,'=',A/B);
END;
goto 10;
END.
Соседние файлы в папке prakt6