1. Список говнокодов пользователя sevenfourk

    Всего: 1

  2. Pascal / Говнокод #2151

    +92.7

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    unit CelFahKel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  F: Extended;
  C: Integer;
begin
  if RadioGroup1.ItemIndex=0 then

    if RadioGroup2.ItemIndex=0 then
      Edit2.Text := Edit1.Text
    else if RadioGroup2.ItemIndex=1 then
    begin
      F := StrToFloat(Edit1.Text) * (9/5) + 32;
      Edit2.Text := FloatToStr(F)
    end
    else if RadioGroup2.ItemIndex=2 then
    begin
      C := StrToInt(Edit1.Text) + 273;
      Edit2.Text := FloatToStr(C);
    end;

  if RadioGroup1.ItemIndex=1 then
    if RadioGroup2.ItemIndex=0 then
    begin
      F := StrToFloat(Edit1.Text) - 32 * (5/9);
      Edit2.Text := FloatToStr(F);
    end
    else if RadioGroup2.ItemIndex=1 then
      Edit2.Text := Edit1.Text
    else if RadioGroup2.ItemIndex=2 then
    begin
      F := StrToFloat(Edit1.Text) - 32 * (5/9) + 273;
      Edit2.Text := FloatToStr(F);
    end;

  if RadioGroup1.ItemIndex=2 then
    if RadioGroup2.ItemIndex=0 then
    begin
      C := StrToInt(Edit1.Text) - 273;
      Edit2.Text := IntToStr(C);
    end
    else if RadioGroup2.ItemIndex=1 then
    begin
      F := StrToFloat(Edit1.Text) + 32 * (9/5) - 273;
      Edit2.Text := FloatToStr(F);
    end
    else if RadioGroup2.ItemIndex=2 then
       Edit2.Text := Edit1.Text
end;
end.

    Всего-то навсего перевод градусных величин: Сельсий <-> Фаренгейт <-> Кельвин и вывод в Эдит

    sevenfourk, 18 Ноября 2009

    Комментарии (1)