Часть блок-схемы: Портфолио фрилансера Дмитрий Король_kodiua 14.01.2009, работа №3 - FL.RU
Дмитрий Король_kodiua
Стоимость указана, чтобы вам было проще оценить примерные расходы на решение вашей задачи. Окончательную цену фрилансер сможет сообщить в личной беседе после уточнения деталей.
Похожая работа будет стоить
1 usd
К списку работ
Дмитрий Король_kodiua
Дмитрий Король_kodiua

Часть блок-схемы

image
Часть блоксхемы программы на делфи Procedure sing(Code:integer); begin Tochka := StrToInt(form1.Edit1.Text) ; // длительность точки Tire := (Tochka*3); // длительность тире= точка * 3 Tone := StrToInt(form1.Edit2.Text); // тон звука Case Code of 0 : windows.Beep(Tone,Tochka); //- точка 1 : windows.Beep(Tone,Tire); //- тире 2 : Sleep(Tochka*3); //- пауза между буквами в слове 3 : Sleep(Tochka*7); //- пауза между словами (пробел) end; Sleep(Tochka); //- пауза между знаками в букве end;