Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > C# (си шарп)
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2019, 12:59   #1
Maxx1
Новичок
Джуниор
 
Регистрация: 28.03.2019
Сообщений: 2
Восклицание Нужно перевести Pascal в С#

Код:
program Param11;
 
type
 RArray = array[1..10] of Real;
 
var
 A,B,C:RArray;
 Na,Nb,Nc:integer;
 
Procedure Sort(var A:RArray; var N:integer);
 var i,i2:integer;
begin
 for i:=1 to N-1 do
  for i2:=1 to N-i do
   begin
    if A[i2]>A[i2+1] then
     begin
      A[i2]:=A[i2]+A[i2+1];
      A[i2+1]:=A[i2]-A[i2+1];
      A[i2]:=A[i2]-A[i2+1];
     end;
   end;
end;
 
Procedure EnterArray(var A:RArray; var N:integer);
var i:integer;
begin
 Write('Size:');
 Readln(N);
 for i:=1 to N do
  begin
   Write(i,': ');
   Readln(A[i]);
  end;
end;
 
Procedure InputArray(var A:RArray; var N:integer);
var i:integer;
begin
 Writeln('---');
 for i:=1 to N do Writeln(i,': ',A[i]);
 Writeln('---');
end;
 
 
begin
 EnterArray(A,Na);
 Sort(A,Na);
 InputArray(A,Na);
 
 EnterArray(B,Nb);
 Sort(B,Nb);
 InputArray(B,Nb);
 
 EnterArray(C,Nc);
 Sort(C,Nc);
 InputArray(C,Nc);
end.

Последний раз редактировалось Аватар; 28.03.2019 в 13:22.
Maxx1 вне форума Ответить с цитированием
Старый 28.03.2019, 13:01   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Не нужно
p51x на форуме Ответить с цитированием
Старый 28.03.2019, 13:09   #3
Maxx1
Новичок
Джуниор
 
Регистрация: 28.03.2019
Сообщений: 2
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Не нужно
Извиняюсь, просто на некоторых форумах запрещают использовать слово "помочь, помогите"
Maxx1 вне форума Ответить с цитированием
Старый 28.03.2019, 13:11   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Потому что люди путают "помогите" и "сделайте за меня". Как и вы.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 28.03.2019, 16:10   #5
Скарам
Дружите с Linq ;)
Форумчанин
 
Аватар для Скарам
 
Регистрация: 15.10.2008
Сообщений: 822
По умолчанию

Online converter
Код:
using System;

namespace Param11
{

  public class Param11
  {
    public static RArray A;
    public static RArray B;
    public static RArray C;
    public static int Na;
    public static int Nb;
    public static int Nc;

    public static void Sort(ref RArray A, ref int N)
    {
      int i;
      int i2;
      for (i = 1; i <= N - 1; i += 1)
      {
        for (i2 = 1; i2 <= N - i; i2 += 1)
        {
          if (A > A[i2 + 1])
          {
            A[i2] = A + A[i2 + 1];
            A[i2 + 1] = A - A[i2 + 1];
            A[i2] = A - A[i2 + 1];
          }
        }
      }
    }

    public static void EnterArray(ref RArray A, ref int N)
    {
      int i;
      Write("Size:");
      Readln(N);
      for (i = 1; i <= N; i += 1)
      {
        Write(i, ": ");
        Readln(A[i]);
      }
    }

    public static void InputArray(ref RArray A, ref int N)
    {
      int i;
      Writeln("---");
      for (i = 1; i <= N; i += 1)
      {
        Writeln(i, ": ", A[i]);
      }
      Writeln("---");
    }

    void run()
    {
      EnterArray(A, Na);
      Sort(A, Na);
      InputArray(A, Na);
      EnterArray(B, Nb);
      Sort(B, Nb);
      InputArray(B, Nb);
      EnterArray(C, Nc);
      Sort(C, Nc);
      InputArray(C, Nc);
    }

    public static void Main(string[] args)
    {
      Param11 myApp = new Param11();
      myApp.run();
    }
  }
}
Не давай организму поблажки, каждый день тренируй его в шашки..
Скарам вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно перевести pascal код на assembler prostor7 Фриланс 2 01.10.2017 08:58
Нужно перевести с Pascal в C++ jinos Помощь студентам 2 13.02.2015 14:35
Нужно перевести из PASCAL В VISUAL C++. ганс Visual C++ 0 31.03.2012 11:00