Перевести код с 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;
Решение задачи: «Перевести код с 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(); }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д