«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

”пражнение є2 дл€ работы с запис€ми

”пражнение 2. Ќапишем программу, создающую каталог компьютерных программ с возможностью поиска программ по фамилии автора.

ƒл€ описани€ сведений о программах в разделе типов введем тип Prog_Type Ц запись следующей структуры:

Prog_Type = Record
Title : string[50];
Author : string[50];
Entry : integer;
Firma : String[40]
end;

где

Title Ц поле дл€ записи названи€ программы (строка до 50 символов);

Author Ц поле дл€ записи фамилии автора (строка до 50 символов);

Entry Ц поле дл€ записи года разработки (целое число);

Firma Ц поле дл€ записи фирмы-разработчика (строка до 40 символов).

¬ разделе описани€ переменных введем массив Prog_Katalog из дес€ти записей описанного выше типа. ƒл€ указани€, на пор€дковый номер записи в массиве Prog_Katalog введем переменную Num_Array, принимающую значени€ от 1 до 10. ƒл€ задани€ шаблона поиска введем переменную строкового типа Author. –езультат поиска будем записывать в переменную логического типа Yes_Prog.

 ак и в предыдущей программе, используем дл€ ввода и вывода данных специальные процедуры, поиск программы реализуем аналогично поиску учащегос€, в качестве услови€ поиска задав условие Prog_Katalog[Num_Array].Author = Author. ƒл€ краткости при обращении к пол€м записи используем форму записи с предложением with.

“екст программы целиком будет выгл€деть следующим образом:

program Kat_Prog; { аталог компьютерных программ}
type Prog_Type = Record
Title : string[50];
Author : string[50];
Entry : integer;
Firma : String[40]
end;
var Prog_Katalog : Array[1 .. 10] of Prog_Type;
Num_Array : 1 .. 10;
Author : string[50];
Yes_Prog : boolean;
procedure Input_Data; {¬вод сведений о программе}
begin
Writeln ('¬ведите данные о ',Num_Array,'-й программе :');
with Prog_Katalog[Num_Array] do
begin
Write ('Ќазвание программы? ');
Readln (Title);
Readln (Author);
Write ('√од разработки? ');
Readln (Entry);
Write ('‘ирма ? ');
Readln (Firma);
Writeln
end;
end;
procedure Write_Data(Num:integer); {¬ывод сведений о программе на экран}
begin
Writeln('ѕрограмма є ',Num);
with Prog_Kata1og[Num_Array] do
begin
Writeln('Ќазвание : ',Title);
Writeln('‘амили€ автора : ',Author);
Writeln('√од разработки : ',Entry);
Writeln('‘ирма : ',Firma);
End;
end;
begin
for Num_Array:=l to 3 do {¬вод данных о программах}
Input_Data;
Writeln;
{ѕоиск программ по фамилии автора}
Writeln('ѕоиск программы по фамилии автора');
Writeln;
Write('¬ведите фамилию автора : ');
Readln(Author);
Yes_Prog:=False; {He найдено программ этого автора}
for Num_Array:=l to 10 do
if Prog_Katalog[Num_Array].Author = Author then
begin {≈сли программа найдена, то напечатать сведени€ о ней}
Write_Data(Num_Array); {¬ызов процедуры вывода сведений о записи с номером Num_Array на экран (Num_Array - параметр-значение)}
Yes_Prog:=True; {ѕрограмма данного автора есть в каталоге}
end;
if not Yes_Prog then Write('HeT программ автора '.Author);
end.

»зучите текст программы Kat_Prog, затем запустите интегрированную среду программировани€, введите текст программы и запишите файл на диск под соответствующим именем, а затем откомпилируйте его. ѕроверьте работу программы, выполн€€ ее в пошаговом режиме с трассировкой процедур и наблюда€ в окне просмотра за изменением значений переменных Num_Array, Author, Yes_Prog, а также элементов массива Prog_Katalog [Num_Array].


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”пражнение 1 ”пражнение 2 ”пражнение 3 ќписание типа "«апись" ”пражнение є1 дл€ работы с запис€ми ”пражнение є2 дл€ обработки строк √рафика в Delphi ”пражнение 1 ”пражнение 2 ”пражнение 3 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом