VBNet - Форум - Convert C++ to VB.NET

Вопрос: Convert C++ to VB.NET Добавлено: 15.08.11 00:27

Автор вопроса: Blazdbit

Всем доброго времени суток)
Задали на летнюю практику написать программу:

Получить массив C1,C2,...,Cn по правилу: Ci=0, если все элементы i-го столбца матрицы равны 0, иначе Ci=1. Найти также сумму всех элементов матрицы.

  Скачал код решения этой задачи на С++, отконвертировав его для VB.NET
    В общем проблема в том, что конвертер не смог перевести некоторые функции для VB.NET в частности:

"fprintf"-http://www.codenet.ru/progr/cpp/spr/141.php
"fscanf"-http://www.codenet.ru/progr/cpp/spr/141.php
"fopen"-http://www.codenet.ru/progr/cpp/sprd/fopen.php

int i, j, n;
float a[10][10], x[10], s, k;
FILE *dat, *rez;
dat=fopen ("data.txt", "rt");
if (dat==NULL)
{
printf ("Fail ne otkrit!");
getch ();
return 0;
}
rez=fopen ("rez.txt", "wt");
if (rez==NULL)
{
printf ("Fail ne otkrit!");
getch ();
return 0;
}
fscanf (dat,"%d", &n);
for (i=0; i<=n-1; i++)
{
for (j=0; j<=n-1; j++)
{
fscanf (dat, "%f", &a[i][j]);
printf ("%f\t",a[i][j]);
}
printf ("\n");
}
s=0;
for (j=0; j<n; j++)
{  k=0;
for (i=0; i<n; i++){
s=s+a[i][j];
if (a[i][j]==0){k=k+1;}
}
if (k==5){x[j]=0;}else x[j]=1;
fprintf (rez,"%f ", x[j]);
}
fprintf (rez, "\n Summa elementov matrici ravna = %f",s);
getch ();
return 0;
}




Imports Microsoft.VisualBasic
Imports System

Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim a(9, 9) As Single
Dim x(9) As Single
Dim s As Single
Dim k As Single
Dim dat As FILE
Dim rez As FILE
dat = fopen ("data.txt", "rt")
If dat Is Nothing Then
Console.Write ("Fail ne otkrit!")
Console.ReadKey (True).KeyChar
Return 0
End If
rez = fopen ("rez.txt", "wt")
If rez Is Nothing Then
Console.Write ("Fail ne otkrit!")
Console.ReadKey (True).KeyChar
Return 0
End If
fscanf (dat, "%d", n)
For i = 0 To n-1
For j = 0 To n-1
fscanf (dat, "%f", a(i, j))
Console.Write ("{0:f}" & vbTab,a(i, j))
Next j
Console.Write (vbLf)
Next i
s = 0
For j = 0 To n - 1
k = 0
For i = 0 To n - 1
s = s+a(i, j)
If a(i, j)=0 Then
k = k+1
End If
Next i
If k = 5 Then
x(j)=0
Else
x(j)=1
End If
fprintf (rez,"%f ", x(j))
Next j
fprintf (rez, vbLf & " Summa elementov matrici ravna = %f",s)
Console.ReadKey (True).KeyChar
Return 0
}

Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #1	Добавлено: 15.08.11 11:03
	этот форум не для того, что бы участники форума делали за ТЕБЯ ТВОЁ задание! Ответить

Номер ответа: 2 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #2	Добавлено: 15.08.11 11:03
	этот форум не для того, что бы участники форума делали за ТЕБЯ ТВОЁ задание! Ответить

Номер ответа: 3 Автор ответа: Blazdbit Вопросов: 1 Ответов: 2	Профиль \| \| #3	Добавлено: 15.08.11 17:55
	Что же ты любезный взял всю малину испортил, может у кого то бы возникло желание помочь, начинающему программисту)) Ответить

Номер ответа: 4 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #4	Добавлено: 16.08.11 12:47
	из-за таких как ты, Windows дырявый. Ответить

Номер ответа: 5 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #5	Добавлено: 16.08.11 13:49
	где он дырявый? Ответить

Номер ответа: 6 Автор ответа: Blazdbit Вопросов: 1 Ответов: 2	Профиль \| \| #6	Добавлено: 17.08.11 00:23
	Здесь кто нибудь в .NET понимает или это форум дискуссий? Ответить

Номер ответа: 7 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #7	Добавлено: 17.08.11 01:30
	Здесь кто нибудь в .NET понимает эээ.. зависит от предложенного вознаграждения форумная такса: 20$ Ответить

Номер ответа: 8 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #8	Добавлено: 17.08.11 13:28
	Artyom пишет: где он дырявый? Везде... Blazdbit пишет: Здесь кто нибудь в .NET понимает или это форум дискуссий? А это уже оскорбление... Ответить

Номер ответа: 9 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #9	Добавлено: 17.08.11 13:38
	Dan пишет: из-за таких как ты, Windows дырявый. И вообще все дырявые программы Ответить

Страница: 1 |