сервис вопросов и ответовДУЖЕ ТРЕБА!!!!!!!!!!!!!!!!
10-11 класс|
|
допоможіть розібрати коди в делфі(напишіть що це все означає)
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.
Poli1004
28 нояб. 2016 г., 11:46:25 (7 лет назад)
Диаna
28 нояб. 2016 г., 12:29:19 (7 лет назад)
ты из украины?
если можешь напиши на русском!!
Ответить
Другие вопросы из категории
Читайте также
Будь-ласка допоможіть розв*язати задачу:))
дуже дуже треба. Буду безмежно вдячна
В країні Тріантафіло проживає садівник-бізнесмен Іван
Петрович. Іван Петрович чудовий садівник, але в бізнесі він початківець.
Займаючись квітковим бізнесом, він не завжди досягав позитивних результатів:
були і збитки і прибутки. Допоможіть Івану Петровичу визначити фінансовий стан
його фірми за 2 роки роботи.
Вхідні дані:
Вхідний потік
містить два цілих числа x, y по модулю не більше 1030: прибутки або збитки за
перший і другий роки роботи фірми.
какое количество двоичных разрядов требуется чтобы закодировать 512 байт?
какое кол-во двоичных разрядов требуется, чтобы закодировать одну из 64 клеток шахматной доски?
Для изготовления различных изделий А и В используется три виде сырья. На производство единицы изделия А его требуется затратить первого вида - 8 кг,
второго вида - 7 кг, третьего вида - 4 кг. На производство единицы изделия В требуется затратить сырья первого вида - 3 кг, второго вида - 6 кг, третьего вида - 9 кг. Производство обеспечено сырьем первого вида в колличестве 864 кг, второго вида - 864 кг, третьего вида - 945 кг. Прибыль от реализации единицы готового изделия А составляет 2 тыс. руб, В - 3 тыс. руб. Составить план производства изделий А и В, обеспечивающий максимальную прибыль от их реализации.
сколько требуется краски для покраски стен комнаты длиной a шириной b и высотой h1 если комнта имеет дверь размерами c и h2 а окно шириной f и высотой
h3.известно что на покрытее 1м^3 требуется 200 грамм краски
В компьютер вводятся два произвольных положительных числа a1 и a2 - длины сторон двух кубиков. Требуется найти объём кубика, большего по размеру.
Составьте блок-схему и протокол.
Исходные данные a1=5 , a2=20
Вы находитесь на странице вопроса "ДУЖЕ ТРЕБА!!!!!!!!!!!!!!!!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.