Размещено на http://www.allbest.ru/

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА МГУПС (МИИТ)

ВОРОНЕЖСКИЙ ФИЛИАЛ

федерального государственного бюджетного образовательного учреждения высшего профессионального образования

«Московский государственный университет путей сообщения»

Курсовая работа по дисциплине: «Технология программирования»

Проверил: Доц. Гордиенко Е.П.

Выполнил: Студент 4 курса

Солопов П.А.

Шифр: 1250-ИСб-2329

Воронеж 2015

Содержание

1. Вычисление функции на отрезке

1.1 Условие задачи

1.2 Предварительный анализ задачи

1.3 Разработка алгоритма

1.4 Алгоритм

1.5. Блок-схема

1.6 Проектирование главной формы и свойства используемых компонентов

1.7 Экранная форма программы

1.8 Текст программы

1.9 Результат работы программы

2. Обработка числовой информации, представленной в табличной форме

2.1 Условие задачи

2.2 Предварительный анализ задачи

2.3 Разработка алгоритма

2.4 Алгоритм

2.5 Блок-схема

2.6 Проектирование главной формы и свойства используемых компонентов

2.7 Экранная форма программы

2.8 Текст программы

2.9 Результаты работы программы

3. Обработка символьной информации

3.1 Условие задачи

3.2 Предварительный анализ задачи

3.3 Разработка алгоритма

3.4 Алгоритм

3.5 Блок-схема

3.6 Проектирование главной формы и свойства используемых компонентов

3.7 Экранная форма программы

3.8 Текст программы

3.9 Результат работы программы

4. Программа вывода целых чисел

4.1 Условие задачи

4.2 Предварительный анализ задачи

4.3 Разработка алгоритма

4.4 Алгоритм

4.5 Блок-схема

4.6 Проектирование главной формы и свойства используемых компонентов

4.7Экранная форма программы

4.8 Текст программы

4.9 Результат работы программы

5. Обработка данных комбинированного типа

5.1 Условие задачи

5.2 Предварительный анализ задачи

5.3 Разработка алгоритма

5.4 Алгоритм

5.5 Проектирование главной формы и свойства используемых компонентов

5.6 Экранная форма программы

5.7 Текст программы

5.8 Результаты работы программы

Литература

1. Вычисление функции на отрезке

1.1 Условие задачи

Для функции

, .

Вычислить приближенное значение с точностью =10^-3 на отрезке [0,1] с постоянным шагом 0.1. Вычисление функции в точке производится соответствующей функции. Ввод и вывод информации осуществляется с помощью соответствующих стандартных устройств.

1.2 Предварительный анализ задачи

1. Проверить попадает ли отрезок [0,1] в область определения функции.

2. Проверить, чтобы исходных данных соответствовали условию задачи.

3. Разработать алгоритм вычисления функции cosx в точке.

4. Определить точность =10^-3 для функции cosx.

5. Вывести полученный результат с помощью стандартных устройств.

1.3 Разработка алгоритма

1. Определение входных данных:

x (шаг вычислений) - вещественное число;

2. Определение выходных данных:

cosx (результат) - вещественное число;

3. Текст алгоритма.

1.4 Алгоритм

Аргументы: e,b,x,sum, Power(x,2*k), factorial(2*k);

Результат: cosx;

НАЧАЛО

e: = 0,001;

acos:=0;

sum:=0;

b:=1;

x:=0.1;

выполнять до тех пор, пока x>=b

k:=0;

выполнить до тех пор, пока abs(sum)<e

начало

faktorial (2*k)!:=1

i:=1

если k*2=0 то (2*k):=0 иначе

начало

выполнять до тех пор, пока i <=2*k

начало

faktorial (2*k):=faktorial (2*k)*i

i:=i+1

конец

конец

Power(x,2*k) // Х в степени 2k

вывод в поле Memo значения переменной acos

x:=x+0,1

конец

Конец

1.5 Блок-схема

1.6 Проектирование главной формы и свойства используемых компонентов

Button1OnСlick - запуск программы на решение;

Memo1 - вывод результата.

1.7 Экранная форма программы

1.8 Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg,math;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

Label2: TLabel;

Image1: TImage;

