Конвертировать с Pascal на C# - C# (182468)

Узнай цену своей работы

Формулировка задачи:

Нужно перевести этот код с Pascal на C#:
Листинг программы
  1. const
  2. N = 9;
  3. L = 5;
  4. A : array [1..N] of Integer = (12,45,5,4,21,20,10,12,26);
  5. var
  6. min, i, j : Integer;
  7. begin
  8. min := A[1]*A[1] + A[1+L]*A[1+L];
  9. for i := 1 to N-L do
  10. for j := i+L to N do
  11. if min > A[i]*A[i] + A[j]*A[j] then
  12. min := A[i]*A[i] + A[j]*A[j];
  13. WriteLn(min);
  14. end.
Пытался перевести, но выводит значение 116 вместо 169.
Листинг программы
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using System.Threading.Tasks;
  6. namespace Program1
  7. {
  8. class Program
  9. {
  10. static void Main(string[] args)
  11. {
  12. int L = 5;
  13. int[] a = new int[9] {12, 45, 5, 4, 21, 20, 10, 12, 26};
  14. int min;
  15. min = a[1] * a[1] + a[1 + L] * a[1 + L];
  16. for (int i = 1; i < a.Length - L; i++)
  17. {
  18. for (int j = i + L; i < a.Length; i++)
  19. {
  20. if (min > a[i] * a[i] + a[j] * a[j])
  21. {
  22. min = a[i] * a[i] + a[j] * a[j];
  23. }
  24. }
  25. }
  26. Console.WriteLine(min);
  27. }
  28. }
  29. }
Помогите правильно перевести код. Заранее спасибо)

Решение задачи: «Конвертировать с Pascal на C#»

textual
Листинг программы
  1. const int N = 9;
  2.             const int L = 5;
  3.             int[] A = { 12, 45, 5, 4, 21, 20, 10, 12, 26 };
  4.  
  5.             int min;
  6.  
  7.             min = A[1] * A[1] + A[1 + L] * A[1 + L];
  8.             for (int i = 1; i < N - L; i++)
  9.             {
  10.                 for (int j = i + L; j < N; j++)
  11.                 {
  12.                     if (min > A[i] * A[i] + A[j] * A[j])
  13.                     {
  14.                         min = A[i] * A[i] + A[j] * A[j];
  15.                     }
  16.                 }
  17.             }
  18.             Console.WriteLine(min);

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут