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

2076
знаков
0
таблиц
1
изображение

Цель работы: Изучение правил описания и использования строк типа 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


Информация о работе «Лабораторная работа № 16»
Раздел: Информатика, программирование
Количество знаков с пробелами: 2076
Количество таблиц: 0
Количество изображений: 1

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

Скачать
114601
5
73

... концентрических окружностей с уменьшающимся радиусом по мере затухания колебаний скорости и момента. Аналогичная картина наблюдается при ступенчатом набросе нагрузки. 5. РАЗРАБОТКА ВИРТУАЛЬНОЙ ЛАБОРАТОРНОЙ РАБОТЫ НА БАЗЕ ВИРТУАЛЬНОЙ АСИНХРОННОЙ МАШИНЫ   Иную возможность анализа АД представляет специализированный раздел по электротехнике Toolbox Power System Block. В его библиотеке имеются блоки ...

Скачать
193894
73
12

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

Скачать
50943
24
10

... 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. ...

Скачать
34621
0
5

... и их красота украшают здание школы, воспитывают эстетические чувства. Во второй главе показано место и роль древесных и кустарниковых форм как объекта лабораторных исследований. Глава 2. ДРЕВЕСНЫЕ И КУСТАРНИКОВЫЕ РАСТЕНИЯ КАК ОБЪЕКТ ЛАБОРАТОРНЫХ РАБОТ ПО ОБЩЕЙ БИОЛОГИИ Одной из ответственных задач, стоящих перед учителем биологии, является повышение эффективности всех применяемых в школе ...

0 комментариев


Наверх