Информационные технологии обработки данных (Контр№1 Вариант№7)
.docxМинистерство образования и науки
Томский государственный университет систем управления и
радиоэлектроники.
Контрольная работа №1
по дисциплине «Информационные технологии обработки данных».
учебное пособие Коробовой В.В.
«Информационные технологии обработки данных».
Вариант № 7
Цель работы: Получение практических навыков работы с программой Turbo-Pascal. Проверка полученных знаний.
Область применения программы: При составлении тестовых программ.
Задание: Вариант № 7.
Задана строка символов. Группы символов, разделенные пробелом и не содержащие пробелов внутри себя, будем называть словами. Определить количество слов, которые содержат ровно две буквы а.
Например, задана строка:
`Я учусь программировать на языке Турбо-Паскаль`
Результат работы программы:
2 слова
Описание структуры программы:
USES CRT;
var
s:string;
m:string;
a_count,w_count,i,j: integer;
begin
writeln('Введите текст');
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then
begin
m:=copy(s,1,i);
for j:=1 to length(m) do
if m[j]='а' then inc(a_count);
if a_count=2 then inc(w_count);
delete(s,1,i);
m:='';
i:=0;
a_count:=0;
if length(s)=0 then
begin
write(,w_count,' слов(а) ');
exit;
end;
end;
end.
Описание процедур и функций программы:
Разобьем программу на несколько блоков:
1.Формирование тела программы, объявление переменных.
2.Вводим текста.
3.Устанавливаем начальное значение и подсчитываем количество букв в слове.
4.Поиск в слове буквы а.
5.Вводим количество букв а, которые необходимо найти в слове.
6.Удаление проверенных слов.
7.Выводим полученный в итоге результат.
8.Завершаем все действия программы.
Реализуем эти блоки на Паскале:
1.Формирование тела программы, объявление переменных:
USES CRT;
var
s:string;
m:string;
a_count,w_count,i,j: integer;
begin
Назначение переменных:
s - содержит введенный текст;
m - искомая буква;
a_count,w_count,i,j - вспомогательные переменные;
2.Ввод текста:
writeln('Введите текст');
readln(s);
3.Устанавливается начальное значение и подсчитываем количество букв в слове:
for i:=1 to length(s) do
if s[i]=' ' then
begin
m:=copy(s,1,i);
for j:=1 to length(m) do
4.Поиск в слове буквы а:
if m[j]='а' then inc(a_count);
5.Вводим количество букв а, которые необходимо найти в слове:
if a_count=2 then inc(w_count);
6.Удаление проверенных слов:
delete(s,1,i);
m:='';
i:=0;
a_count:=0;
if length(s)=0 then
7.Выводим полученный в итоге результат:
begin
write(,w_count,' слов(а) ');
8.Завершаем все действия программы:
exit;
end;
end;
end.
Руководство пользователю: Набираем программу в Turbo-Pascal. Нажимаем 'компилировать'(F9). Появляется окно с текстом: ' Введите текст'. Набираем любое предложение и нажимаем Enter. Программа выдает количество слов, содержащих две буквы а.
Примеры работы программы:
№1.
№2.
№3.
Заключение: Бурное развитие компьютерной техники и информационных технологий стимулировало развитие общества, построенного на использовании информации и знаний и получившего название информационного общества. Учитывая то обстоятельство, что информационные технологии развиваются в ускоренном темпе, возникла необходимость не только получения основных навыков работы с компьютерной техникой, но и изучения различных языков программирования. Одним из наиболее простых языков программирования является Pascal, который изначально был предназначен для обучения.
Основываясь на знаниях, полученных при изучении языка Pascal, была создана программа для работы с текстом, получены навыки работы со строками, различными типами данных и процедурами.
Список использованной литературы:
1. Turbo Pascal: учитесь программировать, О. А. Меженный, Москва: изд.дом «Вильямс», 2001г
2.Программирование на языке Паскаль, О.Н. Перминов - М.: Радио и связь 1988.
3. www.samoucka.ru
4. www.pascal.helpov.net