Напишть, що це все означаprocedure TForm1.Button1Click(Sender: TObject);beginif
Напишть, що це все означа
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
Надеюсь, ничего не спутал, а то прям в глазах зарябило от этого текста)))
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.