Программы ветвящейся структуры Pascal Составить программу
var a,b,c,x,z; begin write('a b c >> ');
readln(a,b,c); if (a=4) or (c=0) or (b<=0) then writeln('wrong data') else begin x:=(7*a*b+1/(c*c))/(4-a); z:=a+x/sqrt(2*b); writeln('x = ', x, ', z = ', z) end end.
Код простецкий, писать за вас я его не стану, наметки алгоритма дам.
Алгоритм примерно такой:
1. запрашиваем пользователя значения a, b, c
2. Если (4-a <>0), то переходим к пункту 3, иначе выдаем сообщение об ошибке "а - не входит в область допустимых значений" и завершаем работу
3. Если (с<>0), то переходим к пункту 4, иначе выдаем сообщение об ошибке "c - не входит в область допустимых значений" и завершаем работу
4. Вычисляем и выводим значение x
5. Если (b>0), то переходим к пункту 6, иначе выдаем сообщение об ошибке "b - не входит в область допустимых значений" и завершаем работу
6. вычисляем и выводим z