Важная информация
Показано с 1 по 2 из 2

Тема: Перевести программу из Pascal на С#

  1. #1 Перевести программу из Pascal на С# 
    Новичок
    Регистрация
    05.07.2019
    Сообщений
    3
    Сказал(а) спасибо
    2
    Поблагодарили 0 раз(а) в 0 сообщениях
    Всем привет! Помогите пожалуйста перевести код программы с Паскаль на С#.

    В трехмерном пространстве задано множество материальных точек. Найти ту из них, которая наиболее близко расположена к центру тяжести этого множества.

    Pascal Code:
    1.  
    2.  
    3. type point=record
    4.            x,y,z:real;
    5.            end;
    6. //квадрат расстояния между двумя точками
    7. function rast(a,b<img src="http://iforum.pro/images/smilies/tongue.png" border="0" alt="" title="Stick Out Tongue" class="inlineimg" />oint):real;
    8. begin
    9. rast:=sqr(a.x-b.x)+sqr(a.y-b.y)+sqr(a.z+b.z);
    10. end;
    11. var n,i,imn:integer;
    12.     a:array[1..50] of point;
    13.     c<img src="http://iforum.pro/images/smilies/tongue.png" border="0" alt="" title="Stick Out Tongue" class="inlineimg" />oint;
    14.     min:real;
    15. begin
    16. randomize;
    17. repeat
    18. write('Количество точек от 3 до 50 n=');
    19. readln(n);
    20. until n in [3..50];
    21. writeln('Координаты точек');
    22. for i:=1 to n do
    23. begin
    24.   a[i].x:=-10+random(21);
    25.   a[i].y:=-10+random(21);
    26.   a[i].z:=-10+random(21);
    27.   write(i:2,'(',a[i].x:5:1,';',a[i].y:5:1,';',a[i].z:5:1,') ');
    28.   if i mod 3=0 then writeln;
    29. end;
    30. writeln;
    31. c.x:=0;
    32. c.y:=0;
    33. c.z:=0;
    34. for i:=1 to n do
    35. begin
    36.   c.x:=c.x+a[i].x;
    37.   c.y:=c.y+a[i].y;
    38.   c.z:=c.z+a[i].z;
    39. end;
    40. c.x:=c.x/n;
    41. c.y:=c.y/n;
    42. c.z:=c.z/n;
    43. writeln('Координаты центра тяжести: (',c.x:5:1,';',c.y:5:1,';',c.z:5:1,')');
    44. min:=rast(a[1],c);
    45. imn:=1;
    46. for i:=2 to n do
    47. if rast(a[i],c)<min then
    48. begin
    49.   min:= rast(a[i],c);
    50.   imn:=i;
    51. end;
    52. writeln('Наиболее близкая к центру точка №',imn,' ее координаты<img src="http://iforum.pro/images/smilies/frown.png" border="0" alt="" title="Frown" class="inlineimg" />',a[imn].x:5:1,';',a[imn].y:5:1,';',a[imn].z:5:1,')');
    53. write('расстояние=',min:0:1);
    54. end.
    Последний раз редактировалось Виктория555; 09.07.2019 в 21:48.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,912
    Сказал(а) спасибо
    1,842
    Поблагодарили 977 раз(а) в 835 сообщениях
    Записей в блоге
    1
    У нас C#-пом владеет только 1 человек - Игорь Черепов и скажу честно, давно его не видел.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 1
    Последнее сообщение: 13.09.2015, 13:10
  2. Помогите перевести на BASIC с Pascal
    от Denis в разделе QBasic
    Ответов: 0
    Последнее сообщение: 24.01.2012, 19:08
  3. Перевести с Pascal на Basic
    от Denis в разделе QBasic
    Ответов: 0
    Последнее сообщение: 20.01.2012, 17:14
  4. Ответов: 1
    Последнее сообщение: 01.12.2011, 17:53
  5. перевести на basic с pascal
    от екатерина но в разделе QBasic
    Ответов: 2
    Последнее сообщение: 16.07.2011, 13:48
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •