Предмет: Информатика, автор: kseniya08zzz

Подсчитать значение Y по формуле Y=3x^2-4, если x<0 и по формуле Y=1/3x^2-4.
X меняется в интервале от -6 до 6 с шагом 1. Вывести на экран значение X и Y.
ЧЕРЕЗ WHILE DO!!!! СРОЧНО!!!

Ответы

Автор ответа: armann13
1
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;

writeln(x);
writeln(y);
end.
Похожие вопросы