Напишіть, що це все означає procedure tform1.button1click(sender: tobject); begin if edit1.text='' then showmessage(пусті значення недопустимі') else if edit2.text='' then showmessage('пусті значення недопустимі') else if edit3.text='' then showmessage('пусті значення недопустимі') else if edit4.text='' then showmessage('пусті значення недопустимі') else if edit5.text='' then showmessage('пусті значення недопустимі')else if edit6.text='' then showmessage('пусті значення недопустимі')else begin edit7.text: =floattostr(strtofloat(edit1.text)*strtofloat(edit4.text)); edit10.text: =floattostr(strtofloat(edit7.text)/100*13); edit13.text: =floattostr(strtofloat(edit7.text)-strtofloat(edit10.text)); edit8.text: =floattostr(strtofloat(edit2.text)*strtofloat(edit5.text)); edit11.text: =floattostr(strtofloat(edit8.text)/100*13); edit14.text: =floattostr(strtofloat(edit8.text)-strtofloat(edit11.text)); edit9.text: =floattostr(strtofloat(edit3.text)*strtofloat(edit6.text)); edit12.text: =floattostr(strtofloat(edit9.text)/100*13); edit15.text: =floattostr(strtofloat(edit9.text)-strtofloat(edit12.text)); edit16.text: =floattostr(strtofloat(edit13.text)+strtofloat(edit14.text)+strtofloat(edit15.text)); end; end; end.
После нажатия на кнопку Button1 будет проверено содержимое элементов от edit1 до edit6. Если хотя бы в одном ничего не написано, то будет выведено сообщение 'Пусті значення недопустимі' и работа программы закончится. Если все они заполнены, то
в эт-т edit7 запишется произведение чисел, нах-ся в edit1 и edit2,
в эт-т edit10 запишется число, равное , числу из edit7 /100 * 13,
в эт-т edit13 запишется число, равное разности чисел из edit7 и edit10,
в эт-т edit8 запишется произведение чисел, нах-ся в edit2 и edit5,
в эт-т edit11 запишется число, равное , числу из edit8 /100 * 13,
в эт-т edit14 запишется число, равное разности чисел из edit8 и edit11,
в эт-т edit9 запишется произведение чисел, нах-ся в edit3 и edit6,
в эт-т edit12 запишется число, равное , числу из edit9 /100 * 13,
в эт-т edit15 запишется число, равное разности чисел из edit9 и edit12,
в эт-т edit16 запишется число, равное сумме чисел из edit13, edit14 и edit15
Надеюсь, ничего не перепутал, а то прям в глазах зарябило от этого текста)))