Тест на тему "Проєкти з полем, з уведенням даних і виведенням результатів"
- procedure TForm1.Button2Click(Sender: TObject)
- var a,func:real
- begina:=StrToFloat(Edit2.text)
- funk:=a*(4+a*a)
- end
- procedure TForm1.Button2Click(Sender: TObject)
- var a,func:real
- begina:=FloatToStr(Edit2.text)
Натисни на цю кнопку щоб побачити правильну відповідь
Правильна відповідь виділена іншим кольором.
Якщо правильних відповідей декілька, то всі вони будуть виділені іншим кольором.
-
- procedure TForm1.Button2Click(Sender: TObject)
- var a,func:real
- begina:=StrToFloat(Edit2.text)
- funk:=a*(4+a*a)
- end
- procedure TForm1.Button2Click(Sender: TObject)
- var a,func:real
- begina:=FloatToStr(Edit2.text)