[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

AHTOLLlKA
Если ты пишешь на чём то вроде пшп или с++ то есть некие библиотеки, которые позволяют скажем получить имя файла, в котором мы работаем.

 

Кароч могу разложить ряд и написать сумму игриков.

график сам делай!!!

Такая вот функция вышла.
тебе осталось только пройти по всем иксам и перемножить положительные у и разделить на колличество. а отрицательные сложить и тоже разделить на колличество.

 

не... забыл сказать язык о могучий делфе =)

есть рабочий код но там перебор хендлов идет...

мне подсказали что можно как то через DuplicateHandle сделать проще... но догнать не могу так что гуглю все еще.... если есть у кого примеры кидайте плиз

 

KaZ@NoVa, спасибо!

Я только не пойму там шаг уже задан или нет? Если да, то какая переменная?

 

Вот исходник проги, которую я писал. Определяет внутренний IP и внешний через хуиз. Если внутренний IP = внешнему, то соответственно НАТа нету, только вот с PPoe такая фишка не катит. Вообщем ->Вот<- ковыряй =)

 

смотри, все просто

парсишь ipconfig

если ip в зоне

Code:

10.0.0.0 - 10.255.255.255
172.16.0.0-172.31.255.255
192.168.0.0-192.168.255.255

то комп за NAT

 

Помогите кто может!!! Надо решить в Pascal и Delphi тоже!
№1 Вычислить все значения функции ф=корень из x квадрат + y квадратесли х и у это значения элементов массива х(n) и у(m)
№2 определить количество положительных и отрицательных элементов в массиве х(n)
№3 в массиве A(n,m) определить:
а)максимальный и минимальный элементы
б)номер последнего отрицательного
в)заменить последний отрицательный элемент на минимальный
№4в массиве A(n,m) найти разность между суммой элементов во 2 строке и суммой элементов в 5 столбце.
Пожалуста!!! Просто очень нужно!

 

Помогите дать для числа наименования «год», «года», «лет». Например, 1 год, 23 года, 46 лет и т.д.

зы
год: 1,21,31,41,51,61,71,81,91
года: 2,3,4,22,23,24,32,33,34...
лет: 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25,26,27,28,29...

на си могу, но лабы на делфях у нас, помогите позяизя!
если можно полностью, а так... просто скажите как найти последнюю цифру числа

пример на си:

Code:

int a,b;
while (a!=0)
 {
  b=a%10;
  a=a/10;
  if (b==1) break;
 }

 

последня цифра числа не дельфе - это
y:=x mod 10;

 

........

 

Подаскажите пожалуйста как перевернуть число?
Т.е. 21=12, 235=532 и т.п.

Пример на Си:

Code:

{
        int digit,sum;
        cout<<"chislo:\n";
        cin>>digit;
        cout<<"chislo naoborot = ";
        while(digit>0){
        sum=digit%10;
                digit/=10;
                cout<<sum;
        }
cin.get();
cin.get();      
}

А надо на Делфях!

 

И ещё один вопрос:
Как подсчитать поличество цифр в числе?

пример на Си

Code:

{
        int digit,i=0;
        cout<<"chislo:\n";
        cin>>digit;
        for(;digit>0;i++){
                digit/=10;
        }
        cout<<" V dannom chisle "<<i<<" cifr\n\n";
cin.get();
cin.get();      
}

Ну и также как и прошлый надо на Делфях!

 

Да хотя бы так =)

Code:

var
  digit: Integer;

...

writeln('Всего: ', Length(IntToStr(digit)));

 

держи , написал с проверкой

PHP:

program digit;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  str: string;
  i: Integer;
  digits: set of '0'..'9';

begin
  try
    digits := ['0'..'9'];
    Readln(str);
    for i := 1 to Length(str) -1 do
    begin
      if str[i] in digits then
      begin
      end
      else
      begin
        Writeln('Error : ' + str[i]);
        Readln;
        Halt;
      end;
    end;

    Writeln(Length(str));
    readln;
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

 

это и есть точные параметры для парсинга

 

Up! =)

Подаскажите пожалуйста как перевернуть число?
Т.е. 21=12, 235=532 и т.п.

Пример на Си:

Code:

{
        int digit,sum;
        cout<<"chislo:\n";
        cin>>digit;
        cout<<"chislo naoborot = ";
        while(digit>0){
        sum=digit%10;
                digit/=10;
                cout<<sum;
        }
cin.get();
cin.get();      
}

А надо на Делфях!

 

делать было нечего, держи)

PHP:

program turnNumber;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  number: Integer;
  str: string;
  i: shortint;
  digits: set of '0'..'9';



begin
  try
    digits := ['0'..'9'];
    Readln(str);
    for i := 1 to Length(str) -1 do
    begin
      if str[i] in digits then
      begin
      end
      else
      begin
        Writeln('Error : ' + str[i]);
        Readln;
        Halt;
      end;
    end;

  number := StrToInt(str);
  while (number > 0) do
  begin
    write(number mod 10);
    number := number div 10;
  end;
  Readln;
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

 

Опять таки так =)

Code:

var
  num: integer;
  ...
  num:=21;
  WriteLn('Число:', ReverseString(IntToStr(num))); //Выведет 12

 

<offtop>
ппц пошли вопросы. Еще чуть чуть и можно будет выбрав все посты с этой темы и "Студентам с лабами сюда" и можно уже выпускать решебник задач по информатике
</offtop>

<to_admin_and_moder>
Создайле лучше прикрепленную (закрытую) тему - Ответы на задача.
И периодически перекидывайте туда посты с этих темы в виде типа: Здание - Решение
А отсюда это уже можно будет удалять.
</to_admin_and_moder>

 

как опредилить на каком диске стоит windows?
Желательно с примером.