Форум программистов, компьютерный форум, киберфорум
Наши страницы
C# для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
maxsvirid
Заблокирован
1

Переписать код с Pascal

01.07.2015, 22:16. Просмотров 898. Ответов 1
Метки нет (Все метки)

Вот, собственно, код. Нужно переделать его на 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
var xx,yy:array[1..100] of real;
a1,b1,c1,st,s_mn:real;
i,n:integer;
procedure line(x0,y0,x,y:real;var l:real);
begin
l:=sqrt(sqr(x-x0)+sqr(y-y0));
end;
procedure pl(a,b,c:real; var s:real);
var p:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
readln(n);
for i:=1 to n do readln(xx[i],yy[i]);
s_mn:=0;
for i:=1 to n-2 do begin
line(xx[1],yy[1],xx[i+1],yy[i+1],a1);
line(xx[i+1],yy[i+1],xx[i+2],yy[i+2],b1);
line(xx[i+2],yy[i+2],xx[1],yy[1],c1);
pl(a1,b1,c1,st);
s_mn:=s_mn+st;
end;
writeln(s_mn);
end.
end.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.07.2015, 22:16
Ответы с готовыми решениями:

Переписать код с Pascal на C#
Хочу научиться переписывать программы с Pascal на C#. Помогите литературой, а лучше на примере...

Переписать код с Pascal на C#
Надо срочно переписать код. Голова что-то вообще не варит. var mas: array of integer; ...

Переписать код с Pascal на C#
плиз,помогите перевести из паскаля в с# Program z; Const n =15; Type myarray = Array Of...

Переписать код с Pascal на C#
Навеяло отсюда http://www.cyberforum.ru/csharp-beginners/thread901088.html А можно мне тоже,...

Переписать код с Pascal (работа со строками)
Function MaxBorder(S:String):Word; Var i, j, br, n:Word; Begin n:=Length(S);{Вычисляем длину...

1
Cuellius
188 / 96 / 130
Регистрация: 23.06.2015
Сообщений: 248
Завершенные тесты: 3
02.07.2015, 15:47 2
Лучший ответ Сообщение было отмечено maxsvirid как решение

Решение

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
using System;
 
class Program
{
    public static void Line(double x0, double y0, double x, double y, ref double l)
    {
        l = Math.Sqrt((x - x0) * (x - x0) + (y - y0) * (y - y0));
    }
 
    public static void Pl(double a, double b, double c, ref double s)
    {
        double p = (a + b + c) * 0.5;
        s = Math.Sqrt(p * (p - a) * (p - b) * (p - c));
    }
 
    static void Main(string[] args)
    {
        int n = Convert.ToInt32(Console.ReadLine());
        var xx = new int[101];
        var yy = new int[101];
 
        for (int i = 1; i <= n; i++)
        {
            var aData = Console.ReadLine().Split(new[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);
            xx[i] = Convert.ToInt32(aData[0]);
            yy[i] = Convert.ToInt32(aData[1]);
        }
 
        double a1 = 0, b1 = 0, c1 = 0, st = 0, s_mn = 0;
        for (int i = 1; i <= n - 2; i++)
        {
            Line(xx[1], yy[1], xx[i + 1], yy[i + 1], ref a1);
            Line(xx[i + 1], yy[i + 1], xx[i + 2], yy[i + 2], ref b1);
            Line(xx[i + 2], yy[i + 2], xx[1], yy[1], ref c1);
            Pl(a1, b1, c1, ref st);
            s_mn += st;
        }
 
        Console.WriteLine(s_mn);
    }
}
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2015, 15:47

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как с Pascal ABC переписать данный код на C#?
Сам код на Pascal ABC uses crt; {принадлежит ли точка прямой} function Prin(ax, ay, bx, by, cx,...

Переписать код "Турнирная сортировка" с Pascal на C#
Кто может, перепишите пожалуйста код с паскаля на С# { Турнирная сортировка } type nptr = ^node;...

Переписать с Pascal на С#
Program number6; var x,y: real; begin write('Введите координату x: '); readln(x);...


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

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

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