0 / 0 / 0
Регистрация: 10.12.2018
Сообщений: 7
1

Перевод программы с Pascal на C#

13.12.2018, 20:01. Показов 1204. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
плиз нужно перевести с паскаля на 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
30
31
32
33
//Визуально разделил циклы, чтобы было более читаемо 
 
var ar:array[1..10] of integer;
max,i:integer;
begin;
randomize; //чтобы random() работал как надо
writeln('Array');
 
 
for i:=1 to 10 do
begin;
ar[i]:=random(-10,10); //случайное число от -10 до 10
write(ar[i]:4);
end;
 
 
for i:=1 to 10 do //"проходим" через весь массив
if (ar[i]<0) and (max<abs(ar[i])) then max:=abs(ar[i]);
{если элемент массива меньше нуля и его модуль больше максимума тогда записать модуль этого числа в максимум}
 
 
writeln;
writeln('Max:-',max); //выводим на всякий случай максимум
 
 
writeln('Final array:');
for i:=1 to 10 do //снова проходим по всему массиву
begin;
if ar[i]=-max then ar[i]:=0; 
{если элемент равен отрицательному максимуму(мы брали модуль) присвоить ему 0}
write(ar[i]:4);
end;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2018, 20:01
Ответы с готовыми решениями:

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой...

Перевод программы на C# в Pascal
static bool MillerRabinTest(int n, int k) { if (n &lt;= 1) ...

Перевод программы из Pascal в СИ
Здравствуйте, скажите, пожалуйста есть ли программы, которые переводят код Pascal в СИ? Есть...

2
8 / 7 / 2
Регистрация: 09.01.2018
Сообщений: 21
13.12.2018, 20:18 2
Лучший ответ Сообщение было отмечено DiGreyMan как решение

Решение

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
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
namespace Marve
{
    class Program
    {
        static int[] arr = new int[10];
        static int max = 0;
        static void Main(string[] args)
        {
            Random rand = new Random();
            Console.WriteLine("Array");
            for (int i = 0; i < 10; i++) {
                arr[i] = rand.Next(-10, 10);
                Console.Write("{0} ", arr[i]);
            }
            Console.Write("\n");
            for (int i = 0; i < 10; i++) {
                if (arr[i] < 0 && max < Math.Abs(arr[i]))
                    max = Math.Abs(arr[i]);
            }
            Console.Write("{0}\n", max);
            Console.WriteLine("Final array:");
            for (int i = 0; i < 10; i++)
            {
                if (arr[i] == -max)
                    arr[i] = 0;
                Console.Write("{0} ", arr[i]);
            }
            Console.Write("\n");
            while (true) ;
        }
    }
}
1
Эксперт JS
6493 / 3904 / 2005
Регистрация: 14.06.2018
Сообщений: 6,781
13.12.2018, 21:12 3
Jefry_Carson, верхний предел не включается. Поэтому в целых числах надо увеличивать на единицу.
C#
1
arr[i] = rand.Next(-10, 11);
1
13.12.2018, 21:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2018, 21:12
Помогаю со студенческими работами здесь

Перевод программы с Pascal на C++
Здравствуйте уважаемые форумчане, помогите перевести следующую программу на C++: program z3; ...

Перевод программы из C++ на Pascal
Народ прошу помощи. Нужно перевести прогу из C++ на Pascal. Помогите пожалуйста, в синтаксисе...

Перевод программы с Pascal в С++
Добрый день,мне нужно написать правильный код программы с Pascal на С++ var n,k:longint; begin...

Перевод программы из Pascal
Перевести готовую программу из Паскаль в Фортран


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

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

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