Міністерство освіти і науки Російської Федерації
ГОУ ВПО Іжевський державний технічний університет
Кафедра «обчислювальної техніки»
Курсова робота
на тему: «Способи обробки даних»
з дисципліни «Мови програмування»
Розробив: ст. гр.3-36-1
Прийняла: ст. преп. каф. ВТ
Габітова Г.Н.
Іжевськ 2010
Постановка завдання
Загальна формулювання: Дан текстовий файл, що містить послідовність чисел. Переписати числа в масив і обробити відповідно завданню. Потім переписати числа з текстового файлу в типізований файл і обробити файл, а потім створити список з текстового файлу і знову його обробити.
Завдання: Підсумувати і видалити числа, що зустрічаються по одному разу. Потім суму цих чисел додати в кінець.
алгоритм масив типізований файл
Блок-схема програми
fail
Текст програми
program kurs;
uses crt;
const n=10; {Максимальна довжина масиву}
type mas=array [1. n] of byte; {Тип для масивів}=set of byte; {Тип для множин складаються з чисел}
fille=file of byte; {Тип для типізованих файлів складаються з чисел}
din=^ mode; {Контрольний тип}
mode=record {тип запис з полями}
x: byte; {Для зберігання числа}
adr: din; {І для зберігання адреси наступного елемента}
end; {Кінець типу запис}
var i, v, ch: byte; {Ch-зберігає числа, необхідна для створення текстового файлу, якщо вихідний не був знайдений, i-кількість записаних у текстовий файл чисел, v-використовується як логічна для визначення яку процедуру викликати і виходу з програми}
t: text; {Вихідний текстовий файл}
a: mas; {Масив}
f: fille; {Типізований файл}
first, p1, p2: din; {First-голова списку, p1, p2-для переміщення за списком}
procedure delmass (k1: Integer; Var m: mas); {Процедура видалення k1 елемента з масиву m, шляхом зрушення всіх елементів масиву, що лежать праворуч від видаляється, на 1 позицію вліво}
var i: byte; {Лічильник циклу, він же номер елемента в масиві}
begin
for i:=k1 to n - 1 do {перебираємо елементи масиву від видаляється до передостаннього}
m [i]:=m [i +1]; {I-му елементу присвоюємо значення i +1- го елемента (на першому кроці удаляемому присвоїться значення елемента наступного за ним}
m [n]:=0; {Останньому елементу масиву присвоюємо 0}
end;
procedure mass (var a: mas); {Процедура обробна переданий в неї масив a відповідно завдан...