Исходники и листинги ::: Delphi :::

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
  unit Unit1;
 
  interface
 
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Buttons, XPMan, Mask;
 
  type
    TForm1 = class(TForm)
      Urovn: TStaticText;
      x: TStaticText;
      BitBtn1: TBitBtn;
      otv: TStaticText;
      XPManifest1: TXPManifest;
      otv2: TStaticText;
      StaticText1: TStaticText;
      StaticText2: TStaticText;
      edit1: TMaskEdit;
      procedure BitBtn1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
 
  var
    Form1: TForm1;
 
  implementation
 
  {$R *.dfm}
 
  procedure TForm1.BitBtn1Click(Sender: TObject);
  var ed:real;
       ed2,tr,stotr,dev,trin,shest,w,shesnad,
       cel,drob,x:Longint;
            s,s1,s3,s6: string;
  begin
  if edit1.Text='' then
   begin otv.Caption:='0';
    otv2.Caption:='0';
   end
  else
 
   begin
 
    ed:= cos(0) ;
    otv.Caption:=floatTOstr(ed);
    ed2:=strTOint(otv.Caption);    // один
 
    s:=floatTOstr(pi);
    tr:= strTOint(copy(s,ed2,ed2)); // три
 
    str(ed2,s1);
    str(tr,s3);
    s:=concat(s1,s1,s3);
    val(s,stotr,w);                 //сто тринадцать
 
    s:=concat(s1,s3);
    val(s,trin,w);                 // тринадцать
 
    dev:=stotr mod trin ;          // девять
 
    s:=floatTOstr(pi);
    shest:= strTOint(copy(s,dev,ed2)); //шесть
 
    str(shest,s6);
    s:=concat(s1,s6);
    val(s,shesnad,w);               //шеснадцать
 
    try
    x:=strTOint(trim(edit1.Text));
    except
    showMessage('Ошибочная запись целого числа:'+edit1.text);
    edit1.SetFocus;
    Exit;
    end;
 
    cel:= (x) div (shesnad);   // целое
    drob:= (x) mod (shesnad);   // остаток
    otv.Caption:=intTOstr(cel);
    otv2.Caption:=intTOstr(drob);
   end;
 
  end;
 
  end.
<<< Предыдущая работа

Вернуться в галерею исходников
Автор: Taow*
Город: Дульдурга
 Дата: 18.09.2006  10:45
Комментариев: 2
Просмотров: 246
Оценка: 5 (1|1|1|1|1) [1]
Вернуться на главную
Авторский комментарий к работе: Деление на 16 нацело, не используя цифры.
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Boland* ::: комментарий от 22.04.2007 | 10:27
Boland Приверженец (ур.6)
Очки: 540
Город: Томск
Тв. работ: 7
Рег: 05.05.2006 (81)
Что-то аццки не понятное,можно было проще!)


--------------------
Мысль изречённая,есть ложь.
Chronos ::: комментарий от 19.09.2006 | 10:53
Chronos Приверженец (ур.6)
Очки: 748
Город: Томск
Тв. работ: 4
Рег: 05.05.2006 (80)
Ну строго говоря цифры то используються ;-) одних longint-ов 11 штук заюзано ;-) использование intTostr и др. функций преобразования так же наводит на некоторые размышления :о) + чесно говоря не совсем понятен высший смысл такого подхода т.к. обычно стараються наоборот на целых числах решить какую либо задачю(чтоб быстрее было )



PS меня положительно порадовало, что ты использовал обработку исключений ;-)


--------------------
Хорошо смееться тот кто стреляет последним