Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

vlad / TURBO P / tp7 / BIN / MAX1

.PAS
Скачиваний:
3
Добавлен:
12.02.2016
Размер:
5.3 Кб
Скачать
program z1;
uses crt;

type cinema=record
name_film:string;
language:string;
tematuka:string;
seans:real;
rjad,k:byte;
vartist:integer;
end;
f1=file of cinema;
var
f:f1;
user_case:byte;
Procedure Fajl(var fz:f1);
Var Y_N:char;
el:cinema;
i,k,nom:integer;
Begin
assign(fz,'file1');
reset(fz);
if ioresult <>0 then

begin
rewrite (fz);
writeln ('Fajl stvoreno uspishno !')
end;
writeln('Fajl vidkrito');
writeln('Vesti novi =( 1 ),zminiti ( 2 ) ? ');
writeln('nich - 0 ');
readln (y_n);
if (y_n='1') or (y_n='2') then
begin
if y_n ='1'then
begin
seek(fz,filesize(fz));
writeln ('vedit kilkist novix zapitiv :');
readln (k);
for i:=1 to k do
begin
with el do
begin
write('vvedit nazvu filma:');
readln(name_film);
write ('vvedit movu filma:');
readln(language);
write ('vvedit janr filma:');
readln(tematuka);
write('vvedit seans transliacii ');
readln(seans);
write('vvedit riad ');
readln(rjad);
write('vvedit vartist ');
readln(vartist);
end;
write(fz,el);
end;

end
else
if y_n='2' then
begin
writeln ('vvedit nomer zapisu jakij treba zminiti :');
readln(nom);
seek(fz,nom-1);
with el do
begin
write('vvedit nazvu filma:');
readln(name_film);
write ('vvedit movu filma:');
readln(language);
write ('vvedit janr filma:');
readln(tematuka);
write('vvedit seans transliacii ');
readln(seans);
write('vvedit riad ');
readln(rjad);
write('vvedit vartist ');
readln(vartist);
end;
write(fz,el);
end;

end;
end;

Procedure Tab1;
begin
writeln(' //====================================================\\ ');
writeln('// NAZVA || MOVA || Janr || SEANS || Riad || VARTIST \\');
writeln('\\======================================================//');
end;
{
Procedure Rfajl(var fz:f1);
var el:cinema;
begin
tab1;
seek(fz,0);
while not eof(fz) do
begin
read(fz,el);
writeln('|| ',name_film:14,' ||', language:6,' || ',tematika:8, '||', seans:7:2, '||' ,rjad:4, ' ||',vartist:5,' ||');
end;
writeln('\\======================================================//');
end;
}
Procedure d1(var fz:f1);
var el:cinema;
Seansx:integer;
begin
writeln('Vvedit seans');
readln(seansx);
writeln(");
writeln;
tabl;
seek(fz,0);
while not eof(fz) do
begin
read(fz,el);
if el.seans=seansx then
begin
with el do
writeln('|| ',name_film:14,' ||', language:6,' || ',tematika:8, '||', seans:7:2, '||' ,rjad:4, ' ||',vartist:5,' ||');
end;
writeln('\\======================================================//');
end;
end;

Procedure d2(var fz:fl);
var el:cinema;
languagex,tematukax :string;
begin
writeln('Vvedit movu :');
readln(languagex);
writeln('Vvedit tematiku :');
readln(tematukax);
writeln('filmi shco vidpovdajut');
writeln;
tabl;
seek(fz,0);
while not eof(fz) do
begin
read(fz,el);
if (el.languagex=languagex)and (el.tematukax=tematukax)then
begin
with el do
writeln('|| ',name_film:14,' ||', language:6,' || ',tematika:8, '||', seans:7:2, '||' ,rjad:4, ' ||',vartist:5,' ||');
end;
writeln('\\======================================================//');
end;
end;

Procedure d3(var fz:fl);
var el:cinema;
tematukax :string;
rjadx:byte;
begin
writeln('Vvedit tematiku :');
readln(tematukax);
writeln('Vvedit riad vilnij :');
readln(rjadx);
writeln('filmi shco vidpovdajut');
writeln;
writeln('filmi shco vidpovdajut');
writeln;
tabl;
seek(fz,0);
while not eof(fz) do
begin
read(fz,el);
if (el.rjadx=rjadx)and (el.tematukax=tematukax)then
begin
with el do
writeln('|| ',name_film:14,' ||', language:6,' || ',tematika:8, '||', seans:7:2, '||' ,rjad:4, ' ||',vartist:5,' ||');
end;
writeln('\\======================================================//');
end;
end;


begin clrscr;
Fajl(f);
repeat clrscr;
writeln('viberit odin z punktiv menu :');
writeln('1 vsio');
writeln('2 po seaansno');
writeln('3 mova ta timatika');
writeln('4 timatika i riad');
writeln('5 vixod');
readln(user_case);
case user_case of
1: begin clrscr;
Rfajl(f)
end;
2: begin clrscr;
d1(f)
end;
3: begin clrscr;
d2(f)
end;
4: begin clrscr;
d3(f)
end;
5: halt;
end;
writeln;
readln;
until user_case=5;
readln;
end.
Соседние файлы в папке BIN