Подсчитать значение Y по формуле Y=3x^2-4, если x<0 и по формуле Y=1/3x^2-4. X меняется в интервале от -6 до 6 с шагом 1. Вывести на экран значение X и Y. ЧЕРЕЗ WHILE DO!!!! СРОЧНО!!!
Answers & Comments
armann13
Uses crt; var x, y, startX, endX n: Integer; begin x : = 1; startX := -6; if x < 0 then while x < 0 do begin if startX <> endX x := x + 1; y := 3*sqr(x) - 4 end;
if x > 0 then while x > 0 do begin if startX <> endX x := x + 1; y := (1/3*sqr(x)) - 4; end;
Answers & Comments
var x, y, startX, endX n: Integer;
begin
x : = 1;
startX := -6;
if x < 0 then
while x < 0 do
begin
if startX <> endX
x := x + 1;
y := 3*sqr(x) - 4
end;
if x > 0 then
while x > 0 do
begin
if startX <> endX
x := x + 1;
y := (1/3*sqr(x)) - 4;
end;
writeln(x);
writeln(y);
end.