Преобразовать код Pascal в C# (консоль)

@Dryn69 · Регистрация: 12.10.2022

Студворк — интернет-сервис помощи студентам

Задача: Последовательность задана формулой ai=(-1)*((i^2+1)/(2*i+1)). вычислить сумму отрицательных членов и их число с номера 3 по 10 , и с 11 по 17 (консольное приложение)

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
28
29
30
uses crt;
var n,i,k1,k2:byte;
    a,s1,s2:real;
begin
clrscr;
n:=17;
for i:=1 to n do
 begin
  a:=-1*(i*i+1)/(2*i+1);
  write(a:5:1);
  if a<0 then
   begin
    if i in [3..10] then
     begin
      k1:=k1+1;
      s1:=s1+a;
     end;
    if i in [11..17] then
     begin
      k2:=k2+1;
      s2:=s2+a;
     end;
   end;
 end;
writeln;
writeln('Количество и сумма отрицательных');
writeln('номера с 3 по 10 k=',k1,' s=',s1:0:1);
writeln('номера с 11 по 17 k=',k2,' s=',s2:0:1);
readln
end.

@roach1967 · 03.11.2022, 12:04

Dryn69,

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
using System;
 
namespace ConsoleApp95
{
    internal class Program
    {
        private static int n = 17;
        static void Main(string[] args)
        {
            int k1 = 0, k2 = 0;
            double s1 = 0, s2 = 0;
            for (int i = 1; i < n; i++)
            {
                double a = -1 * (i * i + 1.0) / (2.0 * i + 1.0);
                if (a < 0)
                {
                    if (i >= 3 && i <= 10)
                    {
                        k1++;
                        s1 += a;
                    }
                    else
                    {
                        k2++;
                        s2 += a;
                    }
                }
            }
            Console.WriteLine("Количество и сумма отрицательных");
            Console.WriteLine($"номера с 3 по 10 k= {k1} s={s1:0}");
            Console.WriteLine($"номера с 11 по 17 k= {k2} s={s2:0}");
            Console.ReadLine();
        }
    }
}

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем