Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=41571&view=findpost&p=271344 Sat, 27 Dec 2003 03:16:32 +0000 Учимся считать буковки https://forum.sources.ru/index.php?showtopic=41571&view=findpost&p=271344 №1
{Посчитаем количество заглавных и обычных русских букв в строке}
program Sposob1;
var s:string;
    i,br,mr:byte; {br-большие русские mr-малые русские буквы}
    {i-счетчик}
begin
     writeln('Введите строку');
     readln(s);                 {Вводим строку}
     for i:= 1 to length(s) do
     begin
          if s[i]in['А'..'Я']then inc(br); {если встретилась большая буква
                                            увеличиваем  счетчик  br  на 1
                                            inc(br)=br:=br+1}
          if s[i]in['а'..'п','р'..'я']then inc(mr);{Аналогично, но с mr}
     end;
     writeln('Количество заглавных русских букв ',br);
     writeln('Количество малых русских букв ',mr);
     readln;
end.


№2
program Sposob2;
var s:string;
    i:integer;
    m:array[#0..#255]of byte;
begin
     fillchar(m,SizeOf(m),0);   {Обнуляем массив}
     writeln('Введите строку');
     readln(s);                 {Вводим строку}
     for i:=1 to length(s) do inc(m[s[i]]); {увеличиваем на 1 соответствующий индекс}
     {Результат-количество символов в массиве}
     {Например m['М']-количество заглавных М во введеной строке}
end.


Ps если 3 и 4 «маразм», вопрос зачем писал? ]]> @Hgpeu Pascal https://forum.sources.ru/index.php?showtopic=41571&view=findpost&p=270621 Thu, 25 Dec 2003 21:11:10 +0000 Учимся считать буковки https://forum.sources.ru/index.php?showtopic=41571&view=findpost&p=270621
  • Непонятная формулировка задачи: Что надо подсчитать? Cколько раз данный символ встречаеться в строке?
  • Где примеры к 1,2,4 способам?
  • Что значит инкрементим? (не все знают об inc)
    • ]]>     Mixxx Pascal     https://forum.sources.ru/index.php?showtopic=41571&view=findpost&p=270616 Thu, 25 Dec 2003 21:01:30 +0000 Учимся считать буковки https://forum.sources.ru/index.php?showtopic=41571&view=findpost&p=270616 Some1 Pascal https://forum.sources.ru/index.php?showtopic=41571&view=findpost&p=270595 Thu, 25 Dec 2003 20:16:06 +0000 Учимся считать буковки https://forum.sources.ru/index.php?showtopic=41571&view=findpost&p=270595 Посмотрим, что получится.


    ---1---

    Заводим переменную - счетчик.
    В начале его обнулим.
    Пройдемся циклом For по всей строке.
    В теле цикла.
    Кок только символ строки - нам нужный, инкриментим наш счетчик.


    ---2---

    Заводим массив
    m :Array[#0..#255] Of Byte;
    Занимаемся его обнуляцией.
    Делаем так:
    For i := 1 To Length(s) Do
    Inc(m[s[i]]); {инкрементит соответствующий индекс}
    Количество нужных символов можно узнать в массиве.


    ---3---
    Когда я его придумал, мне стало страшно... за себя.

    Заводим переменную, также,как в первом способе.
    Осуществляем побуквенный ввод строки с клавы (каким-нибудь циклом и ReadKey'м).
    Как только встречается нужный символ, инкриментим счетчик.


    ---4---
    Еще страшнее.

    Относится к способу 3 также, как способ 2 к способу 1.
    Т.е. заводим массив и вводим с клавы.


    Примечание.
    Два последних способа полный маразм, т.к. можно было не вводить с клавы, а читать из файла huh.gif

    П.С.
    За то время, пока писАл это, меня успели выкинуть из И-нета, повисла винда, хорошо еще, что не запал Reset. ]]>     KiRiK Pascal