Форум программистов, компьютерный форум, киберфорум
Наши страницы
C# для начинающих
Войти
Регистрация
Восстановить пароль
 
Pikosh
2 / 2 / 0
Регистрация: 06.04.2013
Сообщений: 101
#1

Перевести код с Pascal - C#

29.04.2013, 00:52. Просмотров 466. Ответов 1
Метки нет (Все метки)

Помогите перевести код на С#.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  speed: array [0..3] of integer;
  count, i, max: byte; 
begin
  Randomize;
  Writeln('Input number of horse'); Readln(count);
  speed[0] := -1; // для удобства проверки
  for i := 1 to 3 do
  begin
    speed[i] := random(50) + 25;// Скорость чтоб была ближе к реальной
    if speed[i] >= speed[i - 1] then max := i;
  end;
  if count = max then Writeln('You won!') else Writeln('You lose');
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2013, 00:52
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевести код с Pascal (C#):

Перевести код Pascal в C#
Необходимо перевести следующую часть кода PascalABC.NET в язык C# const...

Перевести код с Pascal
uses crt; var a:array of integer; n,i,j:integer; b:boolean; begin ...

Перевести код с Pascal на С#
program CalcDiff; var a,result:real; begin ReadLn(a);...

Перевести код с Pascal на C#
Ребят помогите пожалуйта, как будет выглядеть код на C#. Учитывая этот код...

Перевести код с Pascal
const nmax=50; var b:array of integer; a,c:array of integer; ...

Перевести код Pascal на C#
Проблема в том, что при переводе на C# появляется элемент недостижимого кода....

1
Дмитрий3241
643 / 513 / 137
Регистрация: 07.07.2011
Сообщений: 1,232
29.04.2013, 03:55 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
using System;
 
class Program
{
    static void Main( string[] args )
    {
        int[] speed = new int[ 4 ];
        byte count, max;
        Random r = new Random( DateTime.Now.Millisecond );
 
        Console.WriteLine( "Input number of horse" );
        count = byte.Parse( Console.ReadLine() );
        speed[ 0 ] = -1;
 
        for ( byte i = 1; i < 4; i++ )
        {
            speed[ i ] = r.Next( 50, 76 );
            if ( speed[ i ] >= speed[ i - 1 ] )
                max = i;
        }
 
        if ( count == max )
            Console.WriteLine( "You won!" );
        else
            Console.WriteLine( "You lose" );
    }
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2013, 03:55
Привет! Вот еще темы с решениями:

Перевести код с Pascal на C#
Переводил код с Паскаля в шарп. Выдает ошибку типа переменная не существует в...

Перевести код с Pascal
Добрый вечер! Есть вот такая програмка program zad3; uses crt; var...

Перевести код из Pascal в C#
Нужно вот это кода переделать в код на c#. Var s,k: integer; Begin s :=...

Перевести код с Pascal
Помогите пожалуйста перевезти из Pascal в C#. Это всё одна задача на каждой...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru