http://promodj.com/bobovina Здравствуй, слушатель! Здесь я размещаю свою музыку собственного сочинения)) Пишу в различных стилях, не во всех удачно, но главное есть прогресс, и это чувствуется если прослушать первые и последние треки. Хаус, транс, электро, техно, мнмл, драм н бэйс, дабчина, хардкорщина, рокулина, хипчара, инструменталка. Не брезгую любым проявлением музыкального творчества!)) Fri, 01 Jun 2012 06:25:23 GMT PROMODJ ru-ru http://promodj.com/bobovina/blog/666917/proga_dlya_napisaniya_muziki_v_paskale_D http://promodj.com/bobovina/blog/666917/proga_dlya_napisaniya_muziki_v_paskale_D Bobovina Fri, 30 Sep 2011 05:14:39 GMT <p>program srp;<br>uses crt;<br>var x,y,m,n,k:integer;<br>function summa(a,b:integer):integer;<br>var s:integer;<br>begin<br>summa:=a+b;<br>s:=summa;<br>end;<br>function raznost(a,b:integer):integer;<br>var r:integer;<br>begin<br>raznost:=a-b;<br>r:=raznost;<br>end;<br>function proizvedenie(a,b:integer):integer;<br>var p:integer;<br>begin<br>proizvedenie:=a*b;<br>p:=proizvedenie;<br>end;<br>begin<br>writeln('ââåäèòå x,y ');<br>readln(x,y);<br>m:=summa(x,y);<br>n:=raznost(x,y);<br>k:=proizvedenie(x,y);<br>writeln('ñóììà=',m,' ðàçíîñòü=',n,' ïðîèçâåäåíèå=',k,' ');<br>readln;<br>end.</p>