Вопрос по информатике:
Составить программу - калькулятор, которая запрашивает тип математической функции: 1-квадрат, 2-куб, 3 - корень квадратный, 4 - обратная функция, а также аргумент функции x и вычисляет для x соответствующую математическую функцию. Ввод чисел заканчивается нажатием клавиши 0. Протокол работы программы: Выберите тип математической функции: 1-квадрат, 2-куб, 3 - корень квадратный, 4 - обратная функция, 0- выход. 1 Введите аргумент функции: 5 Ответ: 5*5=25 Выберите тип математической функции: 1-квадрат, 2-куб, 3 - корень квадратный, 4 - обратная функция, 0- выход. 4 Введите аргумент функции: 4 Ответ: 1/4=0,25 Выберите тип математической функции: 1-квадрат, 2-куб, 3 - корень квадратный, 4 - обратная функция, 0- выход.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.08.2015 13:35
- Информатика
- remove_red_eye 9048
- thumb_up 45
Ответы и объяснения 1
f:byte;
x:real;
Begin
WriteLn('Выберите тип математической функции:');
WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.');
ReadLn(f);
While f 0 do
Begin
Write('Введите x: ');ReadLn(x);
Case f of
1:
if x < 0 then WriteLn(x,'*(',x,') = ',x*x)
else WriteLn(x,'*',x,' = ',x*x);
2:
if x < 0 then WriteLn(x,'*(',x,')*(',x,') = ',x*x*x)
else WriteLn(x,'*',x,'*',x,' = ',x*x*x);
3:
if x < 0 then WriteLn('√',x,' = ',Sqrt(-x),'i')
else WriteLn('√',x,' = ',Sqrt(x));
4:
if x = 0 then WriteLn('Ошибка: на ноль делить нельзя!')
else if x < 0 then WriteLn('1/(',x,') = ',1/x)
else WriteLn('1/',x,' = ',1/x);
End;
WriteLn;
WriteLn('Выберите тип математической функции:');
WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.');
ReadLn(f);
End;
End.
Пример работы программы:
Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
1
Введите x: -8
-8*(-8) = 64
Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
3
Введите x: 14
√14 = 3.74165738677394
Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
4
Введите x: 0
Ошибка: на ноль делить нельзя!
Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
4
Введите x: 16
1/16 = 0.0625
Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
0
- 08.08.2015 15:40
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.