© (‘Цвет года: *+’черный’);
memo1.Lines.Add (” );
{ ПОДСЧЕТ РАБОЧИХ ЧИСЕЛ ПО ПИФАГОРУ }
//первое рабочее
0
шшт*тгтттт*шшттшттшт
'—ил им«ч I — ни ни
Мат ь
• отцу:
- И не забудь прове-
рит ь, к а к С ерёж а ска-
чал сочинение!
С7
for х:=1 to length (s1) do
число
a1 :=a1+strtoint (s1 [x]);
s2:= inttostr(al);
forx:=1 to length (s2) do
a3:= a3 + strtoint (s2[x]);
//второе рабочее число
i2:= strtoint (s1 [1]) * 2;
i3:= a1 - i2;
//третье рабочее число
s3:=inttostr (i3);
forx:=1 to length (s3) do
a2:= a2+strtoint (s3[x]);
//четвертое рабочее число
s6:= s1 + s2 + inttostr (a3) +
s3 + inttostr (a2);
kol:= length (s6);
for koh :=0 to kol do
if (s6[kol1 ]=’()’) then
s6[kol1]:=’
s4:= s1[1]+s1[2];
s5:= s1[3]+s1[4];
s7:= s1 [5]+s1 [6]+s1 [7]+s1 [8];
i4:= strtoint (s7);
if (strtoint (s4) >=32) or (strtoint (s5) >=13) then begin
maskeditl .Clear;
MaskEditl .SetFocus;
set_tn (2,0,’PIFAGOR (c) 2001 ’);
show_tn (1 /Правильно введите дату рожде-
ния.
. .’/Copyright (с) 2001 PIFAGOR, Inc.’);
end
else begin
for b:= 1 to 9 do begin
n:=0;
i5:= b;
for i:= 1 to length (s6) do
if s6[i]= inttostr (i5) then inc (n);
ii:=0;
if n=0then ii:= i5*10
else begin
while n>0 do begin
ii:= trunc (i5*power (10, n)) +ii;
dec (n);
end;
ii:=ii div 10;
x----------
...
------
a:=inttostr (ii);
b1:=length (a);
if length (a) >4 then ii:=trunc (ii/(exp ((Ы-4) *ln
-
М о ж ет
л и
человек
умереть
от
компьютер-
ного вируса?
-
Смотря
чей
компью-
тер он заразил!
ПО))));
end;
//сканируем базу-
if not fileexists (ExtractFilePath (paramstr (0)) +
‘BASE.cds’) then
memo 1.Lines.Add (‘He обнаружена база
<BASE.cds>’);
ss:= TStringList.Create;
CDS.LoadFromFile (‘BASE.cds’);
CDS.RecNo:=1;
forn1:=1 to
CDS.RecordCount do begin
if
CDS.FieldValues[‘pos_symb’]
= ii then begin
CDS.recno:=n1;
ss.Assign
(cds. Fields. Fields[ 1 ]) ^/вы-
борка из базы по полю-
memo1.Lines.Add (ss.Text);
break;
memol .SelStart:= 0
end;
CDS.RecNo:=CDS.RecNo+1 ;//переходим к следую-
щей записи-
end
end
end
■■
1
,
,
, ............
...
Дате
рождения:
^
^
А
^
<1
х J
Программа расчета характера по системе Пифагора.
А
$i
Р
ис
.
3. Начало работы.
Р
:
ш щ
Окно тестовой утилиты
5
'
W
У моей
бабули
до
сих
пор
хранится
Евангелие 1804 года издания! Ух ты! Н е-
бось, еще на пятидюймовых дискетах?
W ikipedia:
Я знаю все!
Google:
Я найду все!
ВКонт акт е:
Я знаю всех!
In tern et:
Без меня вы
ничт о!
Электричество:
Молчать.
После компиляции тестового проекта мы увидим
окно в виде свитка, где можно ввести данные по дате
рождения
(рис. 3):
Заключение
И
спользуя
полученную
оболочку
пользователю
не составит труда добавить в нее свою базу или
оформить ее соответственно собственному вкусу и
надобностям. Удачного поиска и помните, чтобы вы
не получили в ходе расчета, не программируйте себя!
Полные
исходные
тексты
и
ресурсы
проекта
(файл
pf_res.zip)
вы можете загрузить с сайта ав-
тора
ІіНр://гахр.га(НоІіда.сот/спі/8.рІір?р=р(_ге8.гір.
Если тема представляет для вас интерес - пишите,
задавайте вопросы.
£*ена
Сергей
Серьезной
хостинговой
ком пании
требуется
квалиф ицированная уборщ ица.
Требования: зна-
ние Ш 1Х-сист ем, способность восстановить си-
стему после своих действий.
Д ва м у ж и к а разговариваю т :
- Почему твой сын т ак быстро растет, зауш и
тянешь, чт о ли?
- Не, я просто монит ор каж д ы й месяц на 5 см
поднимаю !
предыдущая страница 55 Компьютер 2012 08 читать онлайн следующая страница 57 Компьютер 2012 08 читать онлайн Домой Выключить/включить текст