Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Uses Crt;
- type
- Actors = Record
- ID_A: word;
- Name_A: string[18];
- Fam_A: string[18];
- DofB: string[8];
- Roles: byte; {1 - главная, 2 - второстепенная, 3 - массовка}
- Gender: boolean;
- end;
- Films = Record
- ID_F: word;
- ID_A: word;
- Name_F: string[20];
- Duration: string[6];
- Date: string[8];
- end;
- var
- FV1: file of Actors;
- ActorsBP: Actors;
- FV2: file of Films;
- FilmsBP: Films;
- temp: longword;
- const
- ActorsName = 'Actors.uwu';
- FilmsName = 'Films.uwu';
- Yes = 'YyУу';
- procedure Open;
- begin
- Assign(FV1, ActorsName);
- Assign(FV2, FilmsName);
- if not FileExists(ActorsName) then ReWrite(FV1)
- else ReSet(FV1);
- if not FileExists(FilmsName) then ReWrite(FV2)
- else ReSet(FV2);
- end;
- procedure Close;
- begin
- Close(FV1);
- Close(FV2);
- end;
- procedure Add;
- begin
- var
- input: string;
- begin
- if (FileSize(FV1) > 0) then
- begin
- Seek(FV1, FileSize(FV1) - 1);
- Read(FV1, ActorsBP);
- ActorsBP.ID_A := ActorsBP.ID_A + 1;
- end
- else ActorsBP.ID_A := 0;
- repeat
- Write('Имя актера: ');
- Readln(input);
- until (input.Length <= 18) and (input <> ''.ToString());
- ActorsBP.Name_A := input;
- repeat
- Write('Фамилия актера: ');
- Readln(input);
- until (input.Length <= 18) and (input <> ''.ToString());
- ActorsBP.Fam_A := input;
- repeat
- Write('Дата рождения: ');
- Readln(input);
- input.Replace('.', '')
- until (input.Length = 8) and longword.TryParse(input, temp);
- ActorsBP.DofB := input;
- repeat
- Write('Роль: (1 - главная; 2 - второстепенная; 3 - массовка)');
- Readln(input);
- until (input.Length = 1) and (input <> ''.ToString()) and (input); {нужно сравнить, равен ли инпут 1/2/3}
- ActorsBP.Roles := input;
- repeat
- Write('Пол: (M of F)');
- Readln(input);
- end;
- end;
- procedure List;
- begin
- end;
- procedure Menu;
- var
- input: string;
- begin
- Write('Введите "help" для списка команд. Введите команду: ');
- while input<>'1' do
- begin
- ReadLn(input);
- case input of
- 'help':
- WriteLn('1 - выйти' + NewLine + '2 - добавить данные в таблицу'
- + NewLine + '3 - вывести таблицу Актеров');
- '2': Add;
- '3': List;
- end;
- end;
- end;
- begin
- Open;
- Menu;
- Close;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement