Var a,b,c,x,y:real; begin Write('Введите a и b: '); Read(a,b); repeat Write('Введите c, не равное нулю: '); Read(c) until c<>0; x:=2*sqr(a)-b/(3*c); { Если Вы относитесь к людям, ненавидящим скобки и тех, кто решает Ваши задания, то в Вашем условии на 3а делится все выражение, и тогда предыдущая строка должна иметь вид x:=(2*sqr(a)-b)/(3*a); } if x>=0 then begin y:=sqrt(x+sqr(c))+4*a*b; Writeln('x=',x,', y=',y) end else Writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение') end.
Тестовое решение: Введите a и b: 3.4 -2.18 Введите c, не равное нулю: 0 Введите c, не равное нулю: 5.172 x=23.2605001288992, y=-22.5762191684909
ВЫПОЛНЕНИЕ - активное состояние процесса, во время которого процесс обладает всеми необходимыми ресурсами и непосредственно выполняется процессором; ОЖИДАНИЕ - пассивное состояние процесса, процесс заблокирован, он не может выполняться по своим внутренним причинам, он ждет осуществления некоторого события, например, завершения операции ввода-вывода, получения сообщения от другого процесса, освобождения какого-либо необходимого ему ресурса; ГОТОВНОСТЬ - также пассивное состояние процесса, но в этом случае процесс заблокирован в связи с внешними по отношению к нему обстоятельствами: процесс имеет все требуемые для него ресурсы, он готов выполняться, однако процессор занят выполнением другого процесса.
Картинка длжна быть в папке с программой и быть в формате BMP
uses graphabc;
var b: Picture;
begin
b := Picture.Create('banner.bmp');
b.Load(n);
b.Draw(200, 200);
end.