1. Известно, что 1 дюйм = 2,54 см. Составьте линейный алгоритм в виде блок — схемы перевода километров (k) в сантиметры (ѕ), метры (m) и дюймы (d). щураля 2. Составьте алгоритмическую модель в виде блок схемы, определяющую по трём введённым числам, могут ли эти числа быть длинами сторон треугольника. (Сумма длин двух сторон треугольника больше третьей стороны)3. Определите значение переменной f после выполнения фрагмента алгоритма. f:=0 нц для i от 1 до 4 f:=f+2*i; КЦ Составьте алгоритмическую модель в виде блок - схемы.
uses
system,system.Windows.Forms;
Var
dat:DateTime;
myForm:Form;
myButton:Button;
myTextBox:TextBox;
procedure MyButtonClick(sender:Object;e:EventArgs);
begin {при каждом нажатии на кнопку значение dat обновляется и выводится в текстовое поле}
dat:=datetime.Now;
myTextBox.Text:=dat.ToString;
end;
begin
myForm:=new Form; //создание объекта - формы
myform.Left:=500;
myform.top:=500;
myform.AutoSize:=true;
myform.Width:=300;
myform.Height:=100;
myTextBox:=new TextBox; //создание объекта - текстового поля
myTextBox.Left:=80;
myTextBox.Top:=40;
myTextBox.Enabled:=true;
myTextBox.Width:=105;
myTextBox.Height:=100;
myTextBox.MaxLength:=16;
myTextBox.ReadOnly:=false;
myTextBox.Visible:=true;
myButton:=new Button; //создание объекта - кнопки
myButton.Text:='Now';
myButton.Left:=80;
myButton.top:=80;
myButton.AutoSize:=true;
myForm.Controls.Add(myButton); //вешаем на форму кнопку и поле
myForm.Controls.Add(myTextBox);
myButton.click+=MyButtonClick; //присваиваем событие при нажатии на кнопку
Application.Run(myForm);
end.