Memo1: TMemo;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

{$R *.dfm}

implementation

function Factorial(x:integer):integer;

var

i:integer;

begin

Result:=1;

if x=0 then Result:=1 else

begin

for i:=1 to x do

Result:=Result*i;

end

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

const

e=0.001;

var

k,line,b:integer;

acos,sum,x:real;

result:string;

begin

acos:=0;

sum:=0;

b:=1;

line:=-1;

x:=0.1;

While (x<1.0)do

repeat

k:=0;

repeat

sum:=(Power(x,2*k))/Factorial(2*k);

acos:=acos+sum;

k:=k+1;

until abs(sum)<e;

line:=line+1;

result:= Format('%5.3f',[acos]);

Memo1.Lines.Insert(line,'x='+FloatToStr(x)+' cos(x)='+result);

x:=x+0.1;

until x>=b;

end;

end.

1.9 Результат работы программы

Х=0,1	Cos(x)=1.005
Х=0,2	Cos(x)=2.025
Х=0,3	Cos(x)=3.070
Х=0,4	Cos(x)=4.151
Х=0,5	Cos(x)=5.279
Х=0,6	Cos(x)=6.465
Х=0,7	Cos(x)=7.720
Х=0,8	Cos(x)=9.057
Х=0,9	Cos(x)=10.490
Х=1	Cos(x)=12.033

2. Обработка числовой информации, представленной в табличной форме

2.1 Условие задачи

Задана матрица А размером 4х6 с вещественными элементами. Найти и вывести на печать нулевые элементы матрицы, а также указать, в каких строках и столбцах они находятся. Входные данные расположены на диске в текстовом файле input.dat, находящемся в индивидуальном рабочем каталоге. Вывод результатов необходимо осуществить вместе с исходными данными в текстовый файл output.dat, поместив его также в свой индивидуальный каталог.

2.2 Предварительный анализ задачи

1. Создать текстовый файл input.dat и внести в него необходимую информацию.

2. Разработать алгоритм нахождения нулевых элементов матрицы, номера его строки и столбца.

3. Создать текстовый файл output.dat, в который будет помещаться полученная информация.

2.3 Разработка алгоритма

1. Определение входных данных:

А={} - матрица целых чисел, размерности 4х6;

2. Определение выходных данных:

(нулевых элементов матрицы) - целое число;

i ( номер строки матрицы) - целое число;

j ( номер столбца матрицы) - целое число;

3. Текст алгоритма.

2.4 Алгоритм

Аргументы: А={a_ij};

Результаты: a_ij, i, j;

Начало

Описание матрицы:

var Form1: TForm1; a:array[1..4,1..6] of integer

assignfile(f,'input.dat.txt')

assignfile(f1,'output.dat.txt')

reset(f) rewrite(f1)

Считаем информацию из текстового документа input.dat в a_ij:

Для i=1 до 4 делать (цикл 1)

для j=1 до 6 делать (цикл 2)

read(f,a[i,j])

увеличение i на 1 и переход к циклу1

увеличение j на 1 и переход к циклу 2

closefile(f)

Занесем исходные данные таблицы в компонент StringGrid1:

Для i=1 до StringGrid1.rowCount делать (цикл 1)

Для j=1 до StringGrid1.colCount делать (цикл 2)

StringGrid1.Cells[j-1,i-1] =floattostr(a[i,j])

увеличение i на 1 и переход к циклу1

увеличение j на 1 и переход к циклу 2

для i=1 до 4 делать (цикл 1 )

для j=1 до 6 делать (цикл 2 )

если a[i,j]=0 то

s='элемент = '+inttostr(a[i,j])+', '+'№ его строки = '

+inttostr(i)+', '+'№ его столбца = '+inttostr(j)

Выведем полученные результаты в документ output.dat:

writeln(f1,s)

Отобразим их в Memo1:

Memo1.lines.add(s)

увеличение i на 1 и переход к циклу1

увеличение j на 1 и переход к циклу 2

closefile(f1)

конец.

2.5 Блок-схема

Размещено на http://www.allbest.ru/

2.6 Проектирование главной формы и свойства используемых компонентов

Button1OnClick - запуск программы на решение задачи;

