Предмет: Информатика,
автор: kseniya08zzz
Подсчитать значение Y по формуле Y=3x^2-4, если x<0 и по формуле Y=1/3x^2-4.
X меняется в интервале от -6 до 6 с шагом 1. Вывести на экран значение X и Y.
ЧЕРЕЗ WHILE DO!!!! СРОЧНО!!!
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: История,
автор: milanatish3006
Предмет: Русский язык,
автор: dhdjsjfjdk
Предмет: География,
автор: ivangorulko53
Предмет: Математика,
автор: Нигяр1