Преобразовать код Pascal в Visual basic.net (консоль)

03.11.2022, 08:49. Показов 311. Ответов 0

Метки нет (Все метки)

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

Задача: Последовательность задана формулой 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.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

03.11.2022, 08:49

Ответы с готовыми решениями:

Перевести код с VBA на Visual Basic.NET
Здравствуйте! Прошу помощи. Переведите, пожалуйста, код ниже с VBA (Эксель) на Visual Basic.NET. Обращаюсь вынужденно, поскольку не...

Перевести код с Pascal на Visual Basic (windows form)
procedure mas; const Nmax = 100; Var x:array of Real; N, i, ko, kp:integer; So, sp, Sro, Srp:Real; Begin writeln('В массиве...

Как корректно перенести код с qBasic на Visual Basic.NET?
Имеется код 10 T1=2343:T2=2403:T3=1808:T4=1820 20 N1=9:N2=7:N3=11:N4=34 205 X2=0:PP=1:EEE=.0001 215 PP=PP/10 220 X2=X2-PP 230...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

03.11.2022, 08:49

Помогаю со студенческими работами здесь

Преобразовать код Pascal в C# (консоль)
Задача: В группе учится N учеников, ученики получили по четыре отметки за экзамен. Определить количество неуспевающих учеников и средний...

Преобразовать код Pascal в C# (консоль)
var i,j,s,k:integer; sa:real; a:array of integer; begin writeln('Ввод элементов матрицы'); for i:=1 to 5 do ...

Обновление приложения. Перевести код с Visual Basic .NET
Всем привет. По скольку я в C# новичок, у меня возникли некоторые проблемы с переводом кода из VB в C#. Вот сам код: private...

Перевести программу из Pascal в visual basic (консоль)
const n = 10; var a : array of integer; k, i : byte; begin randomize; writeln('исходный массив:'); for i := 1...

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

Наверх