Название: Лабораторная работа № 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. Нахождение суммы элементов, используя оператор цикла. Вычисление функций с разложением в степенной ряд. Работа со строками. Обработка массивов с использованием функций.