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