Тема: «Разработка алгоритма и программирование задач разветвляющейся структуры»
Вариант №
Задание. Вычислить значение переменной t, используя
формулы:
ì
t = í
2x - p ,
если
x < a
Исходные данные: x, a.
îln x,
если
x ³ a
Результат вычислений: значение t. Ограничения:
3. для вычисления переменной t по формуле соответствующей условию х<а необходимо дополнительно проверить условие 2х-p³0, иначе вывести сообщение «корень не вычисляется»;
4. для вычисления переменной t по формуле соответствующей условию х³а необходимо дополнительно проверить условие х>0, иначе вывести сообщение «логарифм не вычисляется».
Схема алгоритма решения задачи имеет вид:
116
Текст программы решения задачи имеет вид: Program rabota;
Label 1;
Var x, a, t: real; begin
writeln („Ввод x, a‟); readln (x, a); If x < а Then
If 2 * x - pi >= 0 Then t: = Sqrt(2 * x - pi)
Else begin writeln („Корень не вычисляется‟); goto 1 end Else
If x > 0 Then t: = Ln(x)
Else begin writeln („ln не вычисляется‟); goto 1 end; Writeln ('При х=‟, x:6:2, „ a=‟, a:6:2, „ t=‟, t:6:2);
1: end.
Скачано с www.znanio.ru
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.