Напечатать все буквы, входящие в текст не менее двух раз - C#

  1. 1)Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст не менее двух раз. Код DelphiDelphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 program Project12;   {$APPTYPE CONSOLE}   uses   SysUtils; var   s: String;   checked: Set of Char;   i: Byte; begin   write ('vvedite text: ');   readln(s);   checked := [];   for i := 1 to Length(s) do    if not(s[i] in checked) then    begin      include(checked, s[i]);      if pos(s[i], copy(s, i + 1)) > 0 then       writeln('"' + s[i] + '"' + ' >= 2') else        writeln('"' + s[i] + '"' + ' = 1');    end;   readln; end.2) В таблице хранятся следующие данные об учениках: фамилия, имя, отчество, рост, масса. Вычислить средний рост учеников, рост самого высокого и самого низкого ученика. Сколько учеников могут заниматься в баскетбольной секции, если рост баскетболиста должен быть больше 170 см? Код DelphiDelphi1 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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 program Project13;   {$APPTYPE CONSOLE}   uses   SysUtils;   type Tstudent=Record     fam: string[20];     name: string[20];     rost: Integer;     massa: integer;     End;   Procedure create_stud(var stud:Tstudent);  var ch:char;  begin   write('Familiya: '); readln(stud.fam);    write('Name: '); readln(stud.name);    write('rost: '); readln(stud.rost);    write('massa: '); readln(stud.massa);     end;   Procedure print_stud(stud:Tstudent);  begin   writeln('Familiya: ',stud.fam);   writeln('Name: ',stud.name);   writeln('rost: ',stud.rost);   writeln('massa: ',stud.massa);   end;   var f:file of Tstudent;  student:Tstudent;  ch:char;  filename:string;  menu,amount,i:byte;  students:array of Tstudent;  n,max,min,sr:integer;  begin  writeln('For create file press 1');  writeln('For analise file press 2');  readln(menu);  case menu of 1: begin  repeat write('Enter file name for BD:');  readln(filename);  assign(f,filename);   rewrite(f);    if Ioresult<>0 then writeln('File not found')    else break;     until false;     repeat create_stud(student); write(f,student);  write('Continue Yes/No?');  readln(ch);  until Upcase(ch)='N';  close(f);  end; 2: begin  repeat write('Enter file name of DB:'); readln(filename);  assign(f,filename); reset(f); if Ioresult<>0 then writeln('File not found')  else break;  until false;  amount:=filesize(f);  setlength(students,amount);   for I := 0 to amount - 1 do      read (f,students[i]);       for I := 0 to amount - 1 do          max:=0;        for I := 0 to amount - 1 do         if (students[i].rost>max) then max:=students[i].rost;         writeln('max rost:' , max);         min:=students[1].rost;       for I := 0 to amount - 1 do         if (students[i].rost<min) then min:=students[i].rost;         writeln('min rost:', min);          sr:=0;         for I := 0 to amount - 1 do       sr:=sr+students[i].rost;        writeln('sr rost:', sr/amount - 1:3:0);         for I := 0 to amount - 1 do      if (students[i].rost>=170) then  inc(n);        writeln('v komande:',n,' uchenikov');          close(f);          end;        end;        readln;       end.3) Дано натуральное число N(N > 9). Определить сумму цифр в первой половине числа (старшие разряды). Пример. N =12 345 678. Сумма составляет 1+2+3+4=10. Код DelphiDelphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 program Project16;   {$APPTYPE CONSOLE}   uses   SysUtils;   var i,j,sum:longint;     s:string;     vs:integer; begin   write('Vvedite chislo: ');   readln(i);   str(i,s);   sum:=0;   for j:=1 to length(s) div 2 do   begin     val(s[j],i,vs);     sum:=sum+i;   end;   writeln('Sum=',sum);   readln; end.4) Составить программу удаления из десятичной записи числа N единиц, сохранив порядок следования оставшихся цифр. Сформировать и напечатать полученное число. Код DelphiDelphi1 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 program Project16;   {$APPTYPE CONSOLE}   uses   SysUtils;   var n:integer; a:string; i:byte; begin write('Vvedite chislo- '); readln(n); a:=inttostr(n); while pos('1',a)<>0 do for i:=0 to length(a) do    begin      if a[i]='1' then        begin          delete(a,i,1);        end;    end;   writeln(a); readln end.Помогите кто может с переводом этих программ на C#


textual

Код к задаче: «Напечатать все буквы, входящие в текст не менее двух раз - C#»

using System;
using System.Collections.Generic;
 
namespace ConsoleApplication1
{
    class Program
    {
        static HashSet<char> ss = new HashSet<char>();
        static HashSet<char> resultTest = new HashSet<char>();
        static string result = "";
 
        static void Main()
        {
            // Создадим два множества
            Console.WriteLine("Введите текст: ");
            takeText();
 
            Console.WriteLine("\nБуквы, входящие более 2 раз: ");
            Console.WriteLine(result);
 
            Console.ReadLine();
        }
 
        static void takeText()
        {
            ConsoleKeyInfo pressedBtn = new ConsoleKeyInfo();
            if (pressedBtn.Key != ConsoleKey.Enter)
            {
                pressedBtn = Console.ReadKey();
                if (ss.Add(pressedBtn.KeyChar) == false)
                    if (resultTest.Add(pressedBtn.KeyChar) == true)
                        result = result + " " + pressedBtn.KeyChar;
                takeText();
            }
        }
    }
}

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.182 из 5



Похожие ответы
  1. Допустим я считал в переменную выбранный класс другого проекта C#, а как вывести список всех его переменных и методов в textBox?

  1. Вывести все простые числа от M до N включительно. Ввод В первой строке находятся разделённые пробелом M и N. Вывод Вывести числа в порядке возрастания, по одному в строке. Если между M и N включительно нет простых - вывести "Absent". помоги разобрать задачу по программированию

  1. Переместить все файлы , кроме определённых 3 файлов в папку "C:\Очистка рабочего стола\Все файлы\1" ? Вообще это весь вопрос

  1. Здравствуйте, документ состоит из объектов с тегом (Их много). Мне необходимо выписать все значения атрибутов name С XML работать не умею, заранее спасибо.XML1 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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62               Недвижимость         ООО    
                ПРЕЖДЕ ЧЕМ ПРЕДПРИНИМАТЬ КАКИЕ ЛИБО ДЕЙСТВИЯ Наименование оборудования: CCU 6225  
                                                                 

    1. Здравствуйте. Нужна помощь. Как поставить точку после перечисления всех символов. К примеру есть вот такой код. Он ищет все русские символы и ставит после каждого запятую.

    1. Задача не проходит все тесты. Пример, указанный в условии работает, а потом тестировщик пробует еще несколько различных вариантов входных данных. Какой вариант не сработал, он не показывает. Помогите пожалуйста разобраться, какие условия в моем коде не соблюдены. Условие задачи: Кликните здесь для просмотра всего текста Телефонная книга ограничение по времени на тест2 секунды ограничение по памяти на тест256 мегабайт вводstdin выводstdout Вам дана телефонная книга в виде последовательности пар строк. Первая строка — имя абонента, вторая — его номер. Телефон может быть в одном из форматов: +7xxxxxxxxxx (ровно 11 цифр, «x» — любая цифра); 8xxxxxxxxxx (ровно 11 цифр, «x» — любая цифра); xxxxxxx (ровно 7 цифр, «x» — любая цифра). Кроме цифр в произвольные позиции телефонных номеров могут быть вставлены дефисы и скобки. Например, телефон «+7(917)100-00-00» считается корректным. Требуется упорядочить телефонную книгу, используя следующие правила: объедините контакты с одинаковыми именами (регистр букв имеет значение); приведите все телефоны к одной записи вида «+7xxxxxxxxxx» (ровно 11 цифр, без дополнительных символов), при этом если телефон соответствует третьему формату, то добавьте в начало префикс «+7495»; удалите дубликаты в списке телефонов каждого абонента; при обработке пропустите записи из книги, в которых телефон не подходит ни под один из указанных форматов.Входные данные Входные данные состоят из набора пар строк, где первая строка означает имя, а вторая — номер телефона. Имя — это непустая последовательность заглавных и строчных латинских букв и пробелов. Имя не может начинаться или заканчиваться пробелом. Телефон — это непустая последовательность из цифр, скобок и знаков «+» и «-». Входные данные состоят не более чем из 1000 строк.Выходные данные Выведите телефонную книгу в виде последовательность пар строк, в первой строке выведите имя абонента, во второй — список телефонов в лексикографическом порядке, относящихся к этому абоненту. Для каждого из абонентов его список телефонов не должен содержать дубликатов. Описания абонентов выводите в лексикографическом порядке их имен. Если для абонента в записной книжке не указано ни одного корректного номера, то выводить его не следует. Примеры из условия задачи(они отработали): Кликните здесь для просмотра всего текста входные данные Vincent van Gogh +79170123456 Archimedes 8(911)321-85-85 Vincent van Gogh 321-85-85 Vincent van Gogh 18238585 George Washington +7-(919)-01-23-4-5-6 Peter 8выходные данные Archimedes +79113218585 George Washington +79190123456 Vincent van Gogh +74953218585 +79170123456 Код программы, реализованной мной на C#:

    1. Привет, есть код читаем почту перелистываем все письма в почте и записываем в текстовый файл, в тхт всегда последнее письмо , как это исправить ? перед этим как писать тему искал на форуме и в гугле , увы нечего не нашел : ( (либо же не понял толком )

    1. Здравствуйте. Есть код, который "обходит" все файлы и директории и пути к ним записывает в файл Но почему то записывается фиксированное и неполное количество информации Вот код : Кликните здесь для просмотра всего текста

    1. Здравствуйте! Интерисует такой вопрос, как можно выводить графику на экран, не в область окна приложения, а поверх всего. К примеру, как нарисовать линию или вывести изображение. Заранее спасибо.