Складання та виконання проектів з повтореннями та розгалуженнями для опрацювання величин (2 частина)

12

15

16

4

Position

Visible

Font

Caption

WindowState

ShowMessage

ScrollBar

Icon

Label9

Edit2

Label5

Button1

for i : = 1 to N do

result : = result + result * P;

while result < = K do

begin

result : = result + result * P;

i : = i + 1;

end;

repeat

i : = i + 1

until N mod i = 0;

while result < = K

Then begin

result : = result + result * P;

i : = i + 1;

end;

Для перемикачів

Для циклу з передумовою

Для прапорців

Для циклу з лічильником

while result < = K do

begin

result : = result + result * P;

i : = i + 1;

end;

for i := 1 to N do;

result : = result + result * P;

for i := 1 to N do;

result : result + result * P;

while result < = K do

result : = result + result * P;

i : = i + 1;

TButton, TLabel, TEdit

TMemo, TLabel, TRadioButton

TButton, TEdit, TComboBox

TComboBox, TEdit, TCheckBox