Заказ
  PHP скрипты   NEW
Правила написания
Студенту
Банк Рефератов
# A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
А Б В Г Д Е Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ы Э Ю Я
Телефонные справочники
Выбор города:
А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Э Ю Я

Онлайн телефонные справочники
Выбор города:
А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Х Ш Э Ю Я

скачай готовый реферат
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
А Б В Г Д Е Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ы Э Ю Я

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



Тема: Лабораторная работа № 16
Вид реферата: реферат
Дисциплина: Информатика, программирование
Оценка: Отлично/Хорошо
Формат: Microsoft Word документ
Сжатие: ZIP архив
Создан: 4 октября 2007 года
Уникальность: 100%


скачать реферат Лабораторная работа № 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
Радиотехническая




Справочники

Москва
Санкт-Петербург
Ангарск
Братск
Бугульма
Великие Луки
Владивосток
Владимир
Волгоград
Волжский
Воронеж
Вязьма
Екатеринбург
Златоуст
Иваново
Иркутск
Казань
Калуга
Кемерово
Кострома
Краснодар
Красноярск
Курган
Ленинск-Кузнецкий
Ливны
Липецк
Магадан
Магнитогорск
Набережные Челны
Нальчик
Находка
Нижний Новгород
Нижний Тагил
Новосибирск
Новочеркасск
Новый Уренгой
Омск
Орёл
Орехово-Зуево
Петрозаводск
Печора
Ростов-на-Дону
Самара
Саратов
Тюмень
Уфа
Хабаровск
Чебоксары
Челябинск
Череповец
Ярославль





© Все права защищены. © All right reserved.