Перевести код с Delphi на C# - C# (199793)

Узнай цену своей работы

Формулировка задачи:

while i<=length(a) do
   begin
       case a[i] of
 
       '0'..'9':
          begin
            s:=s+a[i];
            i:=i+1;
            while (i<=length(a)) and (a[i] in ['0'..'9']) do
              begin
                s:=s+a[i];
                i:=i+1;
              end;
            Add  (s,1);
            s:='';
          end;

      'a'..'z','A'..'Z','_','А'..'Я', 'а'..'я':
        begin
          s:=s+a[i];
          i:=i+1;
          while (i<=length(a)) and (a[i] in ['0'..'9','a'..'z','A'..'Z','_','А'..'Я', 'а'..'я']) do
            begin
              s:=s+a[i];
              i:=i+1;
            end;
          Add (s,2);
          s:='';
        end;
 
       ',', ';', '-', '+', '*', '/', '=':
         begin
           s:=s+a[i];
           i:=i+1;
           Add(s,3);
           s:='';
         end;
Как этот код записать на c#? Спасибо.

Решение задачи: «Перевести код с Delphi на C#»

textual
Листинг программы
static void Main()
        {
            Console.Write("Simbol: ");
            char ch = (char)Console.Read();
            if (Char.IsDigit(ch))
                Console.WriteLine("{0} is digit", ch);
            else
                if (Char.IsLetter(ch))
                    Console.WriteLine("{0} is letter", ch);
                else
                    if (Char.IsSeparator(ch))
                        Console.WriteLine("{0} is separator", ch);
            Console.ReadKey();
        }

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5