Как в паскале записать программу , решающее выражение 7х²-2(х-3)/х-3? Проводится работа с...

Question

Как в паскале записать программу , решающее выражение 7х²-2(х-3)/х-3?
Проводится работа с операторами (если, то, иначе) и при написании вылезает ошибка 1001 "переменной не присвоено значение". Что делать, спасите?

Comments

Они переменные из-за того, что меняются в зависимости от значения х.

---

Они на кириллице, надеюсь в программе вашей это не так?

---

VARx,a,b: Integer;y: Real;Beginx:= StrToInt(Edit1.Text);if  x = 3 then begin ShowMessage('Знаменатель равен 0!');end else begina:= x - 3;b:= 7 * x * x - a * 2;y:=b / a;Edit2.Text:= FloatToStr(y);end;end;

---

Не в кириллице

---

В программе все так

---

А разницы в вашем примере нет, хоть Делфи, хоть Паскаль

---

Делфи?

---

в Делфи по крайней мере

---

Все работает

---

Вот это загнул.

Answer 1

VAR
x,a,b: Integer;
y: Real;
Begin
WriteLn('Введите x');ReadLn(x);
if  x = 3 then begin
WriteLn('Знаменатель равен 0!');
end else begin
a:= x - 3;
b:= 7 * x * x - a * 2;
y:=b / a;
WriteLn(y);
end;
end.

Comments

Мне не жалко.

---

Так то ответ Nobugana был первым)

---

просто твой правильный, а спасибо я ж вам обоим сказала :э

Answer 2

//Мои скромные соображения относительно данной задачи. Если написала не то, не обессудьте.
var x:integer;
y:real;
Begin;
Writeln ('Введите значение х:');
Readln(x);
If x=3 then writeln ('Знаменатель равен 0!')
else
y:=(7*sqr(x)-(x-3)*2)/(x-3);
Writeln('у=',y);
End.

Comments

числа 2 перед (х-3) не зватает

---

Спасибо :)

---

чет туплю

---

Оно позади.