1 / 1 / 1
Регистрация: 25.10.2011
Сообщений: 14
1

Транслировать программный код с Pascal

25.10.2012, 09:56. Показов 1458. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите перевести с паскаля на c#
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var S,sNum: String;
    j,err,i,L,Num: LongInt;
 
function IsNumber(C: Char): boolean;
begin
  IsNumber:=(Ord(C)>=48) and (Ord(C)<=57);
end;
 
begin
  ReadLn(S);
  L:=Length(S);
  i:=1;
  while i<=L do begin
    sNum:='';
    while IsNumber(S[i]) do begin
      sNum:=sNum+S[i];
      Inc(i);
    end;
    if sNum='' then begin
       Write(S[i]);
       Inc(i);
    end
       else begin
      Val(sNum, Num,err);      
      for j:=1 to Num do Write(S[i]);
      Inc(i);
    end;    
  end;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2012, 09:56
Ответы с готовыми решениями:

Транслировать Delphi код в C#
Здравствуйте. Помогите пожалуйста транслировать Delphi в С#. Сам код в понимании не сложен, но вот...

Транслировать заданный код с языка Pascal в исходный код ассемблер
Транслировать заданный код с языка Pascal в исходный код ассемблерVar a:byte; b:byte; c:word;...

Транслировать код с Pascal
Позязьки, помогите с переводом в си небольшого кода - сам паскаль почти не знаю :( var ...

Транслировать код Turbo Pascal на Visual Basic
необходимо перенести это на VB помогите пожалуйста... {$N+} {$E+} Uses Graph,crt; ...

1
28 / 28 / 10
Регистрация: 10.03.2012
Сообщений: 249
25.10.2012, 10:37 2
Лучший ответ Сообщение было отмечено Dyaside как решение

Решение

В смысл вашего кода не вникал. Тупо по срочке переписал.


C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace ConsoleApplication4
{
    class Program
    {
        static void Main(string[] args)
        {
            string S="", sNum="";
            int j,i, err, L, Num;
            Program p = new Program();
            S = Console.ReadLine();
            L = S.Length;
            i = 1;
            while (i < L)
            {
                while (p.isNubmer(S[i]))
                {
                    sNum += S[i];
                    i++;
                }
                if (sNum == "")
                {
                    Console.Write(S[i]);
                    i++;
                }
                else
                {
                    Num = Convert.ToInt32(sNum);
                    for (j = 0; j <= Num; j++) { Console.Write(S[i]); i++; }
                }
            }
        }
 
        public bool isNubmer(char c)
        {
            if (Char.IsDigit(c))
            {
                return true;
            }
            else return false;
        }
    }
}
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.10.2012, 10:37
Помогаю со студенческими работами здесь

Транслировать код Turbo Pascal на Visual Basic
Пожалуйста реализуйте. Условия на фото. Uses Graph,crt; function F(x: double): double; begin...

Транслировать с Pascal в C
uses crt, graph; var gm, gd, i,k : integer; b:real; a: array of real; f:text; ...

Возможно ли транслировать код Си в MathCAD
Доброго времени суток. Подскажите, пожалуйста, возможно ли транслировать код из СИ в программу...

Как транслировать код с JavaScript на C# используя KnockoutApi
Всем привет. Помогите, пожалуйста, правильно транслировать код с яваскрипта на C# используя...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru