• У вас аккаунт на другом форуме? Мы вернем статистику на bestask.ru, от вас активность и только

CS GO TRADE [Pascal]

СудебныйПристав

Пользователь
Модератор
28.06.2020
880
176
[это в дополнение к способам заработка, раздел програмирование]
Случилось мне начать работать через DMarket(не реклама) и тут упал вопрос
Стоит ли тратиться на софт таблички или нет?
Я с товарищем написал программу для подсчета профита, чтоб сделать зароботок более профитнее и менее затратнее

Код:
var
  a, b, c, d, e , kyrs: real;
  Solution , money , i: int64;

begin
  writeln('Программа предназначена для выгодного ввода баланса в стим и перепродаже вещей в самом стиме ');
  writeln('Программа работает только для ru региона стим');
  //writeln('Программа не учитывает комиссии сайта , учет коммисий идет только в стим');
  writeln('Выберете площадку: ');
  writeln('1 - dmarket ');
  writeln('2 - steam ');
  readln(Solution);
  write('курс у.е ');
  readln(kyrs);
  i:=1;
  if Solution = 1 then begin
    writeln('Cпособ пополнения: ');
    writeln('1 - visa ');
    writeln('2 - bitcoin ');
    writeln('3 - скинами ');
    readln(money);
    while i = 1 do begin
      writeln('Цена на сайте ');
      readln(a);
      write('Цена в стиме ');
      readln(b);
      a := a * kyrs ;
      if money = 1 then
        a := a/0.975 + kyrs*0.33 ;
      if money = 2 then
        a := a/0.99 + kyrs*0.06 ;
      b := b * 0.85 ;
      e := b ;
      c := (b / a - 1) * 100 ;
      b := b - a ;
      d := b / kyrs ;
      writeln('Профит в % ' , c:0:2 );
      writeln('Профит в Руб ' , b:0:2 );
      writeln('Профит в у.е ' , d:0:2 );
      writeln('Заплатили руб ' , a:0:2 );
      writeln('Получили в стим руб ' , e:0:2 );
      if c > 60 then
        writeln('Profit lvl : must buy');
      if (c > 45) and (c < 60) then
        writeln('Profit lvl : good');
      if (c > 30) and (c < 45) then
        writeln('Profit lvl : maybe');
      if c < 30 then
        writeln('Profit lvl : poor');
    end;
    if Solution = 2 then begin
      writeln('Цена покупки ');
      readln(a);
      writeln('Цена продажи');
      readln(b);
      b := b * 0.85 ;
      c := b/a - 1 ;
      b := b - a ;
      writeln('Профит в % ' , c:0:2 );
      writeln('Профит в Руб ' , b:0:2 );
    end;
  end;
 
 
 
end.

Тем самым, мы можем спокойно подсчитать
Сколько мы получим профита - и стоит ли его получать
Статусы профита - poor or good or maybe

(вирустотал не нужен - это паскаль))
______________________________
UPD: добавил аналитику цен
 
  • Нравится
Реакции: kkk

СудебныйПристав

Пользователь
Модератор
28.06.2020
880
176
Код рукописный, мой
Сюда залить - не помешает
По ошибкам - в лс
Кто этим занимается - юзайте
 
Последнее редактирование: