Реферат: Лабораторная работа № 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]='и')

--> ЧИТАТЬ ПОЛНОСТЬЮ <--