Мемо1.Lines - отображение полученных результатов;

StringGrid1.Cells - отображение исходной матрицы;

Label1.Caption - заголовок: «Исходная матрица»;

Label2.Caption - заголовок: «Полученные результаты».

2.7 Экранная форма программы

2.8 Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

Button1: TButton;

StringGrid1: TStringGrid;

Memo1: TMemo;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form1: TForm1; a:array[1..4,1..6] of real;

procedure TForm1.Button1Click(Sender: TObject);

var f,f1:textfile;

i,j:integer;

s:string;

begin

assignfile(f,'input.dat.txt');

assignfile(f1,'output.dat.txt');

reset(f);

rewrite(f1);

for i:=1 to 4 do

for j:=1 to 6 do

read(f,a[i,j]);

closefile(f);

for i:=1 to StringGrid1.rowCount do

for j:=1 to StringGrid1.colCount do

StringGrid1.Cells[j-1,i-1]:=floattostr(a[i,j]);

for i:=1 to 4 do

for j:=1 to 6 do

if a[i,j]=0

then

begin

s:='элемент = '+floattostr(a[i,j])+', '+'№ его строки = '

+inttostr(i)+', '+'№ его столбца = '+inttostr(j);

writeln(f1,s);

Memo1.lines.add(s)

end;

closefile(f1)

end;

end.

2.9 Результаты работы программы

Исходная матрица: экранный программа файл

13 5 -4 7 -8 1

-6 -4 31 -5 -2 3

4 -6 -2 7 1 5

3 -13 -9 0 -2 4

Полученный ответ:

элемент = 0, № его строки = 4, № его столбца = 4

3. Обработка символьной информации

3.1 Условие задачи

Составить программу, вводящую две произвольные латинские буквы и выводящую всю упорядоченную цепочку букв алфавита, концами которой являются эти две буквы. Исходные данные представляют собой строку символов, находящуюся в текстовом файле input.txt на диске в индивидуальной рабочей папке. Вывод результатов необходимо осуществить вместе с исходными данными в текстовый файл output.txt, поместив его также в свой индивидуальный каталог, и вывести на экран монитора.

3.2 Предварительный анализ задачи

1. Создать текстовый файл input.txt и внести в него необходимую информацию.

2. Разработать алгоритм выведения произвольных букв в конец латинского алфавита.

3. Создать текстовый файл output.txt, в который будет помещаться полученная информация.

3.3 Разработка алгоритма

1. Определение входных данных:

simv1, simv2 (исходная строка);

2. Определение выходных данных:

duf (полученные данные);

3. Текст алгоритма.

3.4 Алгоритм

Аргументы: simv1, simv2;

Результаты: duf;

Начало

Ввод значений

Simv1

Simv2

Считывание из файла «input»

assignfile(f,'input.txt')

reset(f1)

readl(f,str)

close(f1)

цикл i:=1 до length(str)

если (str[i]<>simv1) и (str[i]<>simv2) и (str[i]<>' ') тогда

buf:=buf+str[i]+' ';

конец

buf:=buf+simv1+' '+simv2; // запись введенных значений в конец алфовита

запись в файл «output» assignfile(f2,'output.txt');

Вывод в окно

form1.Label1.Caption:=buf;

КОНЕЦ

3.5 Блок-схема

3.6 Проектирование главной формы и свойства используемых компонентов

Button1OnClick - запуск программы на решение;

LabeledEdit1 - запись первой буквы;

LabeledEdit2 - запись второй буквы;

Label1.Caption - Заголовок «Введите первую латинскую букву»;

Label2.Caption - Заголовок «Введите вторую латинскую букву»;

Label3.Caption - вывод результата.

3.7 Экранная форма программы

3.8 Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

simv1,simv2:string;

procedure symbol;

implementation

{$R *.dfm}

procedure symbol;

var

f1,f2:textfile;

str,buf:string;

ch1,ch2:char;

i:byte;

flag:boolean;

begin

simv1:=trim(form1.LabeledEdit1.Text);

simv2:=trim(form1.LabeledEdit2.Text);

flag:=true;

if (length(simv1) >1) or (length(simv2)>1) then

