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

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

29.04.2013, 01:20. Просмотров 419. Ответов 5
Метки нет (Все метки)

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
uses crt;
var a:array[1..10,1..10] of integer;
    n,i,j:integer;
    b:boolean;
begin
  clrscr;
  randomize;
  n:=Random(10)+1;
  b:=true;
  For i:=1 to n do
    For j:=1 to n do
      a[i,j]:=Random(10);
 
  For i:=1 to n do begin
    For j:=1 to n do begin
      write(a[i,j]:3);
      if a[i,j]>n then b:=false;
    End;
    writeln;
  End;
  if b then writeln('javlajeca')
       else writeln('ne javljajeca');
 
readln;
end.

http://www.cyberforum.ru/csharp-beginners/thread1209618.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2013, 01:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевести код с Pascal (C#):

Перевести код с Pascal
var i,n:integer; t:boolean; begin readln(n); i:=1; t:=false; while...

Перевести код с Pascal
var a,s:integer; begin readln(a); s:=a div 1000+(a div 100)mod 10+(a div...

Перевести код Pascal в C#
Помогите перевести код из Pascal в C# var S : string; {строка текста} ...

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

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

5
Haklag
34 / 34 / 37
Регистрация: 21.06.2012
Сообщений: 150
Завершенные тесты: 2
29.04.2013, 09:36 #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
#include<stdlib.h>
#include<time.h>
#include<iosream>
 
Using namespace std;
 
int main(){
int a[10][10];
bool b=true;
srand(time(null));
int n=1+rand()%10;
for(int i=1;i=<n;i++)
   for(int j=1;j=<n;j++)
       a[i][j]=rand()%10;
for(int i=1;i=<n;i++)
   for(int j=1;j=<n;j++){
cout<<a[i][j]<<endl;
if(a[i][j]>n) b=false;
}
if(b) cout<<"Является"<<endl;
else  cout<<"не вляется"<<endl;
retunr 0;
}
0
Дмитрий3241
643 / 513 / 137
Регистрация: 07.07.2011
Сообщений: 1,232
29.04.2013, 10:42 #3
Haklag,
Цитата Сообщение от Haklag Посмотреть сообщение
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include<stdlib.h>
#include<time.h>
#include<iosream>
Using namespace std;
int main(){
int a[10][10];
bool b=true;
srand(time(null));
int n=1+rand()%10;
for(int i=1;i=<n;i++)
* *for(int j=1;j=<n;j++)
* * * *a[i][j]=rand()%10;
for(int i=1;i=<n;i++)
* *for(int j=1;j=<n;j++){
cout<<a[i][j]<<endl;
if(a[i][j]>n) b=false;
}
if(b) cout<<"Является"<<endl;
else *cout<<"не вляется"<<endl;
retunr 0;
}
Это не C#.

Добавлено через 5 минут
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
using System;
 
class Program
{
    static void Main( string[] args )
    {
        int[,] a = new int[ 10, 10 ];
        Random r = new Random();
 
        int n = r.Next( 0, 11 );
        bool b = true;
 
        for ( int i = 0; i < n; i++ )
            for ( int j = 0; j < n; j++ )
                a[ i, j ] = r.Next( 0, 11 );
 
        for ( int i = 0; i < n; i++ )
        {
            for ( int j = 0; j < n; j++ )
            {
                Console.Write( a[ i, j ].ToString() );
                if ( a[ i, j ] > n )
                    b = false;
            }
 
            Console.WriteLine();
        }
 
        if ( b )
            Console.WriteLine( "javlajeca" );
        else
            Console.WriteLine( "ne javlajeca" );
 
        Console.ReadKey( true );
    }
}
0
GloryMU
52 / 52 / 16
Регистрация: 25.02.2013
Сообщений: 171
29.04.2013, 10:50 #4
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
class Class1
    {
        static void Main()
        {
            int[,] a = new int[10, 10];
            int n, i, j;
            bool b=false;
            Random rand = new Random();
            n = rand.Next(10) + 1;
            b = true;
            for(i=0;i<n;i++)
                for (j = 0; j < n; j++)
                {
                    a[i, j] = rand.Next(1,10);
                }
          
            for (i = 0; i < n; i++)
                for (j = 0; j < n; j++)
                {
                    Console.Write("{0} ",a[i, j]);
                    if (a[i, j] > n)
                        b = false;
                   }
            }
            if (b)
                Console.WriteLine("Является");
            else
 
                Console.WriteLine("Не является");
            Console.ReadLine();
        }
       
    }
0
Дмитрий3241
643 / 513 / 137
Регистрация: 07.07.2011
Сообщений: 1,232
29.04.2013, 10:58 #5
Цитата Сообщение от GloryMU Посмотреть сообщение
a[i, j] = rand.Next(1,10);
не правильное поведения, случайны числа могут быть равны 0, а у вас от 1 до 9. Да кстати у меня то же не то, у меня от 0 до 10, заметил только сейчас.
Цитата Сообщение от GloryMU Посмотреть сообщение
foreach (int item in a)
* * * * * * {
* * * * * * * * Console.Write("{0} ",item);
* * * * * * * * if (item > n)
* * * * * * * * {
* * * * * * * * * * b = false;
Вывод будет не верный.
0
GloryMU
52 / 52 / 16
Регистрация: 25.02.2013
Сообщений: 171
29.04.2013, 11:11 #6
foreach (int item in a)
* * * * * * {
* * * * * * * * Console.Write("{0} ",item);
* * * * * * * * if (item > n)
* * * * * * * * {
* * * * * * * * * * b = false;
да да,не учел сразу, что пустые элементы будут нолями
0
29.04.2013, 11:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2013, 11:11
Привет! Вот еще темы с решениями:

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

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

Перевести код с Pascal на C#
var a:arrayof real; max,sum,c:real; i,j:integer; begin for i:= 1...

Перевести код с Pascal на C#
Постановка задачи: Выводится на экран последовательность 20 случайных чисел...


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

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

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