лиззка16
13.09.2020 15:24

Кто нибудь разбирается со множествами решить, не понимаю это задание


Кто нибудь разбирается со множествами решить, не понимаю это задание

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
supermen2018
31.05.2022 04:44

Примечание: файл "file.txt" должен существовать в корневой папке программы. Если что-то не работает / работает не так, напишите об этом.

using System;

using System.IO;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           const int c = 'С';

           string text;

           using (FileStream file = new FileStream($"file.txt", FileMode.Open))

           {

               using (StreamReader reader = new StreamReader(file, System.Text.Encoding.Default))

               {

                   text = reader.ReadToEnd();

               }

           }

           string pattern = @"\w+";

           System.Text.RegularExpressions.Regex reg = new System.Text.RegularExpressions.Regex(pattern);

           System.Text.RegularExpressions.MatchCollection mc = reg.Matches(text);

           using (FileStream file2 = new FileStream($"file2.txt", FileMode.OpenOrCreate))

           {

               using (StreamWriter writer = new StreamWriter(file2, System.Text.Encoding.UTF8))

               {

                   foreach (var el in mc)

                       if ((el.ToString()[0] == c) || (el.ToString())[0] == Char.ToLower((char)c))

                           writer.WriteLine(el);

               }

           }

       }

   }

}

0,0(0 оценок)
Ответ:
Angelina781
02.05.2020 11:42
Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". В первый записываешь 8 чисел без пробелов и запятых ("22031991", например).

type  matrix = array [1..8] of integer;var  F, output: text;  i, n, cc, sum: integer;  c: char;  x: matrix;  ma: real;
procedure convert (var c: char; var cc: integer);begin  if c='1' then cc:=1;  if c='2' then cc:=2;  if c='3' then cc:=3;  if c='4' then cc:=4;  if c='5' then cc:=5;  if c='6' then cc:=6;  if c='7' then cc:=7;  if c='8' then cc:=8;  if c='9' then cc:=9;  if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin  for n:=1 to 7 do begin    if x[n]>x[n+1] then swap(x[n],x[n+1]);  end;end;
begin  Assign(F, '1.txt');  Reset(F);  for i:=1 to 8 do begin    read(F, c);    convert(c,cc);    x[i]:=cc;  end;  Close(F);
  sorting(n,x);  sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8];  ma:=sum/8;    Assign(output, 'output.txt');  rewrite(output);  writeln(output, sum); writeln(output, ma);  Close(output);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота