Помогите перевести код с Pascal на cprogram glas;uses crt;type T_str=array[1..10] of

Помогите перевести код с Pascal на c
program glas;
uses crt;
type T_str=array[1..10] of string[80];
T_set=set of char;
var s,new: T_str;
alf,gls,sogl: T_set;
kol,i,j,kolg,kolsg,schet:byte;
prom: string;
begin
clrscr;
textcolor(green);
schet:=1;
kolg:=0; kolsg:=0;
alf:=['A'..'Z'];
gls:=['A','E','I','O','U','Y'];
sogl:=['B','C','D','F','G','H','J','K',
'L','M','N','P','Q','R','S','T','V','W','X'];
writeln;

writeln(' Vvedite kol-vo slov(ne gt; 10 !):');
readln(kol);
writeln;
textcolor(red);
writeln(' VVODIM TOLKO ZAGLAVNIMI !!!');
textcolor(green);
writeln;
for i:=1 to kol do
begin
writeln(' vvod ',i,'-go slova:');
readln(s[i]);
prom:=s[i];
kolg:=0; kolsg:=0;
for j:=1 to length(prom) do
begin
if (prom[j] in gls) then
kolg:=kolg+1
else kolsg:=kolsg+1;
end;
if kolggt;kolsg then
begin
new[schet]:=prom;
schet:=schet+1;
end;
end;
clrscr;
writeln;


writeln(' IsHodnii massiv slov:');
writeln;
for i:=1 to kol do
begin
write(' ',s[i]);
end;
readkey;
writeln;writeln;


writeln(' Slova gde gt; glas.');
writeln;
for i:=1 to schet do
begin
write(' ',new[i]);
end;
readkey;
end.

Задать свой вопрос
Арсений
регулярные выражения можно использовать? Только для латинских букв слов либо для русских тоже?
1 ответ
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) =gt; current + t.ToUpper() + " ")");
            Console.WriteLine();
            Console.WriteLine("Гласных больше чем согласных:\n Task1Regex(s).Aggregate("", (current, t) =gt; current + t.ToUpper() + " ")");
            Console.ReadLine();
       
        catch(Exception e)
       
            Console.WriteLine(e);
            Console.ReadLine();
       
   

    private static IEnumerablelt;stringgt; Task1(string s)
   
        Console.ForegroundColor = ConsoleColor.Cyan;
        Console.WriteLine("Без поддержки постоянных выражений");

        var words = s.Split(new[] ' ', '-', ',', '.', '*', ':', ';', '_', StringSplitOptions.RemoveEmptyEntries).ToList();

        var sb = new StringBuilder();
        for (var i = 0; i lt; words.Count; i++)
            sb.AppendLine("Слово[i] = words[i].ToUpper()");

        Console.Write(sb.ToString());

        var result = new Listlt;stringgt;();

        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;
           

            if (k gt; 0)
                result.Add(word);
       

        return result;
   

    private static IEnumerablelt;stringgt; Task1Regex(string s)
   
        Console.ForegroundColor = ConsoleColor.Green;
        Console.WriteLine("С постоянными выражениями");

        var ms = Regex.Matches(s, @"[A-z]+", RegexOptions.IgnoreCase);

        var sb = new StringBuilder();
        for (var i = 0; i lt; ms.Count; i++)
            sb.AppendLine("Слово[i] = ms[i].Value.ToUpper()");

        Console.Write(sb.ToString());

        var result = new Listlt;stringgt;();
        for (var i = 0; i lt; 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 gt; 0)
                result.Add(v);
       

        return result;
   



Артем Канонов
VS 2017 , .Net Framework 4.5.2
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо

Разные вопросы.

Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных

Разные вопросы.

Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей

Математика.

Определить предложения какие они по цели высказывания и по интонации

Русский язык.

"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.

Русский язык.

на одной грядке коротышки посадили 3 ряда морковок по 8 штук

Разные вопросы.

эссе на тему какое образование дается в каждой семье

Қазақ тiлi.

Put the verb in brackets into the Present Indefinite. 1The Volga ,

Английский язык.

Сколько стоит коктейль молочный? Точную цену надо?

Математика.

Составить рассказ Из чего складывался культ монарха помазанника Божьего?

История.

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт