КОНТРОЛЬНАЯРАБОТА
подисциплине “Основы программирования”
на тему
Алгоритмическиеязыки: обработка массивов
Задание 1. Символьные типы данных. Работа со строками Краткие теоретические сведения.
Символьный тип (char)представляет собой тип данных, предназначенных для хранения одного символа(буквы, знака или кода).
Функции над символьнымипеременными:
chr(x) — определениесимвола из набора символов по порядковому номеру;
ord(x) — определениепорядкового номера символа в наборе символов;
upcase(x) — преобразованиестрочных букв в прописные;
pred(x) — определениепредыдущего элемента;
succ(x) — определениепоследующего элемента.
Тип данных string (строка)специально предназначен для обработки строк (цепочек символов). Переменная типаstring состоит из элементов типа char. Переменные типа string могут бытьобъявлены следующим образом:
var Имя_переменной1:string;
Имя_переменной2:string[n];
Переменная типа stringобъявляется, как правило, путем указания имени переменной, зарезервированногослова string и указания (в квадратных скобках) максимального размера (длины)строки, которая может храниться в этой переменной. Если максимальный размерстроки не указан, то он автоматически принимается равным 255 — максимальновозможная длина строки.
Стандартные процедуры ифункции для строк:
· функция Length — определениефактической длины текстовой строки, хранящейся в указанной переменной;
· функция UpCase — преобразование символалюбой литеры из строчного в прописной;
· функция Copy — копирование фрагментанекоторой строки из одной переменной в другую;
· функция Pos — осуществление в некоторойстроке поиска определенного фрагмента;
· функция Concut — соединение строк;процедуры Insert и Delete — вставка фрагмента изодной строки в другую, удаление фрагмента из строки[1-8].Постановка задачи.
Дана последовательностьслов; между соседними словами – запятая, за последним словом – точка.Напечатать эту же последовательность слов, но удалив из неё повторные вхожденияслов. Составить блок схемуалгоритма и программу.
Листинг программы
uses crt;
var str:array[1..10] of string;- массив для слов
Slovo,st:string; — строка предложения
i,j,n,k:integer; — вспомогательныепеременные
begin
ClrScr;
Writeln(' Programma ydalyaetpovtornoe vhojdenie slov ');
Writeln;
Writeln('Vvediteposledovatelnost slov v formate: ,,.'); — формат ввода слов в программе
Write('Vashi slova: ');
Readln(Slovo);
if Length(Slovo)
begin
Writeln('Nujno vvesti slovo!');
Halt;
end;
j:=0; i:=1; k:=1; n:=1; — н.у. дляпеременных
while i
n:=i;
while(Slovo[i]',')and(Slovo[i]'.') do begin inc(i); inc(j); end;
str[k]:=Copy(Slovo, n, j); — занесение вмассив слова
j:=0;
inc(k);
inc(i);
end;
str[k]:='.';
for i:=1 to k-1 do — цикл в которомпроисходит сравнение и удаление
for j:=(i+1) to k-1 do begin одинаковыхслов в предложении
if str[i]=str[j] then begin
str[j]:='';
end;
end;
st:='';
for j:=1 to k-1 do begin — формированиепредложения из неповторяющихся слов
if (str[j]'') thenst:=st+str[j]+',';
end;
delete(st,Length(st),1);
st:=st+'.';
writeln;
writeln('Posledovatelnost');
write('bez povtoreniy:',st); — вывод результата
readln;
end.
Блок-схема алгоритма программы./> /> /> /> /> /> /> /> />
Рис.1 Блок-сема программы задания 1.
Результаты работы программы.
/>Задание 2. Организация программс использованием процедур и функцийКраткие теоретические сведения.
В случае, когда одна и таже последовательность действий должна выполняться на различных этапах обработкиинформации, можно использовать процедуры и функции. В общем виде заголовокпроцедуры имеет вид:
procedureИмя_процедуры (Список параметров);
Список параметров — перечень имен для обозначения исходных данных и результатов работы процедуры суказанием их типов. Параметры, перечисленные в списке, называются формальными.Константа, переменные, типы, описанные в блоке program, называются глобальными.Допускается описание процедуры, не содержащей параметры. Вызов процедуры имеетвид:
Имя_процедуры (Списокпараметров);
Параметры, содержащиеся вСписке параметров при вызове процедуры, называются фактическими.
Функции — это процедурыособого характера, результатом работы которых является некоторое значение,подобное переменной. Результат работы функции присваивается имени функции.Общая структура функции совпадает со структурой процедуры, за исключениемзаголовка. Заголовок функции имеет следующий вид:
Function Имя_функции(Список параметров): Тип_результата;
Процедуры и функциипомещаются в главной программе после раздела var и перед bеgіn основного блокапрограммы[1-8].Постановка задачи.
По вещественному числу а>0 вычислить величину
/>
Составитьблок схему алгоритма и программу.
Листинг программы.
uses crt;
var t:real; — вспомогательные переменные
st1,st2,st3:real; - вспомогательные переменные
a,a2,a3:real; - промежуточные переменные
t1,t2,t3:real; — вспомогательные переменные
Function pow1(x, v: real): real; — функция для возведениячисла x в степень v
Begin
if (v = 0.0) then — проверка условия v>0
pow1:= 1
else
if (x = 0.0) then — — проверка условияx0
pow1:= 0
else
if (x > 0.0) then
pow1:= exp(v*ln(x)) — вычисление числа в заданной степени
else
if (odd(trunc(v))) then
pow1:= -exp(int(v)*ln(-x))
else
pow1:= exp(int(v)*ln(-x));
End;
BEGIN
clrscr;
st1:=1/3;
st2:=1/6;
st3:=1/7;
writeln('Format vvoda chisla: *.*');
write('Vvedite vewestvennoe chislo«a»:');
readln(a);
a2:=a*a+1; - промежуточные вычисления
a3:=3+a; - промежуточные вычисления
t1:= pow1(a,st1);
t2:= pow1(a2,st2);
t3:= (1+pow1(a3,st3));
t:= (t1-t2) / t3; - вычисление заданной формулы
writeln;
write('Otvet: t=',t); — вывод результата
readln;
END.
Блок-схема алгоритма программы./> /> /> /> /> /> /> /> /> /> /> /> /> /> /> /> /> /> />
Рис.2 Блок-сема программы задания 2.
Результаты работы программы.
/>
Задание 3. Работа с файламиКраткие теоретические сведения.
Файл — этопоследовательность компонент, являющихся объектами одного и того же типа.Количество компонент в файле заранее не оговаривается, компоненты файла неимеют индексов. В Паскале возможно использование трех файловых типов: текстовыефайлы, компонентные файлы, бестиповые файлы.
Процедуры и функции,использующиеся при обработке файлов любых типов:
• процедураAssign(Var_file, Road) связывает переменную Var_file с некоторым именем файла,которое хранится в переменной Road;
• процедура Reset(f)открывает файл с именем f для чтения;
• процедура Rewrite(f)создает новый файл f и открывает его для записи;
• процедура Erase(f)стирает существующий файл с диска;
• функция EOF(f) проверяетдостижение конца файла;
• функция Close(f)закрывает файл f.
Типизированный, иликомпонентный файл — это файл с объявленным типом его компонент. Объявлениетакого типа имеет структуру:
var Имя_переменной_файла:file of Тип_элементов_файла;
Текстовые файлыорганизуются по строкам и объявляются следующим образом:
var file: text;
Кроме общих для всех файловпроцедур и функций, определены еще несколько, работающих только с текстовымифайлами:
• процедура Append(file),открывающая текстовый файл file для дозаписи в конец файла;
• функция EOLn(file),проверяющая достижение конца строки[1-8].Постановка задачи.
Скопировать из файла F1 в файл F2 строки,начиная с N до K. Составить блок схему алгоритма и программу.
Результаты работы программы.
/>
Файл F2.txt
sasa
ss
fedg
dfhdfh
Листинг программы.
uses crt;
var f,g:text; — логические имена файлов
s:string; — вспомогательные переменные
i,n,m:integer; — вспомогательные переменные
BEGIN
clrscr;
assign(f,'D:\FF\F1.txt '); — открытие файла F1.txt изD:\FF\F1.txt
reset(f);
assign(g,'D:\FF\F2.txt'); — открытие файла F2.txt изD:\FF\F2.txt
rewrite(g);
writeln('Kopirovat stroki'); — запрос на копирование строк
write(' s:');
readln(n);
write('po:');
readln(m);
i:=1;
while not EOF(f) do begin — цикл в котором происходиткопирование
с позиции n до позиции m
readln(f,s);
if (i>=n)and(i
begin
writeln(g,s);
end;
inc(i);
end;
writeln('Gotovo!'); — результаты выполнения программы вфайле F2.txt
close(g);
close(f);
readln;
end.
Блок-схема алгоритма программы./> /> /> /> /> /> /> /> />
/>
Начало />
Рис.3 Блок-сема программызадания 3.
Список использованныхисточников
1. Абрамов С.А., Зима Е.В.Начала информатики. —М.: Наука, 1990.
2. Грогоно П. Программированиена языке Паскаль. — М.: Мир, 1982.
3. Йенсен К., Вирт H. Паскаль.Руководство для пользователя и описание языка. -М.: Финансы и статистики, 1982.
4. Перминов О.Н.Программирование на языке Паскаль. — М.: Радио и связь, 1988.
5. Пильщиков В.Н. Сборникупражнений по языку Паскаль. — М.: Наука, 1989.
6. Прайс Д. Программирование наязыке Паскаль. Практическое руководство. -М.: Мир, 1987.
7. Турбо Паскаль 7.0. — К.:Торгово-издательское бюро BHV, 1996.
8. Фаронов В.В. Турбо Паскаль7.0. Начальный курс. Учебное пособие.-М.: «Нолидж», 1997.