Ребята пожалуйста помогите составить Блок-схемы. Очень нужно 1 программа пожалуйста помогите составить блок схему по этой программе
Procedure TForm1.Button1Click(sender:Tobject);
Begin
If OpenDialog1.Execute=true then
Begin
Mediaplayer.FileName:=OpenDialog1.FileName;
Mediaplayer.Open;
Mediaplayer.Play;
End;
End.
Procedure TForm1.FormActivate(sender:Tobject);
Begin
Mediaplayer.Display:=GroupBox1;
End;
End.
А вот 2 часть программы ,к которой тоже нужна блок схема
Function MusicToStr(n:longint):string;
Varsity
S:string;
Sec:longint;
Min:longint;
Begin
Sec:=trunc (n/1000);
Min:=trunc (sec/60);
Sec:=trunc sec-min*60;
S:=inttostr (min);
If sec <10 then s:=s+':0'+inttostr (sec)
else s:=s+':'+inttostr (sec);
MusicToStr:=s;
End;