Код програми. type identify=record {record 1}

Program lab4_1;

uses crt;

type identify=record {record 1}

author:string[20]; {author of book}

title:string[20]; {title of book}

end; {end of record 1}

produce=record {record 2}

title:string[20]; {title of book}

year:string[5]; {year of production}

end; {end record 2}

booklet=record {record 3 = record 1 + record 2}

ID:identify; {ID - record 1}

year:string[5]; {year of production}

end; {end of record 3}

var name:array[1..10] of identify; {array of identify record}

edition:array[1..10] of produce; {array of produce record}

book:array[1..10] of booklet; {array of booklet record}

str:string[20]; {string for output}

i,j, {counter}

numName, {number of Name array elements}

numBook, {number of Book array elements}

numEdit:integer; {number of Edition array elements}

add, {variable for adding record}

rec, {symbol of user change for input record}

out:char; {variable of outputing record}

flag:boolean; {flag for outputing}

procedure Menu; forward; {title of Menu}

{--------Title-----------}

procedure Title;

begin

writeln('Result of lab4_1'); {task of lab}

writeln('Variant 5, made by Znakhurenko Viktoriya');

writeln('Create record with author name, book''s title and year of production');

writeln('---------------------------------------------------');

end; {end of title}

{--------Input------------}

procedure Input;

begin

repeat {do while user wish}

repeat {do while record existed}

clrscr; {clear screen}

Title; {title of lab}

writeln('1. Record 1. Author name and title of book');

writeln('2. Record 2. Title of book and year of production'); {menu for entry records}

readln(rec); {inputing record 1 or 2}

until (rec='1') or (rec='2'); {circle for inputing record}

clrscr; {clear screen}

Title; {title of lab}

if(numEdit<=10) then {is not out of capacity array}

if(rec='1')then {inputing record 1}

begin

numName:=numName+1; {increment of array}

with name[numName] do{access for record}

begin

write('Author of book ');

readln(author); {read author of record}

write('Title of book ');

readln(title) {read title of record}

end; {end of with}

end {end of if}

else {input record 2}

begin

numEdit:=numEdit+1; {increment number of edition}

with edition[numEdit] do {access for record}

begin

write('Title of book ');

readln(title); {read title of record}

write('Year of produce ');

readln(year); {read year of production}

end; {end of with}

end {end of else}

else {out of capacity array of records}

writeln('Impossible to add record');

writeln('Add new record?[y/n]');

readln(add); {user answer for continuous entring}

until(add='n')or(add='N'); {until user answer}

flag:=true; {init flag value}

end;

{------------Output-----------------}

procedure Output;

var s:string; {string for formation}

begin

clrscr; {clear screen}

Title; {title of lab}

if(flag=true)then {flag outputting}

begin

repeat {do while record existed}

clrscr; {clear screen}

Title; {title of lab}

writeln('1. Record. Author name and title of book');

writeln('2. Record. Title of book and year of production');

writeln('3. Record. Author, title of book and year of production'); {menu choise}

readln(out); {user answer for outputing}

until (out='1') or (out='2')or (out='3');

{possibility of outputing}

end; {end of if}

clrscr; {clear screen}

Title; {title of lab}

if(out='1')then {outputing record 1}

begin

writeln(' Author of book | Title of book ');

for i:=1 to numName do {colums for outputing}

with name[i] do {access to name}

begin

s:=author; {initialization s}

while(length(s)<20)do {for table formation}

insert(' ',s,length(s)+1); {add array}

write(s); {outputting string}

s:=title; {initialization s}

while(length(s)<20)do {for table formation}

insert(' ',s,length(s)+1); {add array}

writeln(s); {outputting string}

end; {end of with}

end {end of if}

else if(out='2')then {outputing record 2}

begin

writeln('Title of book | Year of produce ');

for i:=1 to numEdit do {output in columns}

with edition[i] do {access to edition}

begin

s:=title; {initialization s}

while(length(s)<20)do {for table formation}

insert(' ',s,length(s)+1); {add array}

write(s); {outputting string}

s:=year; {initialization s}

while(length(s)<5)do {for table formation}

insert(' ',s,length(s)+1); {add array}

writeln(s); {outputting string}

end; {end of with}

end {end of if}

else {output record 3}

begin

writeln(' Author of book | Title of book | Year of produce ');

for i:=1 to numBook do {columns}

with book[i],ID do

begin

s:=author; {initialization s}

while(length(s)<20)do{for table formation}

insert(' ',s,length(s)+1); {add array}

write(s); {outputting string}

s:=title; {initialization s}

while(length(s)<20)do{for table formation}

insert(' ',s,length(s)+1); {add array}

write(s); {outputting string}

s:=year; {initialization s}

while(length(s)<5)do{for table formation}

insert(' ',s,length(s)+1); {add array}

writeln(s); {outputting string}

end; {end of with}

end; {end of if}

flag:=true; {init flag value}

readln;

end; {end of Output}

{--------FormRecord---------}

procedure FormRecord; {Solving problem of lab}

begin {Formation record 3}

for i:=1 to numName do {circle for name array}

for j:=1 to numEdit do {circle for edition array}

if(name[i].title=edition[j].title)then{when add new record}

begin

numBook:=numBook+1; {incriment number of Book}

book[numBook].ID:=name[i]; {copy record}

book[numBook].year:=edition[j].year; {copy pole}

{copy pole of record}

out:='3'; {outputting of record 3}

end; {end of if}

flag:=false; {change flag value}

Output; {Output formation record}

end; {end of FormRecord}

{----------Menu-----------}

procedure Menu; {Main menu}

begin

repeat {do while not exit pressed}

clrscr; {clear screen}

Title; {title of lab}

writeln(' Menu');

writeln('1. Add new record');

writeln('2. Formation record');

writeln('3. Output records');

writeln('4. Exit');

write('Your choice ');

readln(rec); {entry user answer}

case rec of {case of user choise}

'1':Input; {Input record}

'2':FormRecord; {Formation record 3}

'3':Output; {Output record}

'4':exit; {Exit of program}

end; {end of case}

until(rec='4'); {if exit select}

end; {end of menu}

{---------Main program-----------}

begin

Menu;

end.

 

5. ScreenShot’s

6. Аналіз роботи

На дев’яти ScreenShout ’ах ми бачимо роботу програми

1. Меню має 4 пункт. Користувач має вибрати один з цих варіантів. Здійснено перевірку на введення коректних пунктів меню.

2. Користувач вибрав перший пункт меню Додати новий запис. Відкрилось підменю вибору виду запису: першого – автор та назва книжки, другого - назви та року видання. Зациклення програми на введення можливого виду запису, тобто першого чи другого.

3. Введення першого виду запису, після чого питання на продовження введення нового запису з подальшим вибором виду запису.

4. Введення другого виду запису

5. Користувач вибрав третій пункт меню Виведення записів. Відкрилось підменю вибору виду записів, які виводити: першого – автор та назва книжки, другого - назви та року видання чи третього – автора, назви книжки та року видання. Зациклення програми на введення можливого виду запису, тобто першого, другого чи третього.

6. Виведення першого виду записів.

7. Виведення другого виду записів.

8. Користувач вибрав другий пункт меню Формування третього виду записів. Після чого відбувається виведення третього виду запису.

9. Четвертий пункт меню – вихід з програми, після чого завершується її виконання.