Блок-схема программы на паскале

PROGRAM kursovoi;Uses crt;
TYPE
otdel=record
no:integer;
fam: string;
imia: string;
ot_vo: string;
gd:string;
pol:string;
nac:string;
staj:string;
END;
obrazovanie= record
n1:integer;
godpos:string;
godokon:string;
mestu4:string;
diplom:string;
END;
voennoe=record
n2:integer;
godpos1:string;
demb:string;
zvanie:string;
END;

Var s1,s2,s3: text;
M1: otdel;
M2: obrazovanie;
M3: voennoe;
k,n,i: integer;

PROCEDURE oku1;
BEGIN
readln(s1,M1.no);
readln(s1,M1.fam);
readln(s1,M1.imia);
readln(s1,M1.ot_vo);
readln(s1,M1.gd);
readln(s1,M1.pol);
readln(s1,M1.nac);
readln(s1,M1.staj);
END;

PROCEDURE oku2;
BEGIN
readln (s2,M2.n1);
readln(s2,M2.godpos);
readln(s2,M2.godokon);
readln(s2,M2.mestu4);
readln(s2,M2.diplom);
END;

PROCEDURE oku3;
BEGIN
readln (s3,M3.n2);
readln(s3,M3.godpos1);
readln(s3,M3.demb);
readln(s3,M3.zvanie);
END;

PROCEDURE ekran;
begin
write ('Poryad. nomer');
writeln(M1.no);
write ('Familia');
write(M1.fam:10);
write ('Imia');
write(M1.imia);
write ('Ot_vo');
write(M1.ot_vo);
write ('GD');
write(M1.gd);
write ('POl');
write(M1.pol);
write ('NAC');
write(M1.nac);
write ('staj');
write(M1.staj);
write ('POr no1');
writeln (M2.n1);
end;
PROCEDURE ekran1;
BEGIN
write(M1.no:2,chr (179));
write(M1.fam:10,' ',chr (179));
write(M1.imia:10,chr(179));
write(M1.ot_vo:12,chr(179));
write(M1.gd:8,' ',chr (179));
write(M1.pol:5,' ', chr (179));
write(M1.nac:7,' ',chr (179));
write(M1.staj:5,chr (179));
END;

PROCEDURE ekran2;
BEGIN
write(M2.N1:2, chr (179));
write(M2.GODPOS:15,' ',chr (179));
write(M2.godokon:20,' ',chr (179));
write(M2.mestu4:6,' ',chr (179));
write(M2.diplom:12,' ',chr (179));
writeln;
END;

PROCEDURE ekran3;
BEGIN
write(M3.n2:2,' ',chr (179));
write(M3.godpos1:15,' ',chr (179));
write(M3.demb:15,' ',chr (179));
write(M3.zvanie:10,' ',chr (179));
writeln;
END;


PROCEDURE fileoku1;
Var a,b,c,d,e,f,g,h,i,j,k:char;
BEGIN
clrscr;
assign(s1,'CTM.txt'); reset(s1);
a:= chr (218);
b:= chr (196);
c:=chr (194);
d:= chr (191);
e:= chr (179);
f:= chr (195);
g:= chr (197);
h:= chr (180);
i:= chr (192);
j:= chr (193);
k:= chr (217);
writeln;
writeln (' DANIIE LICHNOSTI');
writeln (a,b,b,c,b,b,b,b,b,b,b,b,b,b,b,b,c,b,b,b ,b,b,b,b,b,b,b,c,b,b,
b,b,b,b,b,b,b,b,b,b,c,b,b,b,b,b,b,b,b,b, b,b,c,b,b,b,b,b,b,b,b,b,c,b,
b,b,b,b,b,b,b,b,c,b,b,b,b,b,d);
writeln( e,' N',e, ' Familia ',e, ' Imia ',e,' Otchestvo ',
e, ' God rojden',e,' Pol ',e,' Nicia ',e,' Staj',e);
writeln(f,b,b,g,b,b,b,b,b,b,b,b,b,b,b,b, g,b,b,b,b,b,b,b,b,b,b,g,b,b,b,
b,b,b,b,b,b,b,b,b,g,b,b,b,b,b,b,b,b,b,b, b,g,b,b,b,b,b,b,b,b,b,g,b,b,b,
b,b,b,b,b,b,g,b,b,b,b,b,h);
while not eof(s1) do
BEGIN
oku1;
write (e);
ekran1;
write (' ',i,b,b,j,b,b,b,b,b,b,b,b,b,b,b,b,j,b,b, b,b,b,b,b,b,b,b,j,b,
b,b,b,b,b,b,b,b,b,b,b,j,b,b,b,b,b,b,b,b, b,b,b,j,b,b,b,b,b,b,b,b,b,j,b,
b,b,b,b,b,b,b,b,j,b,b,b,b,b,k,' ')
END;
close (s1);
END;