begin

flag:=false;

showmessage(' Вводить нужно один символ');

end;

if flag then

begin

if (simv1='') or (simv2='') then

begin

flag:=false;

showmessage(' В одном из полей ввода пустое значение');

end

else

begin

simv1:=LowerCase(simv1);

simv2:=LowerCase(simv2);

ch1:=simv1[1];

ch2:=simv2[1];

if (not (ch1 in ['a'..'z','A'..'Z'])) or (not (ch2 in ['a'..'z','A'..'Z'])) then

begin

flag:=false;

showmessage(' Введен недопустимый символ');

end;

end;

end;

if flag then

begin

assignfile(f1,'input.txt');

reset(f1);

read(f1,str);

close(f1);

buf:='';

for i:=1 to length(str) do

begin

if (str[i]<>simv1) and (str[i]<>simv2) and (str[i]<>' ') then

begin

buf:=buf+str[i]+' ';

end;

end;

buf:=buf+simv1+' '+simv2;

assignfile(f2,'output.txt');

rewrite(f2);

write(f2,buf);

writeln(f2);

close(f2);

form1.Label1.Caption:=buf;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

symbol;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

3.9 Результат работы программы

1. Введенные произвольные буквы:

da

2. Полученная строка:

b c e f g h i j k l m n o p q r s t u v w x y z d a

4. Программа вывода целых чисел

4.1 Условие задачи

Составить программу, которая для вводимого целого неотрицательного N=_mm-1…₂₁ выводит целые числа, десятичное представление которых _mm-1…_{1+1 11-1}…₁, где i=1, 2,…m. Использовать процедуру, которая по N и i вычислит числа

N=_mm-1…₁₊₁ и _11-1…₁

4.2 Предварительный анализ задачи

1. При вводе исходных данных необходимо предусмотреть, чтобы они удовлетворяли условию задачи, т.е. введенное число будет выводить целые десятичные числа.

2. Разработать алгоритм нахождения цифры десятичного разряда целого числа.

3. Вывод полученного результата нужно выполнять на стандартных устройствах вывода.

4.3 Разработка алгоритма

1. Определение входных данных:

n - целое число;

2. Определение выходных данных:

A[i] - массив;

3. Текст Алгоритма.

4.4 Алгоритм

Аргументы: n;

Результаты: A[i];

Функция для нахождения цифры произвольного разряда целого числа:

НАЧАЛО

Ввод произвольного числа «N»

i:=1;

D:=10;

D1:=1;

Начало D < N до

k:=Int(N/D);

A[i]:=Int((N-k*D)/D1);

i:=i+1;

D:=D*10;

D1:=D1*10 ;

Конец

k:=Int(N/D);

A[i]:=Int((N-k*D)/D1);

ShowMessage('Число занимает ' +IntToStr(i) + ' позиций.');

Полученный результат запишем в обратном порядке

i:=i downto

Вывод посчитанных значений в окно Memo1.

4.5 Блок-схема

4.6 Проектирование главной формы и свойства используемых компонентов

Edit1 - поле, в которое вводится число;

BitBtn1- запуск программы на решение задачи;

Memo1- вывод полученного результата.

4.7 Экранная форма программы

4.8 Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Edit1: TEdit;

BitBtn1: TBitBtn;

Memo1: TMemo;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

var

N: integer;

D1 : integer;

k : Extended;

i,D: integer;

A : array [1..11] of real;

Tmp : string;

begin

N:=StrToInt(Edit1.Text);

i:=1;

D:=10;

D1:=1;

while D < N do begin

k:=Int(N/D);

A[i]:=Int((N-k*D)/D1);

i:=i+1;

D:=D*10;

D1:=D1*10 ;

end;

k:=Int(N/D);

A[i]:=Int((N-k*D)/D1);

ShowMessage('Число занимает ' +IntToStr(i) + ' позиций.');

for i:=i downto 1 do begin

Str(A[i]:1:0,Tmp);

Memo1.Lines.Add(Tmp);

end;

end;

end.

4.9 Результат работы программы

Введенное число: 45896

Полученное число: 45896

5. Обработка данных комбинированного типа

5.1 Условие задачи

