Метод имитационного моделирования используется в IT-инфраструктуре,математическом моделировании исторических процессов,управлениях проектами,экосистеме и информационной безопасности
bchukhraev79
23.03.2023
Using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Text.RegularExpressions;
internal static class Program { private const string glasnye_ = "aeiouy"; private const string soglasnye_ = "bcdfghjklmnpqrstvwxz";
private static void Main() { try { Console.WriteLine("Введите строку слов (любые символы будут считаться разделителями)"); var s = Console.ReadLine(); Console.WriteLine($"Гласных больше чем согласных:\n {Task1(s).Aggregate("", (current, t) => current + t.ToUpper() + " ")}"); Console.WriteLine(); Console.WriteLine($"Гласных больше чем согласных:\n {Task1Regex(s).Aggregate("", (current, t) => current + t.ToUpper() + " ")}"); Console.ReadLine(); } catch(Exception e) { Console.WriteLine(e); Console.ReadLine(); } }
var words = s.Split(new[] {' ', '-', ',', '.', '*', ':', ';', '_'}, StringSplitOptions.RemoveEmptyEntries).ToList();
var sb = new StringBuilder(); for (var i = 0; i < words.Count; i++) sb.AppendLine($"Слово[{i}] = {words[i].ToUpper()}");
Console.Write(sb.ToString());
var result = new List<string>();
foreach (var word in words) { var k = 0; foreach (var c in word.ToLower().ToCharArray()) { k += glasnye_.Contains(c) ? 1 : 0; k -= soglasnye_.Contains(c) ? 1 : 0; }
var ms = Regex.Matches(s, @"[A-z]+", RegexOptions.IgnoreCase);
var sb = new StringBuilder(); for (var i = 0; i < ms.Count; i++) sb.AppendLine($"Слово[{i}] = {ms[i].Value.ToUpper()}");
Console.Write(sb.ToString());
var result = new List<string>(); for (var i = 0; i < ms.Count; i++) { var v = ms[i].Value; var k = Regex.Matches(v, $"[{glasnye_}]", RegexOptions.IgnoreCase).Count; k -= Regex.Matches(v, $"[{soglasnye_}]", RegexOptions.IgnoreCase).Count; if (k > 0) result.Add(v); }
return result; } }
Merkuloff78
23.03.2023
Как бы написал я:
program n_1; var x1, x2, y1, y2, x, y: integer; begin writeln ('Введите значения координат(x1,x2,y1,y2,x,y):'); readln (x1, x2, y1, y2, x, y); if (x>x1) and (x<x2) and (y>y2) and (y<y1) then writeln('Точка с координатами (',x,';',y,') пренадлежит прямоугольнику') else writeln('Точка с координатами (',x,';',y,') не пренадлежит прямоугольнику'); end.
Булевой переменной не нужно, она же 1 раз используется. Далее, ошибка была (x<2) нужно было
Ну или если только без ошибки, то вот:
program n_1; var x1, x2, y1, y2, x, y: integer; a: Boolean; begin writeln ('Введите значения координат'); readln (x1, x2, y1, y2, x, y); a:= (x>x1)and(x<x2)and(y>y2)and(y<y1); writeln ('Точка с координатами принадлежит прямоугольнику ', a); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Где используется метод имитационного моделирования?