Програмку в паскаль напишите кто знает ** составить программу калькулятор который после ввода 2 чисел и одного из знаков плюс или минус произведет вычисление а результат выдаст на экран
Здесь есть проверить, либо из восьмеричную систему счисления перевести в двоичную, либо из двоичную в восьмеричную, и тогда легче смотреть равны ли. И так первый это перевод из восьмеричную в двоичную: 2 - 010, 3 - 011 и 5 - 101 = 010010101011011 но первое число 0 не входи поэтому убираем и получаем 10010101011011. Второй это перевод из двоичную в восьмеричную: начинаем с конца - 011 это число 3(восьмеричная), 101 - 5 и 010 - 2, но учитывайте если остались числа 10 то в начале вписываем число 0 получим 010, в итоге 22533.
Программа получает со ввода значение H и выполняет табуляцию функции F(t,H)=11(t-H)²+13 на интервале [0;30]. На вывод поступает значение t, при котором функция F(t,H) принимает максимальное значение. В задании требуется определить максимальную величину H, при которой функция F(t,H) на заданном интервале принимает максимальное значение для t=30, т.е. на правом конце интервала. График функции F(t,H) - это квадратная парабола, ветви которой направлены вверх, поэтому максимальное значение такой функции достигается на одном или одновременно на обоих концах интервала. Для нашего случая F(30,H) > F(0,H) 11(30-H)²+13 > 11(0-H)²+13 11(900-60H+H²)+13 > 11H²+13 9900-660H+11H²+13 > 11H²+13 9900-660H > 0 ⇒ H < 9900/660 или H<15. В целых числах получаем H=14 (в программе H описывается как integer). ответ: H=14
Так?
Program P1;
Var a, b : Integer;
s : Char;
Begin
Write('Введи 1 число: ');
Readln(a);
Write('Введи знак(+ или -): ');
Readln(s);
Write('Введи 2 число: ');
Readln(b);
Case s of
'-': Write(a, ' - ', b, ' = ', a - b);
'+': Write(a, ' + ', b, ' = ', a + b);
Else
Write('Неверный символ!');
End;
Readln;
End.