Соц сети

  • Помогите найти ошибку в коде Pascal'a внутри

  • Во внешней или внутренней памяти компа ХРАНЯТСЯ программы и данные? спасибо!

  • Почему внезапно ограничились права учётной записи?


  • Пожалуйста напишите комментарии пояснения к каждой строке этой программы что? где? как? и т. д
    УСЛОВИЕ ЗАДАЧИ
    Дан символ C — строчная (маленькая) русская буква и текстовый файл. Создать строковый файл и записать в него все слова из исходного файла, содержащие хотя бы одну букву C (прописную или строчную) . Словом считать набор символов, не содержащий пробелов, знаков препинания и ограниченный пробелами, знаками препинания или началом/концом строки. Если исходный файл не содержит подходящих слов, то оставить результирующий файл пустым.
    ЗАДАЧА НА DELPHI

    program Project2;
    {$APPTYPE CONSOLE}
    uses
    SysUtils;
    var st:Ansistring;
    S:array [1..1000] of Ansistring;
    i,j,L:longint;
    function fAnsiPos(const Substr, S: string; FromPos: integer): Integer;
    var
    P: PChar;
    begin
    Result := 0;
    P := AnsiStrPos(PChar(S) + fromPos - 1, PChar(SubStr));
    if P <> nil then
    Result := Integer(P) - Integer(PChar(S)) + 1;
    end;
    begin
    reset(input,'input.txt');
    rewrite(output,'output.txt');
    Read(st);
    j:=0;
    L:=0;
    for i:=1 to length(st) do
    begin
    if st in [',','.',' ',':',';','!','?','(',')','-'] then
    begin
    inc(j);
    S[j]:=copy(st,L+1,i-L-1);
    L:=i;
    end;
    end;
    for i:=1 to j do
    if (fAnsiPos('ñ',S,1)<>0) or (fAnsiPos('Ñ',S,1)<>0) then Writeln(S);
    end.

    • Однажды //событие произошло один раз в прошлом автора
      В студёную //температура воздуха была ниже нуля
      Зимнюю //на календаре был первый, второй или двенадцатый месяц года
      Пору //речь идёт именно о месяце
      Я //указатель на автора высказывания
      Из лесу //действие происходило в местности, заросшей деревьями
      Вышел //автор покинул место действия
      Был //действие происходило в прошлом
      Сильный мороз //температура была намного ниже нуля по цельсию

    Вас заинтересует

  • Помогите найти ошибку в коде Pascal'a внутри

  • Во внешней или внутренней памяти компа ХРАНЯТСЯ программы и данные? спасибо!

  • Почему внезапно ограничились права учётной записи?



  • Последние новости


    Типология МАП и профилактика заболеваний с помощью пиявок

    Этот раздел книги можно было бы назвать по другому: путь к оздоровлению отношений с близкими вам людьми с помощью медицинской пиявки. Речь пойдет о психологическом, психическом и соматическом здоровье тех, кто вам дорог. Помните эпиграф к «Войне и миру»? Конечно, помните: «Все счастливые ...
    Читать далее »

    Немного о науке лечения пиявками. Интервью с Г. И. Никоновым. Часть 2

    – Тогда в чем же секрет эффективности лечения пиявками? – Секрет эффективности медицинской пиявки заключается в том, что она воздействует на организм сложным, многофункциональным путем. Можно выделить три основных фактора, которые комплексно воздействуют на организм. Первый: возбужде...
    Читать далее »

    Существуют ли пиявки, которых нужно бояться?

    Любознательным читателям может показаться странной такая постановка вопроса: зачем не посвященному в тайны пиявки человеку подробно знакомиться со всем многовековым опытом гирудотерапии? Зачем ему знать, что есть пиявки, которые не присасываются? Это необходимо, прежде всего, для того, чтобы не ...
    Читать далее »

    Медицинская пиявка и терапия

    Здесь информацией с нами поделится заслуженный врач РФ, гирудотерапевт, сотрудник медицинского центра «Квадро» Вячеслав Гаврилович Кудинов. Более двухсот пациентов ежегодно лечится у него с помощью медицинской пиявки. Его первое знакомство с этим удивительным природным лекарем состоялось...
    Читать далее »

    Секреты разведения медицинских пиявок в искусственных условиях

    Как вы уже знаете, любознательные читатели, пиявками, которые разведены в искусственно созданных условиях, лечились не всегда. Просто потому, что сама технология разведения пиявок в таких условиях, популярная сегодня, была разработана всего лишь полвека назад. Авторы этого метода считали своей ос...
    Читать далее »

    Лечение пиявками сердечно сосудистых заболеваний

    Об этом нам рассказывает доктор медицинских наук, профессор, кардиохирург госпиталя внутренних войск МВД Российской Федерации Власов Геннадий Павлович. Первоначально Геннадий Павлович использовал для лечения своих пациентов сублимированную, то есть высушенную пиявку. Препарат назывался «Пи...
    Читать далее »

    Перечень заболеваний, которые можно лечить с помощью медицинской пиявки только у специалистов гирудотерапевтов

    Трудно перечислить абсолютно все болезни, которые сегодня традиционно лечатся профессиональными гирудотерапевтами. Сами врачи порой удивляются, открывая все новые и новые возможности эффективного пиявочного лечения. Список заболеваний, с которыми чаще всего сегодня приходят пациенты в специал...
    Читать далее »