PROCEDURE filechtenie2;
Var a,b,c,d,e,f,g,h,i,j,k:char;
BEGIN
clrscr;
assign(s2,'COTM.txt');reset(s2);
a:= chr (218);
b:= chr (196);
c:=chr (194);
d:= chr (191);
e:= chr (179);
f:= chr (195);
g:= chr (197);
h:= chr (180);
i:= chr (192);
j:= chr (193);
k:= chr (217);
Writeln (' DANNIE PO OBRAZOVANIU');
writeln (a,b,b,c,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b ,b,b,b,b,b,b,b,c,b,b,b,b,b,b,b,b,b,b,b,
b,b,b,b,b,b,b,b,b,b,b,c,b,b,b,b,b,b,b,b, b,c,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,d) ;
writeln(e, ' N',e,'Godpostuplenie v univer',e,'God okonchanya univera',e,'Mesto uch',e,
'Diplom obrazovany',e);
writeln(f,b,b,g,b,b,b,b,b,b,b,b,b,b,b,b, b,b,b,b,b,b,b,b,b,b,b,g,b,b,b,b,b,b,b,b, b,b,b,b,
b,b,b,b,b,b,b,b,b,b,g,b,b,b,b,b,b,b,b,b, g,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,h);
while not eof(s2) do
BEGIN
oku2;
write (e);
ekran2;
write (i,b,b,j,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b ,b,b,b,b,b,b,b,j,b,b,b,b,b,b,b,b,b,
b,b,b,b,b,b,b,b,b,b,b,b,b,j,b,b,b,b,b,b, b,b,b,j,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b, b,k,' ')
END;
close (s2);
END;

PROCEDURE filechtenie3;
Var a,b,c,d,e,f,g,h,i,j,k:char;
BEGIN
clrscr;
assign(s3,'OTM.txt'); reset(s3);
a:= chr (218);
b:= chr (196);
c:=chr (194);
d:= chr (191);
e:= chr (179);
f:= chr (195);
g:= chr (197);
h:= chr (180);
i:= chr (192);
j:= chr (193);
k:= chr (217);
writeln;
writeln (' DANNIE PO VOENNOOBYAZANNOSTI');
writeln (a,b,b,b,c,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b ,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,
c,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b, b,b,b,c,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b, b,d);
writeln(e,' N ',e,' God postuplenie v armiu ',e,' Dembilizacia ',e,' Zvanie v armii ',e);
writeln(f,b,b,b,g,b,b,b,b,b,b,b,b,b,b,b, b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b, b,g,
b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b, b,b,g,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b, h);
while not eof(s3) do
BEGIN
oku3;
write (e);
ekran3;
write (i,b,b,b,j,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b ,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,
j,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b, b,b,b,j,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b, b,k,' ');
END;
close (s3)
END;

PROCEDURE pisat;
BEGIN
clrscr;
REPEAT
assign(s1,'CTM.txt'); rewrite(s1);
writeln(' Dannie lichnosti');
write (' Poryadkovi nomer'); readln (M1.no); writeln (s1,M1.no);
write(' Familiaя:');readln(M1.fam);writeln(s1,M1 .fam);
write(' Imia:');readln(M1.imia);writeln(s1,M1.im ia);
write(' Otchestvo:');readln(M1.ot_vo);writeln(s1 ,M1.ot_vo);
write(' God rojdenie:');readln(M1.gd);writeln(s1,M1. gd);
write(' Pol (muj,jen):');readln(M1.pol);writeln(s1,M 1.pol);
write(' Nacia:');readln(M1.nac);writeln(s1,M1.na c);
write(' Staj:');readln(M1.staj);writeln(s1,M1.st aj);
close (s1);
assign(s2,'COTM.txt'); rewrite(s2);
writeln(' dannie po obrazovaniu');
write (' Poryadkovi nomer '); readln (M2.n1); writeln (s2,M2.n1);
write(' God postuplenie v univer:');readln(M2.godpos);writeln(s2,M 2.godpos);
write( 'God okonchania univera:');readln(M2.godokon);writeln(s2 ,M2.godokon);
write(' Mesto uchebi:');readln(M2.mestu4);writeln(s2,M 2.mestu4);
write(' Diplom obrzovanya:');readln(M2.diplom);writeln( s2,M2.diplom);
close (s2);
assign(s3,'OTM.txt'); rewrite(s3);
writeln(' Dannie po voennoobyazannosti');
write (' Poryadkovi nomer '); readln (M3.n2); writeln (s3,M3.n2);
write(' God postuplenie v armiu:');readln(M3.godpos1);writeln(s3,M 3.godpos1);
write(' яDembilizacia:');readln(M3.demb);writeln (s3,M3.demb);
write(' Zvanie v armii:');readln(M3.zvanie);writeln(s3,M3 .zvanie);
close (s3);
readkey;
writeln ('Hotite dobavit zapis Enter/Esc');
UNTIL ord(readkey)=27;
END;

