http://professional-pc.ucoz.ru/ Форум Wed, 21 Dec 2011 10:45:31 GMT uCoz Web-Service https://professional-pc.ucoz.ru/forum/18-21-1 Wed, 21 Dec 2011 10:45:31 GMT Форум: <a href="https://professional-pc.ucoz.ru/forum/18">Delphi</a><br />Автор темы: BRESS<br />Автор последнего сообщения: RoKоMe<br />Количество ответов: 6 На проверку знаний меня вдохновил один <a class="link" href="http://u.to/SZGd" title="http://www.gunsmoker.ru/" rel="nofollow" target="_blank">блогер</a>, который работает с Delphi. Мне до него наверное далеко, но для новичков в программировании думаю понравится... <br /><br /> <b>Задания №1:</b> <br /> (Для новичков) <br /><br /> 1. Сделайте так что бы при нажатии на Button1 из Edit1 удалялся первый символ, а при нажатии на Button2 последний. <br /><br /> <!--uSpoiler--><div class="uSpoilerClosed" id="uSpoilervXor_u"><div class="uSpoilerButBl"><input type="button" class="uSpoilerButton" onclick="if($('#uSpoilervXor_u')[0]){if ($('.uSpoilerText',$('#uSpoilervXor_u'))[0].style.display=='none'){$('.uSpoilerText',$('#uSpoilervXor_u'))[0].style.display='';$('.uSpoilerButton',$('#uSpoilervXor_u')).val('Закрыть спойлер');$('#uSpoilervXor_u').attr('class','uSpoilerOpened');}else {$('.uSpoilerText',$('#uSpoilervXor_u'))[0].style.display='none';$('.uSpoilerButton',$('#uSpoilervXor_u')).val('Открыть спойлер');$('#uSpoilervXor_u').attr('class','uSpoilerClosed');}}" value="Открыть спойлер"/></div><div class="uSpoilerText" style="display:none;"><!--ust--> <br /> <i>На самом деле все очень просто! Для этого пишем следующий код:</i> <br /><br /> procedure TForm1.Button1Click(Sender: TObject); <br /> var <br /> s : integer; <br /> ed : string; <br /> begin <br /> ed:=Edit1.Text; <br /> Delete(ed, 1, 1); <br /> edit1.Text:=ed; <br /> end <br /><br /> procedure TForm1.Button2Click(Sender: TObject); <br /> var <br /> s : integer; <br /> tex,r,ed : string; <br /> begin <br /> ed:=Edit1.Text; <br /> s := Length(ed); <br /> Delete(ed, s, 1); <br /> edit1.Text:=ed; <br /> end; <br /><br /> <!--/ust--></div></div><!--/uSpoiler--> <br /><br /> 2. Тоже довольно простое задание. Нужно найти синус целой части числа 306,314 <br /><br /> <!--uSpoiler--><div class="uSpoilerClosed" id="uSpoilermZ06jm"><div class="uSpoilerButBl"><input type="button" class="uSpoilerButton" onclick="if($('#uSpoilermZ06jm')[0]){if ($('.uSpoilerText',$('#uSpoilermZ06jm'))[0].style.display=='none'){$('.uSpoilerText',$('#uSpoilermZ06jm'))[0].style.display='';$('.uSpoilerButton',$('#uSpoilermZ06jm')).val('Закрыть спойлер');$('#uSpoilermZ06jm').attr('class','uSpoilerOpened');}else {$('.uSpoilerText',$('#uSpoilermZ06jm'))[0].style.display='none';$('.uSpoilerButton',$('#uSpoilermZ06jm')).val('Открыть спойлер');$('#uSpoilermZ06jm').attr('class','uSpoilerClosed');}}" value="Открыть спойлер"/></div><div class="uSpoilerText" style="display:none;"><!--ust--> <br /> <i> <br /> Кидаем на форму Edit и пишем:</i> <br /><br /> procedure TForm1.FormCreate(Sender: TObject); <br /> var <br /> s : real; <br /> begin <br /> s:=306.314; <br /> s:=Trunc(s); <br /> Edit1.Text:=FloatToStr(sin(s)); <br /> end; <br /><br /> Должно получиться -0,953761713493999 <br /> <!--/ust--></div></div><!--/uSpoiler--> Delphi BRESS https://professional-pc.ucoz.ru/forum/18-21-1 https://professional-pc.ucoz.ru/forum/18-23-1 Fri, 21 Oct 2011 12:44:50 GMT Форум: <a href="https://professional-pc.ucoz.ru/forum/18">Delphi</a><br />Автор темы: BRESS<br />Автор последнего сообщения: BRESS<br />Количество ответов: 0 Закончен цикл статей о создании простенькой RPG игры. Все части цикла в этой теме: <br /><br /> 1.<a class="link" href="http://professional-pc.ucoz.ru/publ/programmirovanie/rpg_party1/2-1-0-71" rel="nofollow" target="_blank">Часть 1. Создание локации</a> <br /> 2.<a class="link" href="http://professional-pc.ucoz.ru/publ/programmirovanie/sozdaem_rpg_igru_sozdanie_sprajtov_chast_2/2-1-0-77" rel="nofollow" target="_blank">Часть 2. Создание спрайтов</a> <br /> -<a class="link" href="http://professional-pc.ucoz.ru/publ/programmirovanie/sozdaem_rpg_igru_sozdanie_sprajtov_prilozhenie_k_chasti_2/2-1-0-79" rel="nofollow" target="_blank">Приложение к части 2</a> <br /> 3. <a class="link" href="http://professional-pc.ucoz.ru/publ/programmirovanie/sozdaem_rpg_igru_sozdanie_kvestov_chast_3/2-1-0-87" rel="nofollow" target="_blank">Часть 3. Создание квестов</a> Delphi BRESS https://professional-pc.ucoz.ru/forum/18-23-1 https://professional-pc.ucoz.ru/forum/18-16-1 Fri, 22 Apr 2011 10:09:20 GMT Форум: <a href="https://professional-pc.ucoz.ru/forum/18">Delphi</a><br />Автор темы: BRESS<br />Автор последнего сообщения: Sanek<br />Количество ответов: 3 Здесь обсуждаются <a class="link" href="http://professional-pc.ucoz.ru/publ/delphi/lesson_de/9" rel="nofollow" target="_blank">Уроки Delphi</a> на нашем сайте. Есть дополнения? <img rel="usm" src="http://professional-pc.ucoz.ru/sml/think.gif" border="0" align="absmiddle" alt="<_<"> Пишите! Delphi BRESS https://professional-pc.ucoz.ru/forum/18-16-1