М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
piiip
piiip
13.07.2021 00:45 •  Информатика

Дана задача турбо паскаля с несколькими ошибками, нужно исправить ошибки чтобы программа работала.
const m_ref=2; {программа для вывода библиографических ссылок.}
type select = ( book, magazine); { тип, задающий две альтернативы}
entry = record { фиксированная часть}
author, title,page : string[100];
year : 1..2200;
case tag: select of {вариантная часть}
book : (publisher,city:string[50]);
page :(1..10000);
magazine : (magazine_name:string[100]);
valume,issue:byte;
page_low, page_up:(1..10000);
ref_list = array[1..m_ref] of entry;
var x : ref_list;
procedure ReadRef(var rf:ref_list); {процедура ввода данных}
begin
with rf[1] do begin
tag := book;
author :='Ахо А.,Хопкрофт Дж., Ульман Дж.';
title:='Структуры данных и алгоритмы';
year:=2000;
page:=382;
pablisher :='Вильямс';
city := 'M.:';
end;
with rf[2] do begin
tag := magazine;
author :='Bayer R.S., Moore J.S.';
title:='A fast string searching algorithm';
year:=1977;
mag_name:='Communication ACM';
valume := 20;
issue := 10;
page_low :=762; page_up :=772;
end;
end;
procedure WriteRef(rf:ref_list); { процедура вывода}
var I: integer;
begin
for I:= 1 to m_ref do
with rf[I] do begin
writeln(I:2, auther, ' ',title,'.');
if rf[I].tag = book then writeln('_', city, publisher,'.',year,'.',page,'c.')
else writeln('_',mag_name,',',volume,',N',issue,',(',year,'),',
page_low,'_',page_up)
end
end;
Begin { основная программа}
ReadRef(x); WriteRef(x); readln
end
end
End.

👇
Открыть все ответы
Ответ:
Olesya1223
Olesya1223
13.07.2021

using System;

namespace ConsoleApp

{

   internal class Program

   {

       private static void Main()

       {

           Console.Write("n = ");

           int n = int.Parse(Console.ReadLine());

           Console.Write("t = ");

           int t = int.Parse(Console.ReadLine());

           int counter = 0;

           // цикл по всем натуральным числам, меньших n

           for (int i = 1; i < n; ++i)

           {

               int sum = GetDigitsSum(i); // получаем сумму цифр

               int sqSum = sum * sum; // вычисляем квадрат этой суммы

               if (sqSum == t)

               {

                   counter++;

                   Console.WriteLine(i);

               }

           }

           if (counter == 0)

               Console.WriteLine("Nothing found");

       }

       private static int GetDigitsSum(int num)

       {

           int sum = 0;

           while (num > 0)

           {

               sum += num % 10; // добавляем в сумму последнюю цифру

               num /= 10; // отсекаем последнюю цифру

           }

           return sum;

       }

   }

}

4,4(48 оценок)
Ответ:

Задача 1:

using System;

using System.Linq;

namespace ConsoleApp1

{

   internal class Program

   {

       private static void Main(string[] args)

       {

           Console.Write("Enter n: ");

           int n = int.Parse(Console.ReadLine());

           var x = new int[n];

           var rand = new Random();

           for (int i = 0; i < n; i++)

           {

               x[i] = rand.Next(-100, 100);

               Console.WriteLine($"x[{i}] = {x[i]}");

           }

           int max = x.Max();

           int index = Array.IndexOf(x, max);

           for (int i = 0; i < index; i++)

           {

               if (x[i] < 0)

                   x[i] = 0;

           }

           Console.WriteLine("\nResult:");

           for (int i = 0; i < n; i++)

               Console.WriteLine($"x[{i}] = {x[i]}");

       }

   }

}

Задача 2:

using System;

using System.Linq;

namespace ConsoleApp2

{

   internal class Program

   {

       private static void Main(string[] args)

       {

           Console.Write("Enter n: ");

           int n = int.Parse(Console.ReadLine());

           var a = new int[n];

           var rand = new Random();

           for (int i = 0; i < n; i++)

           {

               a[i] = rand.Next(-100, 100);

               Console.WriteLine($"x[{i}] = {a[i]}");

           }

           int[] positiveItems = a.Where(t => t > 0).ToArray();

           if (positiveItems.Length == 0)

           {

               Console.WriteLine("No positive numbers");

               return;

           }

           int sum = positiveItems.Sum();

           int product = positiveItems.Aggregate((x, y) => x * y);

           double arithmeticMean = sum / (double)positiveItems.Length;

           double geometricMean = Math.Pow(product, 1 / (double)positiveItems.Length);

           Console.WriteLine($"\nArithmetic mean: {arithmeticMean}");

           Console.WriteLine($"Geometric mean: {geometricMean}");

       }

   }

}


1) В заданном массиве Х(N) замените нулями все отрицательные компоненты, непосредственно предшествую
1) В заданном массиве Х(N) замените нулями все отрицательные компоненты, непосредственно предшествую
4,7(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