PROCEDURE Filedobavit;
BEGIN
clrscr;
assign(s1,'CTM.txt'); append(s1);
writeln(' Dannie lichnosti');
write (' Poryadkovi nomer'); readln (M1.no); writeln (s1,M1.no);
write(' Familiaя:');readln(M1.fam);writeln(s1,M1 .fam);
write(' Imia:');readln(M1.imia);writeln(s1,M1.im ia);
write(' Otchestvo:');readln(M1.ot_vo);writeln(s1 ,M1.ot_vo);
write(' God rojdenie:');readln(M1.gd);writeln(s1,M1. gd);
write(' Pol (muj,jen):');readln(M1.pol);writeln(s1,M 1.pol);
write(' Nacia:');readln(M1.nac);writeln(s1,M1.na c);
write(' Staj:');readln(M1.staj);writeln(s1,M1.st aj);
close(s1);
assign(s2,'COTM.txt'); append(s2);
writeln(' dannie po obrazovaniu');
write (' Poryadkovi nomer '); readln (M2.n1); writeln (s2,M2.n1);
write(' God postuplenie v univer:');readln(M2.godpos);writeln(s2,M 2.godpos);
write( 'God okonchania univera:');readln(M2.godokon);writeln(s2 ,M2.godokon);
write(' Mesto uchebi:');readln(M2.mestu4);writeln(s2,M 2.mestu4);
write(' Diplom obrzovanya:');readln(M2.diplom);writeln( s2,M2.diplom);
close(s2);
assign(s3,'OTM.txt'); append(s3);
writeln(' Dannie po voennoobyazannosti');
write (' Poryadkovi nomer '); readln (M3.n2); writeln (s3,M3.n2);
write(' God postuplenie v armiu:');readln(M3.godpos1);writeln(s3,M 3.godpos1);
write(' яDembilizacia:');readln(M3.demb);writeln (s3,M3.demb);
write(' Zvanie v armii:');readln(M3.zvanie);writeln(s3,M3 .zvanie);
close(s3);
END;
PROCEDURE Filechitat';
BEGIN
clrscr;
filechitat1;
readln;
filechitat2;
readln;
filechitat3;
END;

procedure Poisk;
label 12;
var ss,s:string[40];
n:integer;
begin
12:
clrscr;
writeln(' iskat po');
writeln ('1 tablichnomu nomeru ');
writeln ('2 familii ');
writeln ('3 imia ');
writeln ('4 otchestvo ');
writeln ('5 godu roj ');
writeln ('6 polu ');
writeln ('7 nacii ');
writeln ('8 staju rab');
{writeln ('9 ');
writeln ('7 staju rab');
writeln ('7 staju rab');
writeln ('7 staju rab');
writeln ('7 staju rab');
writeln ('7 staju rab');
writeln ('7 staju rab');
writeln ('7 staju rab');
writeln ('7 staju rab');}
k:=ord(readkey)-48;
clrscr;
case k of
1: write('napishi tab nomer - ');
2: write('Familia - ');
3: write('Imia - ');
4: write('Otchestvo - ');
5: write('God rojdenie - ');
6: write('Pol - ');
7: write('Nacia - ');
8: write('Staj - ');
else begin write('viberai snachala '); goto 12; end;
end;
readln(s);
assign(s1,'CTM.txt');
reset(s1);
while not eof(s1) do
begin
n:=0;
assign (s2,'COTM.txt');
reset (s2);
assign (s3,'OTM.txt');
reset (s3);
chtenie1;
chtenie2;
chtenie3;
case k of
1: begin str (M1.no,ss); if s=ss then n:=1; end;
2: if s=M1.fam then n:=1;
3: if s=M1.imia then n:=1;
4: if s=M1.ot_vo then n:=1;
5: if s=M1.gd then n:=1;
6: if s=M1.pol then n:=1;
7: if s=M1.nac then n:=1;
8: if s=M1.staj then n:=1;
9: begin str (M2.n1,ss); if s=ss then n:=1; end;
10: begin str (M3.n2,ss); if s=ss then n:=1; end;
end;
if n=1 then begin
ekran;
{ ekran2;
ekran3;}
end;
end;
end;


{Procedure print;
var i: byte;
begin
for i:=1 to n do
writeln(i, '');
end;}

BEGIN
repeat
clrscr;
textbackground(1);
textcolor(14);
writeln;
writeln;
writeln(' 1. Sozdanie bazi dannix');
writeln;
writeln(' 2. Prosmotr bazi dannix');
writeln;
writeln(' 3. Dobavlenie bazi dannix');
writeln;
writeln(' 4. Svedenie po kadra');
writeln;
writeln(' 5. Poisk');
writeln;
writeln(' 6. Vixod iz programmi');
writeln;
k:=ord(readkey);
case k of
49: jazu;
50: begin fileprosmotr; readln; end;
51: filedobavit;
{52:}
53: begin Poisk; readln; end;
54: halt;
end;
until k=27;
END.
и если сможете помогите с процедурой принт...зараннее благодарю

0

Скачай FCeditor

0