Question

Напишіть, що це все означаєprocedure TForm1.Button1Click(Sender: TObject);beginif edit1.Text='' then ShowMessage(Пусті значення недопустимі') elseif edit2.Text='' then ShowMessage('Пусті значення недопустимі') elseif edit3.Text='' then ShowMessage('Пусті значення недопустимі') elseif edit4.Text='' then ShowMessage('Пусті значення недопустимі') elseif edit5.Text='' then ShowMessage('Пусті значення недопустимі')elseif edit6.Text='' then ShowMessage('Пусті значення недопустимі')else beginedit7.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.

Answer 1

Означает примерно следующее:
После нажатия на кнопку 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
Надеюсь, ничего не перепутал, а то прям в глазах зарябило от этого текста)))