Написать программу для формирования массива записей (10-12 шт.), содержащих сведения о каком-либо объекте. Полями записей являются свойства этого объекта. Провести выборку информации по какому-либо полю записи.

Объект - клиент магазина. Свойства объекта: организация-заказчик, ФИО представителя, его должность, почтовый адрес (индекс, город, улица, дом, номер офиса), телефон, e-mail, код товара, номер заказа, количество, дата заказа, скидка.

5.2 Предварительный анализ задачи

1. При вводе исходных данных необходимо предусмотреть, чтобы они соответствовали условию задачи.

2. Заполнялись все необходимые поля.

3. В массиве записей должно быть не больше 12.

4. Производилась выборка по какому-либо полю записи.

5.3 Разработка алгоритма

1. Определение входных данных:

2. Определение выходных данных:

Данные, помещенные в Memo1;

3. Текст Алгоритма.

5.4 Алгоритм

Начало

Если i=13

то

Появляется сообщение: 'Массив полностью заполнен!'

иначе

Проверка того, что все поля заполнены:

если (Edit1.Text<>'') и (Edit2.Text<>'') и (Edit3.Text<>'') и (Edit4.Text<>'') и (Edit5.Text<>'') и (Edit6.Text<>'') и (Edit7.Text<>'') и (Edit8.Text<>'') и (Edit9.Text<>'') и (Edit10.Text<>'') и (Edit11.Text<>'') то

Помещение данных всех полей в массив:

со Spicok[i] делать (цикл)

organizachiya_zakazchika = Edit1

FIO_predstavitelya = Edit2

dolgnost = Edit3

pochtovi_adres = Edit4

Telephone = Edit5

e_mail = Edit6

kod_tovara = Edit7

nomer_zakaza := Edit8.Text;

kolichestvo := Edit9.Text;

data_zakaza := Edit10.Text;

skidka := Edit11.Text;

Inc(i) (увеличение на единицу)

Появляется сообщение: 'Массив успешно заполнен!'

Переход к циклу

иначе

Появляется сообщение: ' Введите все данные!'

Переход к циклу

Конец

Процедура присваивания к i значение, равное 1

начало

i=1

конец

Процедура осуществления выборки для определенного поля:

Начало

для i=1 до 12 делать

если radiogroup1.itemindex=0 then Memo1.lines.add(Spicok[i].organizachiya_zakazchika);

если radiogroup1.itemindex=1 then Memo1.lines.add(Spicok[i].FIO_predstavitelya);

если radiogroup1.itemindex=2 then Memo1.lines.add(Spicok[i].dolgnost);

если radiogroup1.itemindex=3 then Memo1.lines.add(Spicok[i].pochtovi_adres);

если radiogroup1.itemindex=4 then Memo1.lines.add(Spicok[i]. e_mail);

если radiogroup1.itemindex=5 then Memo1.lines.add(Spicok[i].Telephone);

если radiogroup1.itemindex=6 then Memo1.lines.add(Spicok[i].kod_tovara);

если radiogroup1.itemindex=7 then Memo1.lines.add(Spicok[i].nomer_zakaza);

если radiogroup1.itemindex=8 then Memo1.lines.add(Spicok[i].kolichestvo);

если radiogroup1.itemindex=9 then Memo1.lines.add(Spicok[i].data_zakaza);

если radiogroup1.itemindex=10 then Memo1.lines.add(Spicok[i]. skidka);

Конец

5.5 Проектирование главной формы и свойства используемых компонентов

Button1 - запуск программы на заполнение массива Memo1: TMemo;

Radiogroup1 - компонент, с помощью которого производится выборка для определенного поля.

Button2 - запуск программы на выборку какого-либо из полей записей

Label1: Заголовок;

Edit1: Поле, в которое вводится организация-заказчик

Label2: Заголовок;

Edit2: ФИО представителя ;

Edit3: его должность;

Edit4: почтовый адрес;

Edit5: телефон;

Edit6: e-mail;

Edit7: код товара;

Label3: Заголовок ;

Label4: Заголовок

Label5: Заголовок;

Label6: Заголовок;

Label7: Заголовок;

Label9: Заголовок

Label10 Заголовок

