Презентация на тему по информатике Процедуры и функции

s,t:integer;
v:real;
begin
s:=StrToInt(Edit1.Text);

t:=StrToInt(Edit2.Text);
v:=s/t;
label4.Caption:='Скорость= ‘+ +floattostrf (v, fffixed, 4, 2) + 'м/с';
end;

помощью процедуры}

Var s,t:integer; v:real; {описание локальных переменных, встречающихся в

процедуре и их типов}
begin
s:=StrToInt(Edit1.Text); {перевод строковой величины в целое число}
t:=StrToInt(Edit2.Text);
v:=s/t;
label4.Caption:='Скорость= ‘+ +floattostrf (v, fffixed, 4, 2) + 'м/с'; {перевод дробного числа в строку для вывода на компонент label4}
end;