Форум программистов, компьютерный форум, киберфорум
C# для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
 Аватар для Костя Остертаг
35 / 32 / 9
Регистрация: 17.09.2010
Сообщений: 210
.NET 4.x

Как перевести с Pascal в C#

01.12.2010, 17:15. Показов 1611. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток уважаемые программисты, вот загвоздка, дали лабу по программированию на C#, я не могу написать ее на C#, а на Pascal могу, вот выкладываю коды и условия заданий, у кого есть минутка, переведите плиз... Заранее благодарен.

Задания:
1.Вычислить сумму отрицательных элементов матрицы a[n,n].Сам двумерный массив задан произвольно.
2.Определить наименьший элемент двумерного массива.Сам двумерный массив задан произвольно.

Программы:
1)
Pascal
1
2
3
4
5
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<0 then s=s+a[i,j];
end;
2)
Pascal
1
2
3
4
5
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<min then min:=a[i,j];
end;
p.s. мне нужно написать в методах...
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.12.2010, 17:15
Ответы с готовыми решениями:

Как перевести программу из Pascal в C#
Program primer; Var s: string; //объявление переменных r: real; //объявление переменных i,j,n: integer; //объявление...

Как перевести код из Pascal в C#
program Project2; {$APPTYPE CONSOLE} uses SysUtils; type air = record num:Integer; sam: string; finish: string; time:...

Как перевести из Pascal в HTML?
Задали перевести из Pascal в HTML, а последнего я не знаю:cry:. Кто поможет - огромное спасибо. type massiv=array of integer; var...

1
 Аватар для exlim
24 / 24 / 9
Регистрация: 15.11.2010
Сообщений: 95
01.12.2010, 17:43
Лучший ответ Сообщение было отмечено Костя Остертаг как решение

Решение

C#
1
2
3
4
5
6
7
for (int i=0,i<n,i++)
{
 for (int j=0,j<m,j++)
  {
   if (a[i,j]<0) {s=s+a[i,j];}   
   }
}

C#
1
2
3
4
5
6
7
for (int i=0,i<n,i++)
{
 for (int j=0,j<m,j++)
  {
   if (a[i,j]<min) {min=a[i,j]}   
   }
}


если лень дальше писать самому.

C#
1
2
3
4
5
6
7
8
9
10
11
public static void matrix(int[,] s , int stlb, int strk ) //матрица
                {
                Random rand = new Random();
                for (int j = 0; j < strk; j++)
                        {
                        for (int i = 0; i < stlb; i++)
                {
                                s[j , i] =rand.Next(-10 , 10);
                                }
                                }
                }
-произвольный двумерный массив

C#
1
2
3
4
5
6
7
8
9
public static void minuselement(int[,] s , int stlb, int strk ) 
            {
             int k = 0;
            for (int j=0;j<strk;j++)
            {
             for (int i=0;i<stlb;i++)
             { if (s[j , i] < 0) {k=k+s[j,i]} }
             }
             }
-метод сумма отрицательных элементов

C#
1
2
3
4
5
6
7
8
9
10
11
public static void naimelem(int[,] s , int stlb, int strk ) 
            {
int min=-11; //при произвольном массиве c значением элементов в диапазоне от -10 до 10
            for (int i=0,i<n,i++)
{
 for (int j=0,j<m,j++)
  {
   if (a[i,j]<min) {min=a[i,j]}   
   }
}
             }

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
static void Main(string[] args)
                {
                Console.WriteLine("Введите кол-во столбцов");
                int y = int.Parse(Console.ReadLine());
                Console.WriteLine("Введите кол-во строк");
                int z =int.Parse(Console.ReadLine());
                int[,] mas = new int[z , y];
                                matrix(mas , z , y); //матрица
                Console.Write("\n");
                minuselement(mas,z,y); //сумма отрицательных элементов
                Console.Write("\n");
                               naimelem (mas,z,y); //поиск наименьшего элемента
                Console.Write("\n");
}
- мейн


Вот и все что тебе нужно осталось запихнуть все в программу.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
01.12.2010, 17:43
Помогаю со студенческими работами здесь

Как перевести из PASCAL в DELPHI?
сам проэкт! заранее огромное спасибо!

Как перевести код из Pascal в С#
uses crt; const nmax=100; var a:array of integer; n,i,pp,pn,po,mx:integer; s:string; begin clrscr; randomize; ...

Как перевести код Pascal в Delphi ?
Подскажите пожалуйста. Вот есть уже рабочая программа написанная в среде Turbo Pascal. Как мне её полностью перевести на Delphi 7.:(

Как перевести код из Pascal в Delphi
const nmax=100; var a,b:array of integer; n,m,i,j,k:integer; begin randomize; repeat write('Размер массива до ',nmax,'...

Как данный код в C# перевести, с Pascal
var n,s:integer; begin Readln(n); s:=0; for var i:=1 to n do s+=i; WriteLn(s); end.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru