1. Pascal / Говнокод #17402

    +107

    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
    var a : int64;
     
    begin
      assign(input, 'input.txt'); reset(input);
      assign(output, 'output.txt'); rewrite(output);
      read(a);
      if a=25 then write ('2.7182818284590452353602875');
      if a=24 then write ('2.718281828459045235360288');
      if a=23 then write ('2.71828182845904523536029');
      if a=22 then write ('2.7182818284590452353603');
      if a=21 then write ('2.718281828459045235360');
      if a=20 then write ('2.71828182845904523536');
      if a=19 then write ('2.7182818284590452354');
      if a=18 then write ('2.718281828459045235');
      if a=17 then write ('2.71828182845904524');
      if a=16 then write ('2.7182818284590452');
      if a=15 then write ('2.718281828459045');
      if a=14 then write ('2.71828182845905');
      if a=13 then write ('2.7182818284590');
      if a=12 then write ('2.718281828459');
      if a=11 then write ('2.71828182846');
      if a=10 then write ('2.7182818285');
      if a=9 then write ('2.718281828');
      if a=8 then write ('2.71828183');
      if a=7 then write ('2.7182818');
      if a=6 then write ('2.718282');
      if a=5 then write ('2.71828');
      if a=4 then write ('2.7183');
      if a=3 then write ('2.718');
      if a=2 then write ('2.72');
      if a=1 then write ('2.7');
      if a=0 then write ('3') 
    end.

    Вывод числа e с заданной точностью

    Запостил: AndreyZ, 04 Января 2015

    Комментарии (4) RSS

    • >int64
      основательно к делу подошел.
      Ответить
    • >>Вывод числа e с заданной точностью
      Ответить
    • 01.procedure ExportData(Path, AName, AType: String; data: TFileStream); overload;
      02.var
      03.hFile: HWND;
      04.Buf: array of Byte;
      05.begin
      06.hFile := BeginUpdateResource(PChar(Path), False);
      07.try
      08.if hFile = 0 then
      09.begin
      10.RaiseLastOSError;
      11.end;
      
      12.SetLength(Buf, Data.Size);
      13.Data.Position := 0;
      14.Data.Read(Buf[0], Data.Size);
      15.if not UpdateResource(hFile, PChar(AType), PChar(AName),
      16.0, @Buf[0], Data.Size) then RaiseLastOSError;   
      17.Finalize(Buf);
      
      18.finally
      19.EndUpdateResource(hFile, False);
      20.end;
      21.end;


      TMemoryStream? А что, так тоже можно?!


      http://delphicomponent.ru/136-urok-delphi-dobavlenie-k-exe-faylu-v-resursy-fayl-fileany-lyuboy-fayl.html
      Ответить

    Добавить комментарий