Label11: Заголовок

Label12: Заголовок

Edit8: номер заказа;

Edit9: количество;

Edit10: дата заказа;

Edit11: скидка;

Memo1.Lines - отображение записей поля, по которому происходит выборка.

5.6 Экранная форма программы

5.7 Текст программы

const

NMax = 12;

type

Tamb_karta = record

organizachiya_zakazchika:string;

FIO_predstavitelya :string;

dolgnost :string;

pochtovi_adres: string;

Telephone : string;

e_mail : string;

kod_tovara:string;

nomer_zakaza :string;

kolichestvo:string;

data_zakaza:string;

skidka:string;

end;

TSpicok = array [1..NMax] of Tamb_karta;

var

Form1 : TForm1;

Spicok : TSpicok;

i : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

If i=13

then

begin

Application.MessageBox('Массив полностью заполнен!','Сообщение!', MB_OK+MB_ICONINFORMATION,);

end

else

begin

{Проверим все ли поля заполнены. Если да то данные можно

внести в массив}

if (Edit1.Text<>'') and (Edit2.Text<>'') and

(Edit3.Text<>'') and (Edit4.Text<>'') and (Edit5.Text<>'')

and (Edit6.Text<>'') and (Edit7.Text<>'')and (Edit8.Text<>'')

and (Edit9.Text<>'') and (Edit10.Text<>'')and (Edit11.Text<>'')

then

begin

with Spicok[i] do

begin

organizachiya_zakazchika:= Edit1.Text;

FIO_predstavitelya := Edit2.Text;

dolgnost := Edit3.Text;

pochtovi_adres := Edit4.Text;

Telephone := Edit5.Text;

e_mail := Edit6.Text;

kod_tovara := Edit7.Text;

nomer_zakaza := Edit8.Text;

kolichestvo := Edit9.Text;

data_zakaza := Edit10.Text;

skidka := Edit11.Text;

Inc(i);

Application.MessageBox('Данные успешно внесены !','Информация',MB_OK+MB_ICONINFORMATION,);

end;

end

else

begin

Application.MessageBox('Введите все данные!','Информация',MB_OK+MB_ICONERROR,);

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=1

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

for i:=1 to 12 do

begin

if radiogroup1.itemindex=0 then Memo1.lines.add(Spicok[i].organizachiya_zakazchika);

if radiogroup1.itemindex=1 then Memo1.lines.add(Spicok[i].FIO_predstavitelya);

if radiogroup1.itemindex=2 then Memo1.lines.add(Spicok[i].dolgnost);

if radiogroup1.itemindex=3 then Memo1.lines.add(Spicok[i].pochtovi_adres);

if radiogroup1.itemindex=4 then Memo1.lines.add(Spicok[i]. e_mail);

if radiogroup1.itemindex=5 then Memo1.lines.add(Spicok[i].Telephone);

if radiogroup1.itemindex=6 then Memo1.lines.add(Spicok[i].kod_tovara);

if radiogroup1.itemindex=7 then Memo1.lines.add(Spicok[i].nomer_zakaza);

if radiogroup1.itemindex=8 then Memo1.lines.add(Spicok[i].kolichestvo);

if radiogroup1.itemindex=9 then Memo1.lines.add(Spicok[i].data_zakaza);

if radiogroup1.itemindex=10 then Memo1.lines.add(Spicok[i]. skidka);

end

end;

5.8 Результаты работы программы

При запуске программы данные вводятся в массив, если заполнены все поля, иначе появляется сообщение о необходимости введении недостающих сведений. Процесс заполнения массива продолжается до тех пор, пока количество записей не будет больше, чем 12.

Выборка поля, записи которого отображаются в Мемо.

Литература

1. Коржов Е.Н., Кущева О.А. Технология программирования: лабораторный практикум. Воронеж: ВФ РГОТУПС, 2006. ХХ с.В.В.

2. Фаронов Delphi 6. Учебный курс.-Мю: Издатель Молгачева С.В., 2001. - 672 с., ил

3. А.Я. Архангельский Программирование в Delphi 7. - М.: ООО «Бином-Пресс», 2004 г. - 1152 с.: ил.

Размещено на Allbest.ru

...