Написать программу которая выводит значения функции y=lx-2l+lx+1l ** отрезке [-4;4] с...

Question

Написать программу которая выводит значения функции y=lx-2l+lx+1l на отрезке [-4;4] с шагом 0,5

Comments

напиши по бэйсику

---

лел

---

ok

---

jr

---

ZaXoD напишешь на Паскале?

---

желательно на Паскале

---

ну, я на паскале напишу

---

блин не знаю input или print

---

Rem Функция

---

Ну лан:

Answer 1

Private Sub Command1_Click()  
mx = f(-4)  
mn = f(-4): kmn = -4
For i = -4 To 4
If mx < f(i) Then mx = f(i)  
 If mn > f(i) Then
       mn = f(i): kmn = i    
End If
Next i
MsgBox "y(max)=" & mx & vbCr & "x_y(min)=" & kmn, vbInformation
End Sub
Function f(x)
f=((X+1)/(x ^ 2 - 2)) ^ (0.5/1)
End Function
На Visual basic

Comments

ааа я ошибся f=((X+1)/<x ^ 2 - 2)) ^ (0.5/1)

---

Прост когда я замешался в qbasic я подумал в visual basik вот и вышло... Немного помогло http://www.cyberforum.ru/

Answer 2

Var
a,i:integer;
z:real;
Begin
for i:=-8 to 8 do begin
z:=i;
z:=z/2;
Writeln( abs(z-2)+ abs(z+1))
end;
End.

Comments

var
a,i:integer;
Begin
for i:=-8 to 8 do begin
Writeln( abs((i div 2 + i mod 2)-2)+ abs((i div 2 + i mod 2)+1))

end;

End.

---

тоже желательно паскаль

---

Ребята помогите с моей последней задачей

---

да блин рус раскл! Спосибо что показал poskal

---

вот теперь всё

---

так, сорян, это не совсем то что нужно. Сейчас поправлю

---

Супер спасибо ребят очень помогли!

---

ну да

---

Всё?

---

Написать программу
Вычисление в математических задачах
Найти площадь треугольника, две стороны которого равны a и b, а угол между этими сторонами y