Към bezplatno.info портал | Галерия | Сайтове | Чат | Цитати | #bezplatno.info @ uniBG | Филми | Футбол | Качване на картинки | Health and weight loss
 Въпроси/Отговори ::  Търсене ::  Потребители ::  Потребителски групи ::   Регистрирайте се ::  Вход 


Google
 





- А стига бе, стабилен Shell и то с SMS?
- Ахам, при нашия спонсор Forci.com!

Pascal - Програма за нуждите на хотел
 
Създайте нова тема   Напишете отговор
Безплатни домейни Форуми » IT Уроци
Предишната тема :: Следващата тема  
Автор Съобщение
ckunap
Бедняк
Бедняк


Регистриран на: 14 Фев 2011
Мнения: 6

6 Домейн Точки

МнениеПуснато на: Вто Фев 15, 2011 7:00 pm    Заглавие: Pascal - Програма за нуждите на хотел Отговорете с цитат

Код:
program Hotel;
const
Uslugi:array[1..7] of string[20]=('basein','djakuzi','masaj',
'sauna','solarium','roomservise','fitnes
type
TipGost=record
Ime:string[20];
EGN:string[10];
Spolojenie:integer;
DataPris:record
Dp,Mp,Gp:integer;
end;
DataZam:record
Dz,Mz,Gz:integer;
end;
MUslugi:set of 1..7;
BrUsl:byte;
end;
Var
fname:string[30]; f:file of TipGost;
C:byte;
MasGosti:array[1..50] of TipGost;
Gost: TipGost;

Procedure CreateFile;
var f:file of TipGost; Gost:TipGost; q:shortint;
i,KodUsluga:byte;

begin
writeln('Zadaite ime na faila');readln(fname);
assign (f,fname); rewrite(f);
repeat
i:=0;
write('Vavedi ime: '); readln(Gost.Ime);
write('Vavedi EGN: '); readln(Gost.EGN);
write('Vavedi 1-za nesemeen ili 2-za semeen: '); readln(Gost.SPolojenie);
writeln('Zadaite data na pristigane!');
write('Vavedi den: '); readln(Gost.DataPris.Dp);
write('Vavedi mesec: '); readln(Gost.DataPris.Mp);
write('Vavedi godina: '); readln(Gost.DataPris.Gp);
writeln('Zadaite data na zaminavane! ');
write('Vavedi den: '); readln(Gost.DataZam.Dz);
write('Vavedi mesec: '); readln(Gost.DataZam.Mz);
write('Vavedi godina: '); readln(Gost.DataZam.Gz);
writeln('Vavedi masiv izpolzvani uslugi!');
repeat
writeln(' ':20,'Kodove na uslugite:');
writeln(' ':25,'1 - basein;');
writeln(' ':25,'2 - djakuzi;');
writeln(' ':25,'3 - masaj;');
writeln(' ':25,'4 - sauna;');
writeln(' ':25,'5 - solarium;');
writeln(' ':25,'6 - room service;');
writeln(' ':25,'7 - fitnes;');
write(' ':15, 'Posochete usluga ili 0 za krai:'); readln(KodUsluga);
if KodUsluga in [1..7]
then begin
i:=i+1;
Gost.MUslugi:=Gost.MUslugi+[KodUsluga];
Gost.brusl:=i;
end;
until KodUsluga=0;
write (f,Gost);
writeln('1 - Vavedi nov gost');
writeln('0 - Krai na faila');readln(q)
until q=0;
close(f);
end;

Procedure Dobaviane ;
var Gost:TipGost; q:shortint;
i,KodUsluga:byte;
begin
assign(f,fname); reset(f);
seek(f,FileSize(f));

repeat
i:=0;
write('Vavedi ime: '); readln(Gost.Ime);
write('Vavedi EGN: '); readln(Gost.EGN);
write('Vavedi 1-za nesemeen ili 2-za semeen: '); readln(Gost.SPolojenie);
writeln('Zadaite data na pristigane!');
write('Vavedi den: '); readln(Gost.DataPris.Dp);
write('Vavedi mesec: '); readln(Gost.DataPris.Mp);
write('Vavedi godina: '); readln(Gost.DataPris.Gp);
writeln('Zadaite data na zaminavane! ');
write('Vavedi den: '); readln(Gost.DataZam.Dz);
write('Vavedi mesec: '); readln(Gost.DataZam.Mz);
write('Vavedi godina: '); readln(Gost.DataZam.Gz);
writeln('Vavedi masiv izpolzvani uslugi!');
repeat
writeln(' ':20,'Kodove na uslugite:');
writeln(' ':25,'1 - basein;');
writeln(' ':25,'2 - djakuzi;');
writeln(' ':25,'3 - masaj;');
writeln(' ':25,'4 - sauna;');
writeln(' ':25,'5 - solarium;');
writeln(' ':25,'6 - room service;');
writeln(' ':25,'7 - fitnes;');
writeln(' ':15, 'Posochete usluga ili 0 za krai:');
readln(KodUsluga);
if KodUsluga in [1..7]
then begin
i:=i+1;
Gost.MUslugi:=Gost.MUslugi+[KodUsluga];
Gost.brusl:=i;
end;
until KodUsluga=0;
write (f,Gost);
writeln('1 - Produlji s dobavineto');
writeln('0 - Krai na dobavianeto');readln(q)
until q=0;
close(f);
end;

Procedure Zameniane;
var
n:integer;
EGN:string[10]; KodUsluga:byte; i:integer;
begin
write('Vavedi EGN'); readln(EGN);
assign (f,fname); reset(f);
while not EOF (f) do
begin
read(f,Gost);
if Gost.EGN=EGN
then begin
i:=0;
seek(f,FilePos(f)-1);
write('Ime: ',Gost.Ime,' - ');readln(Gost.Ime);
write('EGN: ',Gost.EGN,' - '); readln(Gost.EGN);
write('Vavedi 1-za nesemeen ili 2-za semeen: ',Gost.Spolojenie,' - '
writeln('Zadaite data na pristigane:');
write('Den: ',Gost.DataPris.Dp,' - '); readln(Gost.DataPris.Dp);
write('Mesec: ',Gost.DataPris.Mp,' - '); readln(Gost.DataPris.Mp);
write('Godina: ',Gost.DataPris.Gp,' - '); readln(Gost.DataPris.Gp);
writeln('Zadaite data na zaminavane:');
write('Den: ',Gost.DataZam.Dz, ' - '); readln(Gost.DataZam.Dz);
write('Mesec: ',Gost.DataZam.Mz, ' - '); readln(Gost.DataZam.Mz);
write('Godina: ',Gost.DataZam.Gz,' - '); readln(Gost.DataZam.Gz);
writeln('Vavedi masiv izpolzvani uslugi!');
repeat
writeln(' ':20,'Kodove na uslugite:');
writeln(' ':25,'1 - basein;');
writeln(' ':25,'2 - djakuzi;');
writeln(' ':25,'3 - masaj;');
writeln(' ':25,'4 - sauna;');
writeln(' ':25,'5 - solarium;');
writeln(' ':25,'6 - room service;');
writeln(' ':25,'7 - fitnes;');
writeln(' ':15, 'Posochete usluga ili 0 za krai:');
readln(KodUsluga);
if KodUsluga in [1..7]
then begin
i:=i+1;
Gost.MUslugi:=Gost.MUslugi+[KodUsluga];
Gost.brusl:=i;
end;
until KodUsluga=0;
write(f,Gost);
writeln('Dannite za gost sa EGN,',EGN,'sa zameneni!');
end;
end;
close(f);
end;

Procedure Izvejdane1(Gost:TipGost);
begin
with Gost do
writeln('ime: ',Ime,' ':21-length(Ime));
end;
Procedure Izvejdane;
begin
assign(f,fname); reset (f);
writeln('Imenata na vsichki gosti sa:');
while not EOF (f) do
begin
read (f,Gost);
Izvejdane1(Gost);
end;
end;

Procedure BroiUslugi1(Gost:TipGost);
begin
with Gost do
writeln('Ime: ',Ime,' ':21-length(Ime),'BroiUslugi:',BrUsl)
end;
Procedure BroiUslugi;
begin
assign(f,fname);
reset (f);
writeln('Broi na izpolzvanite usugi:');
while not EOF (f) do
begin
read (f,Gost);
BroiUslugi1(Gost);
end;
end;

Procedure UslugiM;
var pol,P:integer; KodUsluga:byte;
begin
assign(f,fname); reset(f);
while not EOF (f) do
begin
read (f,Gost);
Val(Copy(Gost.EGN,9,1),pol,P);
if (pol)div(2)mod(2)= 0
then
begin
for KodUsluga:=1 to 7 do
if KodUsluga in Gost.MUslugi
then
writeln(Uslugi[KodUsluga],'');
end;
end;
end;

begin
repeat
writeln (' ':20,'Menu na izpulniavanite operacii:');
writeln(' ':25,'1 - Suzdavane na fail');
writeln(' ':25,'2 - Dobaviane na gosti');
writeln(' ':25,'3 - Zamiana na gosti');
writeln(' ':25,'4 - Otpechtvane imenata na vsichki gosti');
writeln(' ':25,'5 - Broi na izpolzvanite uslugi');
writeln(' ':25,'6 - Spisuk uslugi, izpolzvani ot vsichki gosti - muje');
writeln(' ':20,'Posochete operacia ili 0 za krai:');
readln (C);
case C of
1:CreateFile;
2:Dobaviane;
3:Zameniane;
4:Izvejdane;
5:BroiUslugi;
6:UslugiM;
end;
until C=0;
end.
Вижте профила на потребителя Изпратете лично съобщение
Sponsor
BRAINSPORTAL
Покажи мнения от преди:   
Безплатни домейни Форуми » IT Уроци Часовете са според зоната GMT + 2 Часа
Създайте нова тема   Напишете отговор
Страница 1 от 1

 
Идете на:  
Не Можете да пускате нови теми
Не Можете да отговаряте на темите
Не Можете да променяте съобщенията си
Не Можете да изтривате съобщенията си
Не Можете да гласувате в анкети
SMS Реклама
receptite.co.cc | dietichno.com | WWW.OBQVI.US | bg-download.info | mmo-bg.com | mmo-bg.com.knigite | www.Flirtovete.com | Simpatiagi.com | kolelo.net | FILMI.be | 
Към bezplatno.info портал | Галерия | Сайтове | Чат | Цитати | #bezplatno.info @ uniBG | Филми | Футбол | Качване на картинки | Health and weight loss