Referat.me

Название: Лабораторная работа № 16

Вид работы: реферат

Рубрика: Информатика и программирование

Размер файла: 11.13 Kb

Скачать файл: referat.me-138264.zip

Краткое описание работы: Цель работы: Изучение правил описания и использования строк типа string. Задание№ 17 . Из заданного текста на русском языке вывести слова с максимальным кол-вом гласных букв.

Лабораторная работа № 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

Радиотехническая



Министерство образования РФ


Рязанская государственная радиотехническая академия


Кафедра ВПМ


Отчет о

лабораторной работе № 16:

«Строковый тип данных»


Выполнил: ст. гр. 316

Позднышев А.А.

Проверил: Новичков В.С.


Рязань 2004


Похожие работы

  • Программное определение числовых массивов

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

  • Класс Строка

    Вот довольно реалистичный пример класса string. В нем производится учет ссылок на строку с целью минимизировать копирование и в качестве констант применяются стандартные символьные строки C++.

  • Программирование на Турбо Паскале

    Правила описания множественных типов данных, приемов использования множеств и операций над множествами в Паскаль-программах. Разработка в Турбо Паскале программы вывода всех согласных букв, которые входят хотя бы в одно слово заданного предложения.

  • Лабораторная работа №9

    Цель работы: Изучение операторов ввода и вывода, управление формой вывода данных, получение навыков организации печати в удобном для пользователя виде.

  • Лабораторная работа №6

    Цель работы: Освоение правил составления программ циклической структуры с параметром. Задание № 17 . Вычислить значение функции , по указанному графику для значений аргумента

  • Лабораторная работа №5

    Цель работы: изучение условного оператора, оператора отбора, составного оператора и правил программирования разветвляющихся алгоритмов. Задание № 17

  • Лабораторная работа №11

    Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов. Задание№ 17 . Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде ASCII. Определить максимальный элемент этого порядка.

  • Лабараторная работа №4

    Цель работы: изучение правил записи констант, переменных, выражений, операторов присваивания, раздела определения констант, раздела описания переменных и общей структуры программы на языке Turbo-Pascal.

  • Лаба по информатике

    Министерство общего и профессионального образования РФ Владимирский Государственный Университет Кафедра УИТЭС Лабораторная работа 1 СИСТЕМЫ СЧИСЛЕНИЯ

  • Программирование на языке Си++

    Вычисление значений выражений при вещественных типах данных float и double. Нахождение суммы элементов, используя оператор цикла. Вычисление функций с разложением в степенной ряд. Работа со строками. Обработка массивов с использованием функций.