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

    • ava kipar 04.01.2015 19:55 # +11

      >int64
      основательно к делу подошел.
      Ответить

    • ava guest 06.01.2015 01:09 # +2

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

    • ava guest 06.01.2015 19:49 # 0 

      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
      Ответить

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