Цель работы:
Изучение правил
описания и
использования
строк типа
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
Другие работы по теме:
Оптимизация устройства холодильника ОРСК-220
Лабораторная работа№2 Оптимизация устройства холодильника ОРСК-220 Рис.1 – Холодильник ОРСК-220 Холодильник ОРСК-220(далее по тексту холодильник) предназначен для длительного хранения замороженных продуктов и приготовления пищевого льда в низкотемпературной камере, охлаждения и кратковременного хранения продуктов в холодильной камере и на панели двери
Динамический режим средств измерений
Лабораторная работа №6 «Динамический режим средств измерений» Лабораторная работа №6 Исследование динамического режима средств измерений 1. Динамическая погрешность средства измерения
Физика. Билеты к экзамену за 9 класс
Физика 9 кл. Бровкиной Билет №1 Механическое движение. Система отсчета. Материальная точка. Траектория. Путь и перемещение материальной точки. Лабораторная работа. Определение коэффициента трения скольжения.
Структура цикл
Лабораторная работа №3 Структура цикл. Двигаясь равноускоренно с ускорением aпоезд достигает скорости Vt=60 км/ч. За какое время эта скорость достигнута и какой путь пройден за это время ?
Физика. Билеты к экзамену за 9 класс
Физика 9 кл. Бровкиной Билет №1 Механическое движение. Система отсчета. Материальная точка. Траектория. Путь и перемещение материальной точки. Лабораторная работа. Определение коэффициента трения скольжения.
Примерные экзаменационные билеты по физике (11 класс)
Примерные экзаменационные билеты по физике Билет №1 Механическое движение. Относительность движения. Система отсчета. Материальная точка. Траектория. Путь и перемещение. Мгновенная скорость. Ускорение. Равномерное и равноускоренное движение.
Примерные экзаменационные билеты по физике 11 класс
Примерные экзаменационные билеты по физике Билет №1 Механическое движение. Относительность движения. Система отсчета. Материальная точка. Траектория. Путь и перемещение. Мгновенная скорость. Ускорение. Равномерное и равноускоренное движение.
Информационные интернет ресурсы по маркетингу
Лабораторная работа №1. . Государственные ресурсы. Сайт www.gks. Содержит стат информацию федерального и регионального уровня. Сайт президента РФ www.president.kremlin. Найти две ссылки на сервер гос. ресурсов.
Работа с файлами (лабораторная работа)
Лабораторная работа №2 Т е м а: Р а б о т а с ф а й л а м и. Задание: 1)Создание каталога 1-го уровня; провести проверку. 2)Создание каталога 2-го уровня в каталоге 1-го уровня; установка этого каталога.
Работа с каталогами (лабораторная работа)
Лабораторная работа №1 Т е м а : Р а б о т а с к а т а л о г а м и Задание: 1)Просмотр корневых каталогов и подкаталогов дисков командами DIR,DIR/W,DIR/P. В отчете представить 3-4 характерные строки отображения содержимого каталогов при выполнении команд DIR(DIR/p) и DIR/W, т.е. показать форму отображения имен файлов и каталогов.
Лабораторная работа №1 по Delphi
Министерство общего и профессионального образования Владимирский Государственный Университет Кафедра УИТЭС Лабораторная работа №1 «Исследование характеристик феррорезонансного стабилизатора напряжения»
Лаба по информатике
Министерство общего и профессионального образования РФ Владимирский Государственный Университет Кафедра УИТЭС Лабораторная работа 1 СИСТЕМЫ СЧИСЛЕНИЯ
Итерационные циклы
Балтийский государственный технический университет «Военмех» им. Д.Ф. Устинова Кафедра И3 «Информационные системы и компьютерные технологии» Лабораторная работа №3
Модульное программирование 5
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ Лабораторная работа №3 по дисциплине «Информатика и программирование» Москва, 2010 « Модульное программирование».
Работа с файлами лабораторная работа
Лабораторная работа №2 Т е м а: Р а б о т а с ф а й л а м и. Задание: 1)Создание каталога 1-го уровня; провести проверку. 2)Создание каталога 2-го уровня в каталоге 1-го уровня; установка этого каталога.
Предельные углеводороды 2
МИНОБРНАУКИ РОССИИ Пыть-Яхский индустриальный колледж . Образовательного учреждения высшего образования «ЮГУ» Специальность:151031 Лабораторная работа № 7