Question

Написать программу с ветвлением в ПАСКАЛЕ

Answer 1

var x,y,a,d:real;
label 1,2;
begin
1:write('Введите d (больше нуля): ');
readln(d);
if (d<=0) then begin writeln('Введите другое значение d'); goto 1; end;
a:=sqrt(d);
2:write('Введите x (больше нуля): ');
readln(x);
if x<=0 then begin writeln('Введите другое значение x '); goto 2; end;
if x>=a then y:=sin(x)+a;
if x<a then y:=sqrt(x)+sqr(a);
writeln('Значение функции y равно ',y);
end.

Насколько я понял, вводятся две переменные: d и x (а находится из d, значение функции - из всех остальных).

Если введённое значение переменных не удовлетворяет условию x>0 и d>0, то программа заставит ввести значения снова.

Answer 2

var
x,y,a,d:real;
begin
readln(d);
readln(x);
if d<0 then begin
writeln('net resheniy');
exit;
end;
a:=sqrt(d);
if x>=a then
y:=sin(x)+a
else if (x>0) and (x<a) then
y:=sqrt(x)+a*a
else
writeln('net resheniy');
writeln(y);
end.