Цель работы: Изучение правил описания и использования строк типа 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
Похожие работы
... концентрических окружностей с уменьшающимся радиусом по мере затухания колебаний скорости и момента. Аналогичная картина наблюдается при ступенчатом набросе нагрузки. 5. РАЗРАБОТКА ВИРТУАЛЬНОЙ ЛАБОРАТОРНОЙ РАБОТЫ НА БАЗЕ ВИРТУАЛЬНОЙ АСИНХРОННОЙ МАШИНЫ Иную возможность анализа АД представляет специализированный раздел по электротехнике Toolbox Power System Block. В его библиотеке имеются блоки ...
аучного цикла является отсутствие возможности реальной постановки учебного, и лабораторного эксперимента. Хотя в настоящее время имеются разработки виртуальных лабораторных практикумов, однако окончательно решение проблемы требует пристального внимания специалистов различных профилей, в том числе и психолого-педагогического. 1.2 Роль технологии виртуальных приборов обучения в техническом вузе ...
... 17.6 - 2.5 2 22.5 109.4 20.1 16.7 - 3.4 - 2.8 3 22.5 175. - 2.4 Задание 4. Проверка закона сохранения импульса. ОТЧЕТ ……………………………………………………………………………. о выполнении лабораторной работы №2 Законы сохранения в механике. Колебательное движение Задание 1. Исследование затухания колебаний маятника Упражнение 1. Закон затухания. Таблица 1. ...
... и их красота украшают здание школы, воспитывают эстетические чувства. Во второй главе показано место и роль древесных и кустарниковых форм как объекта лабораторных исследований. Глава 2. ДРЕВЕСНЫЕ И КУСТАРНИКОВЫЕ РАСТЕНИЯ КАК ОБЪЕКТ ЛАБОРАТОРНЫХ РАБОТ ПО ОБЩЕЙ БИОЛОГИИ Одной из ответственных задач, стоящих перед учителем биологии, является повышение эффективности всех применяемых в школе ...
0 комментариев