ПЕРЕЛІК ДИСЦИПЛІН:
  • Адміністративне право
  • Арбітражний процес
  • Архітектура
  • Астрологія
  • Астрономія
  • Банківська справа
  • Безпека життєдіяльності
  • Біографії
  • Біологія
  • Біологія і хімія
  • Ботаніка та сільське гос-во
  • Бухгалтерський облік і аудит
  • Валютні відносини
  • Ветеринарія
  • Військова кафедра
  • Географія
  • Геодезія
  • Геологія
  • Етика
  • Держава і право
  • Цивільне право і процес
  • Діловодство
  • Гроші та кредит
  • Природничі науки
  • Журналістика
  • Екологія
  • Видавнича справа та поліграфія
  • Інвестиції
  • Іноземна мова
  • Інформатика
  • Інформатика, програмування
  • Юрист по наследству
  • Історичні особистості
  • Історія
  • Історія техніки
  • Кибернетика
  • Комунікації і зв'язок
  • Комп'ютерні науки
  • Косметологія
  • Короткий зміст творів
  • Криміналістика
  • Кримінологія
  • Криптология
  • Кулінарія
  • Культура і мистецтво
  • Культурологія
  • Російська література
  • Література і російська мова
  • Логіка
  • Логістика
  • Маркетинг
  • Математика
  • Медицина, здоров'я
  • Медичні науки
  • Міжнародне публічне право
  • Міжнародне приватне право
  • Міжнародні відносини
  • Менеджмент
  • Металургія
  • Москвоведение
  • Мовознавство
  • Музика
  • Муніципальне право
  • Податки, оподаткування
  •  
    Бесплатные рефераты
     

     

     

     

     

     

         
     
    Лабораторна робота № 16
         

     

    Інформатика, програмування

    Мета роботи: Вивчення правил опису та використання рядків типу string.
    Завдання № 17. З заданого тексту російською мовою вивести слова змаксимальним кол-вом голосних букв.

    Программа на Turbo Pascal.

    (Програма: lab16

    )
    (Мета: Порахувати макс. к-ть російських букв)
    (Змінні:

    )
    (Mas - вводяться масиви

    )
    (S - проміжний масив)
    (I, n, kj - змінні циклу

    )
    (Програміст: Позднишев А.А. група 316)
    (Перевірив: Новачків В.С.

    )

    program lab16;uses crt;type mas = array [1 .. 50] of string [80];

    procedure Trim (Var s: string); begin (Trim) while (s [1] = '') and (length ( s)> 0) do delete (s, 1,1); while (s [length (s)] = '') and (length (s)> 0) do delete (s, length (s), 1); end; (Trim)procedure sravn (sl: string; Var k1: integer); begin (sravn) repeat if (sl [1] = 'а') or (sl [1] = 'е') or (sl [1] = 'е' ) or (sl [1] = 'і') or (sl [1] = 'о') or (sl [1] = 'у') or (sl [1] = 'и') or (sl [1 ] = 'е.') or (sl [1] = 'ю') or (sl [1] = 'я') then k1: = k1 1; delete (sl, 1,1); until length (sl) = 0; end; (sravn)procedure s4et (ok: boolean; s: string; var ko: integer); var sl: mas; sl1: string [80]; k, i, j: byte; k1: integer; begin (s4et) k1: = 0; trim (s); s: = s + ''; i: = 0; repeat k: = pos ( '', s); i: = i +1; sl [i]: = copy (s, 1, k - 1); delete (s, 1, k); until s =''; for j: = 1 to i do begin sravn (sl [j], k1); if ok then if k1> ko then ko: = k1; if not ok then if k1 = ko then writeln (sl [j]); k1: = 0; end; end; (s4et)

    var s: mas; i, n, k: integer;begin k: = 0;
    Writeln ( 'Введіть кількість рядків:'); readln (n);
    Writeln ( 'Введіть текст:'); for i: = 1 to n do begin readln (s [i]); s4et (true, s [i], k); end; writeln ( 'максимальну кількість голосних літер у слові =', k); for i: = 1 to n do s4et (false, s [i] , k);end.

    Результат виконання програми:
    Введіть кількість рядків:
    4
    Введіть текст:
    Рязанська
    Державна
    Радіотехнічна
    АкадеміяМаксимальна кількість голосних літер у слові = 8
    Радіотехнічна

         
     
         
    Реферат Банк
     
    Рефераты
     
    Бесплатные рефераты
     

     

     

     

     

     

     

     
     
     
      Все права защищены. Reff.net.ua - українські реферати ! DMCA.com Protection Status