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

Перевести с Basic в C#

12.12.2012, 22:55. Показов 406. Ответов 0
Метки нет (Все метки)

Вот задача:
Перевести с Basic в C#

Нужно ее перевести на C#. Вот пример что должно получиться:
Название: 202-2.png
Просмотров: 33

Размер: 23.0 Кб
Входные данные N = 15, M = 3, N1 = 7, J = 2, W(0) = 0,08333, A(0) = 1, W(1) = 0,375, A(1) = 1

Вот что меня получилось:
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace _202_console
{
    class Program
    {
        static void Main(string[] args)
        {
            int N, M, N1;
 
            Console.Write("N: ");
            N = int.Parse(Console.ReadLine());
 
            Console.Write("M: ");
            M = int.Parse(Console.ReadLine());
 
            Console.Write("N1: ");
            N1 = int.Parse(Console.ReadLine());
 
            int NN = (N1 - 1) * M;
            int NM = N % M;
            int N3;
 
            if (NM == 0)
                N3 = N;
            else
                N3 = N + M - NM;
 
            int N2 = NN + N3;
            int L1 = (N - 1) / 2;
            int[] B = new int[N];
            double[] X = new double[N];
            double[] Y = new double[N1];
 
            for (int i = 0; i <= N - 1; i++)
            {
                B[i] = i;
            }
 
            Console.Write("J : ");
            int J = int.Parse(Console.ReadLine());
            double[] A = new double[J];
            double[] W = new double[J];
 
            for (int i = 0; i < W.Length; i++)
            {
                Console.Write("W: ");
                W[i] = double.Parse(Console.ReadLine());
                Console.Write("A: ");
                A[i] = double.Parse(Console.ReadLine());
            }
 
            int K;
            int K1;
            for (int I = 0; I <= N2; I++)
            {
                K = I % M;
                K1 = I / M;
 
                for (int I1 = N - 1; I1 >= 1; I1--)
                {
                    X[I1] = X[I1 - 1];
                }
 
                double S = 0;
 
                for (int I2 = 0; I2 <= J - 1; I2++)
                {
                    S = S + A[I2] * Math.Cos(2 * Math.PI * I * W[I2]);
                }
 
                X[0] = S;
 
 
                for (int I1 = N1 - 1; I1 >= 1; I1--)
                {
                    Y[I1] = Y[I1 - 1];
                }
 
                S = 0;
 
                for (int I3 = 0; I3 <= N - 1; I3++)
                {
                    S = S + B[I3] * X[I3];
                }
 
                Y[0] = S;
 
                int NX = I - L1;
                int NY = 0;
 
                if (K == 0)
                {
                    NY = I / M;
                    Console.WriteLine(string.Format("{0}\t{1:0.000000}\t{2}\t{3:0.000000}", NX, X[L1], NY, Y[0]));
                }
                else
                {
                    Console.WriteLine(string.Format("{0}\t{1:0.000000}", NX, X[L1]));
                }
            }
 
            Console.ReadLine();
        }
    }
}
Первые 3 столбика совпадают, а вот с последним что-то не то. Помогите найти ошибку.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2012, 22:55
Ответы с готовыми решениями:

Перевести с Basic на С++
Помогите переделать данный код на язык С++. Public Sub p1() Dim n As Integer, m As...

Перевести C++ в Basic
Помогите пожалуйста перевести из C++ в Basic смысл кода в том, что побайтово копировать файл ...

Перевести код с Basic
Помогите плз переписать код на паскаль..спасибо rem первод чисел из 2 сс в 16 сс CLS INPUT ...

Перевести с Basic на Pascal
Пожалуйста, помогите перевести программу Basic на Pascal. Буду очень благодарна)))

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2012, 22:55

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Перевести код с basic
Добрый всем вечер! Пожалуйста помогите перевести следующий код с языка Basic ( не путать с visual...

Перевести код с Basic
10 CLS 20 DIM x (20) 30 LPPRINT “ Последовательность x(20) “ 40 LPRINT 50 x(1)=0: x(2)=5/8 60...

Перевести программу в Basic
uses crt; const nmax=100; var a:array of integer; n,i,j,k,p,mx:byte; mn:integer; begin...

Перевести с Basic на Pascal
Был бы очень благодарен, если бы помогли решить 3 задачи, а если быть более точным, то есть...


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

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

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