На проверку знаний меня вдохновил один блогер, который работает с Delphi. Мне до него наверное далеко, но для новичков в программировании думаю понравится...
Задания №1: (Для новичков)
1. Сделайте так что бы при нажатии на Button1 из Edit1 удалялся первый символ, а при нажатии на Button2 последний.
На самом деле все очень просто! Для этого пишем следующий код:
procedure TForm1.Button1Click(Sender: TObject); var s : integer; ed : string; begin ed:=Edit1.Text; Delete(ed, 1, 1); edit1.Text:=ed; end
procedure TForm1.Button2Click(Sender: TObject); var s : integer; tex,r,ed : string; begin ed:=Edit1.Text; s := Length(ed); Delete(ed, s, 1); edit1.Text:=ed; end;
2. Тоже довольно простое задание. Нужно найти синус целой части числа 306,314
Кидаем на форму Edit и пишем:
procedure TForm1.FormCreate(Sender: TObject); var s : real; begin s:=306.314; s:=Trunc(s); Edit1.Text:=FloatToStr(sin(s)); end;
1. Известно что на каждый КБ определенной программы приходится N(от 1 до 10) строк. Всего КБ в программе K(от 1 до 100). Если количество строк превышает половину всех КБ в программе, то программа не будет работать.
Пусть ваша программа выведет YES, если описываемая программа будет работать. Иначе ваша программа должна вывести NO. Какой результат будет при:
N=3 K=5 N=32 K=67 ?
Кидаем на форму Edit1(для N) и Edit2(для K). Так же кинем кнопочку Button1 и Label1. Пишем код:
Code
procedure TForm1.Button1Click(Sender: TObject); var n,k:real; begin n:=strToFloat(Edit1.Text); k:=strToFloat(Edit2.Text); if (n<10) and (k<100) then begin if n < k/2 then label3.Caption:='YES' else Label3.Caption:='NO'; end; end;
2. Вопрос к разделу "КСТАТИ", для особо умных. Известно что Delphi 7 использует Object Pascal. Какой же язык программирования имеет Delphi 2007?
Тут вопрос для особо любознательных был. Delphi 2007 использует доработанный Object Pascal, который нынче называется Delphi Language.
Главная
Контакты
RSS
О сайте
Форум
Информация
О рекламе
Правила
FAQ по новостям
Термины
А так вот код программы: 
