Напишіть, що це все означаєprocedure TForm1.Button1Click(Sender: TObject);beginif edit1.Text='' then ShowMessage(Пусті значення
Напишіть, що це все означає 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;
Означает примерно следующее: После нажатия на кнопку Button1 будет проверено содержимое элементов от edit1 до edit6. Если хотя бы в одном ничего не написано, то будет выведено сообщение <span>'Пусті значення недопустимі' и работа программы закончится. Если все они заполнены, то в эт-т</span> 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 Надеюсь, ничего не перепутал, а то прям в глазах зарябило от этого текста)))
Var a, b, c, d, x1, x2 : real; \\ задание переменных действительных чисел.
begin write('a = '); readln(a); \\запрос у пользователя первого коэффициента write('b = '); readln(b); \\запрос у пользователя второго коэффициента write('c = '); readln(c); \\запрос у пользователя третьего коэффициента d := b*b - 4*a*c; \\ расчет дискриминанта if d=0 then \\ветка для решения при нулевом дискриминанте begin x1 := b / (2 * a) writeln (x1:3:3); end \\ окончание при нулевом дискриминанте else if d>0 then \\ ветка для решения при положительном дискриминанте begin x1 := (- b + sqrt(d) / (2 * a); \\ первый корень x2 := (- b - sqrt(d) / (2 * a); \\ второй корень writeln (x1:3:3, ' ', x2:3:3); \\ вывод ответа end else \\ ветка решения для отрицательного дискриминанта writeln ('Нет действительных корней'); end.
Var year, answer: Integer; begin WriteLn('V kakom gadu nochalasya voina?'); WriteLn('Vvedite god nachala WoW'); ReadLn(answer); if answer <> year then begin WriteLn('Ne pravilno, pravilniy atvet bil = ' + year); end else begin WriteLn('VERNA!'); end; end; end.