Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
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:fl);
Var Y_N:char;
el:cinema;
i,k,nm:integer;
Begin
assign(fz,'filel');
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
end;
end;
end;
end.
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:fl);
Var Y_N:char;
el:cinema;
i,k,nm:integer;
Begin
assign(fz,'filel');
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
end;
end;
end;
end.
Соседние файлы в папке BIN