Найти новичку работу на Паскале в 2016 году

Модератор: Модераторы

Re: Найти новичку работу на Паскале в 2016 году

Сообщение stanilar » 07.02.2016 19:48:18

debi12345 писал(а):вызывает запутанность и забагованность написанных программ

Предлагаете запретить использовать асм в паскале?
stanilar
постоялец
 
Сообщения: 289
Зарегистрирован: 09.03.2010 19:09:02

Re: Найти новичку работу на Паскале в 2016 году

Сообщение WAYFARER » 07.02.2016 20:43:47

stanilar писал(а):Предлагаете запретить использовать асм в паскале?

debi12345 тут скорее намекает на MVC, вернее на соблазн нарушать данную парадигму. И тут я на 100500% согласен.

Добавлено спустя 8 минут 58 секунд:
debi12345 писал(а):Попробуйте тупой способ :
1) скачать и установить последний ODBC-драйвер для Постгрес
2) DLL-ки из каталога куда он установился (c:\Program Files\psqlODBC\0903\bin\),
скопируйте в каталог Вашей проги или, если не поможет -
в системный каталог (c:\Windows\System32\)

А причем тут ODBC? Автор вопроса, я думаю использует библиотеки прямого доступа к PostgreSQL.
Скорее всего проблема в версии libpq.dll, все таки WinXP уже сильно старая. Пусть автор вопроса подробнее расскажет о проблеме, какие ошибки, версия Postgresql, версия Lazarus и fpc, какие компоненты доступа используются. Попробуем разобраться и собрать набор библиотек для Windows XP
Аватара пользователя
WAYFARER
энтузиаст
 
Сообщения: 517
Зарегистрирован: 09.10.2009 00:00:04
Откуда: г. Курган

Re: Найти новичку работу на Паскале в 2016 году

Сообщение debi12345 » 07.02.2016 21:36:51

А причем тут ODBC? Автор вопроса, я думаю использует библиотеки прямого доступа к PostgreSQL.

В том,что предельно компактный (2..3МБ-инсталлятор) ОДБС-драйвер включает и LIBPQ, и ее партнерские ДЛЛ-ки (без которых она не работает).
(эту тему знаю отлично)
Аватара пользователя
debi12345
долгожитель
 
Сообщения: 5752
Зарегистрирован: 10.05.2006 23:41:15
Откуда: Ташкент (Узбекистан)

Re: Найти новичку работу на Паскале в 2016 году

Сообщение azsx » 08.02.2016 18:37:41

Друзья, тема про постгрес viewtopic.php?f=5&t=10927
azsx
энтузиаст
 
Сообщения: 959
Зарегистрирован: 16.11.2015 06:38:32

Re: Найти новичку работу на Паскале в 2016 году

Сообщение resident » 08.02.2016 21:49:14

azsx писал(а):Если к этому еще добавить qnx и вытекающие няшки реал времени - так нафиг ваще эти военные с их приборами и замещением, лет десять только учится надо. Интересно, но голодно будет.

Сегодня случайно наткнулся на вакансию по Postgre в московской компании НПО РусБИТех, а там на их сайте Центры боевой подготовки.
http://www.rusbitech.ru/u/%D0%A6%D0%91%D0%9F2016.pdf
Даже не представлял, что у нас в стране могут быть такие игрушки :)
resident
энтузиаст
 
Сообщения: 605
Зарегистрирован: 13.03.2013 16:58:51

Re: Найти новичку работу на Паскале в 2016 году

Сообщение Verx0Laz » 09.02.2016 00:34:59

Сегодня случайно наткнулся на вакансию по Postgre в московской компании НПО РусБИТех, а там на их сайте Центры боевой подготовки.

Вот как раз под такие игрушки ГК Ростехнологии через свою дочернюю фирму и прикупила когда-то по-тихому ооо "альт линукс". И бабла воякам под игрушки залили прилично, и пилить его им особо не позволят, чутка не та контора, Шойгу бдит! Импортозамещение аднака, плюс повышение софтверной безопасности страны. И на базе вояк будут развивать платформу и решения, которые потом будут переделывать под гос.учреждения. В открытую об этом не говорят, но косвенной информации много
Аватара пользователя
Verx0Laz
постоялец
 
Сообщения: 125
Зарегистрирован: 11.09.2007 11:24:07

Re: Найти новичку работу на Паскале в 2016 году

Сообщение pupsik » 09.02.2016 02:28:15

Уж коль тут начал.
ну как сказать "не очень", 66% от вашего варианта (если отсечь все лишнее), 34% на дороге не валяются.


Код: Выделить всё
Lazarus 1.4.4
FPC 2.6.4
WinXP SP3 (virtualbox...)

run1
Test1 - 2213
Test2 - 3124
Test3 - 2133

run2
Test1 - 2173
Test2 - 2854
Test3 - 2153

run3
Test1 - 2173
Test2 - 2874
Test3 - 2083

run4
Test1 - 2293
Test2 - 2914
Test3 - 2073

run5
Test1 - 2143
Test2 - 2754
Test3 - 2043


Lazarus 1.6RC2
FPC 3.0.0
Debian 8 (gnome 3)

run1
Test1 - 263
Test2 - 387
Test3 - 256

run2
Test1 - 266
Test2 - 386
Test3 - 259

run3
Test1 - 266
Test2 - 389
Test3 - 258

run4
Test1 - 264
Test2 - 387
Test3 - 263

run5
Test1 - 266
Test2 - 391
Test3 - 259

с маленькой поправкой кода.
Код: Выделить всё
program project1;

uses
  {$ifdef Win32}
    Windows;
  {$else}
    Unix, BaseUnix ;
  {$endif}

const Count=100000000;

procedure Test1;
var i: Integer; s: String;
begin
  for i:=1 to Count do
    case Ord(i mod 3=0) or Ord(i mod 5=0) shl 1 of
    0: s:='number';
    1: s:='Fizz';
    2: s:='Buzz';
    3: s:='FizzBuzz';
    end;
end;

procedure Test2;
var i: Integer; s: String;
begin
  for i:=1 to Count do begin
    s := '';
    if (i mod 3) = 0 then
      s := 'Fizz';
    if (i mod 5) = 0 then
      s := s + 'Buzz';
//ранее не было... Т.е. о FizzBuzz забыли...
    if (i mod 15) = 0 then
      s := s + 'FizzBuzz';
    if s = '' then
      s := 'number';
  end;
end;

type
   rez = (fFizz, fBuzz, fFizzBuzz, fnoFizzBuzz);

function Check(a_value: integer): rez;
var
  a, b, c: integer;
begin
  result := fnoFizzBuzz;
  a := a_value mod 3;
  b := a_value mod 5;
  c := a_value mod 15;//каюсь... не дошло ранее.
  if a  = 0 then
    result := fFizz;
  if b = 0 then
    result := fBuzz;
  if c = 0 then
    result := fFizzBuzz;
end;
procedure Test3;
var
  i, z : integer;
  s: String;
begin
  z := Count -1;
  i := 0;
//разница не большая между repeat и for.
{  repeat
    case Check(i) of
    fFizz: s:='Fizz';
    fBuzz: s:='Buzz';
    fFizzBuzz: s:='FizzBuzz';
    fnoFizzBuzz: s:='number';
    end;
    inc(i);
  until i > z;}

  for i:=0 to z do
    case Check(i) of
    fFizz: s:='Fizz';
    fBuzz: s:='Buzz';
    fFizzBuzz: s:='FizzBuzz';
    fnoFizzBuzz: s:='number';
    end;
end;


{$ifdef Unix}
function Clock: Int64;
var Dummy: tms;
begin
Clock := FpTimes(Dummy);
end;
{$endif}

var
    t : integer;

begin
  Write('Test1: ');
  {$ifdef Win32}
    t := Windows.GetTickCount;
  {$else}
    t:= Clock;
  {$endif}
  Test1;
  {$ifdef Win32}
    t:=Windows.GetTickCount-t;
  {$else}
    t:= Clock - t;
  {$endif}
  WriteLn(t);
  Write('Test2: ');
  {$ifdef Win32}
    t := Windows.GetTickCount;
  {$else}
    t:= Clock;
  {$endif}
  Test2;
  {$ifdef Win32}
    t:=Windows.GetTickCount-t;
  {$else}
    t:= Clock - t;
  {$endif}
  WriteLn(t);
  Write('Test3: ');
  {$ifdef Win32}
    t := Windows.GetTickCount;
  {$else}
    t:= Clock;
  {$endif}
  Test3;
  {$ifdef Win32}
    t:=Windows.GetTickCount-t;
  {$else}
    t:= Clock - t;
  {$endif}
  WriteLn(t);
end.


Test1 выиграл у Test3 34%. Только я их не увидел.

п.с.
Странно это...

Обратите внимание в оригинале не важен язык программирования, консоль или gui
Как раз на это очень сильно обратили внимание.

python, java...
Ранее писали: что на собесе надо говорить: пишу на всем, если что гугл поможет...

... такие игрушки
скользкая тема. Может не надо :wink:
pupsik
энтузиаст
 
Сообщения: 1154
Зарегистрирован: 20.08.2014 16:20:13

Re: Найти новичку работу на Паскале в 2016 году

Сообщение bormant » 09.02.2016 09:41:10

pupsik,
мистика :-)
Будем считать, что времена, когда 3 деления+3 сравнения+вызов стали дешевле 2 делений+сдвига+сложения, уже настали у Вас, но пока не пришли ко мне :) Буду готовиться. Кстати, с 3 делениями переменные не нужны:
Код: Выделить всё
function Check(a: integer): rez;
begin
  Result:=fnoFizzBuzz;
  if      a mod 15=0 then Result:=fFizzBuzz
  else if a mod 3=0 then Result:=fFizz
  else if a mod 5=0 then Result:=fBuzz;
end;
а тут и до замены на присваивание строк недалеко. Или это тоже медленнее (например, из-за первого нечастого совпадения, не проверял)?
Аватара пользователя
bormant
постоялец
 
Сообщения: 407
Зарегистрирован: 21.03.2012 11:26:01

Re: Найти новичку работу на Паскале в 2016 году

Сообщение pupsik » 09.02.2016 15:24:40

мистика
кто его знает. Цифры не я придумал. Что написало то и списал.
Кстати, с 3 делениями переменные не нужны:
добавьте и посмотрите на время. Не думаю что сильно что то изменится. Хотя... Должно быть больше?!
Или это тоже медленнее (например, из-за первого нечастого совпадения, не проверял)
т.е.? Что вы хотите что бы я проверил.
pupsik
энтузиаст
 
Сообщения: 1154
Зарегистрирован: 20.08.2014 16:20:13

Пред.

Вернуться в Помощь за вознаграждение

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

Рейтинг@Mail.ru