Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ Π·Π°ΠΏΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠΆΠΊΠΈ
ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ «writeln» Π²ΡΠ²Π΅Π΄Π΅ΠΌ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ (ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° «ΠΏΡΠΎΡΠ°Π΅ΡΡΡ» Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ). Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΡΠΏΠ΅Π» Π΅Ρ ΠΏΡΠΎΡΠΈΡΠ°ΡΡ, Π΄ΠΎΠ±Π°Π²ΠΈΠΌ «readln». Π’ΠΎΠ³Π΄Π° Π²ΡΡ ΠΎΠ΄ Π±ΡΠ΄Π΅Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΡΡ ΠΏΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ «Enter». ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° Π½ΠΎΠΌΠ΅ΡΠ° Π·Π°ΠΏΠΈΡΠΈ Π·Π°Π΄Π°Π΄ΠΈΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ «new» ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π·Π°Π΄Π°Π΄ΠΈΠΌ ΡΡΠ»ΠΎΠ²ΠΈΠ΅, Π²Π½ΡΡΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΡΠ΄Π΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ … Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ Π·Π°ΠΏΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠΆΠΊΠΈ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
— 1 ;
1. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΈΠΏΠΎΠ². ΠΡΠΎΡΠ΅Π΄ΡΡΡ
2. Π’Π΅Π»ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
2.1 Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ²Π΅ΡΡΡΠ²ΠΈΡ
2.2 Π Π΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ
2.3 ΠΡΠ²ΠΎΠ΄ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° ΡΠΏΡΠ°Π²ΠΊΠΈ.
2.4 ΠΡΠ²ΠΎΠ΄ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΠΏΠΎΠ»Π΅ΠΉ. ΠΠ°ΠΊΡΡΡΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
2.5 ΠΠ°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΡΠΈΠ½ΡΠΈΠΏ ΡΠ°Π±ΠΎΡΡ Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
1. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΈΠΏΠΎΠ². ΠΡΠΎΡΠ΅Π΄ΡΡΡ
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΈΠΏΠΎΠ² Π½Π°ΡΠ½Π΅ΠΌ Ρ ΡΠΈΠΏΠ° «Π·Π°ΠΏΠΈΡΡ»: ΠΏΡΠΈΡΠ²ΠΎΠΈΠΌ Π΅ΠΉ ΠΈΠΌΡ «TSt». ΠΠ°Π»Π΅Π΅ ΠΎΠΏΠΈΡΠ΅ΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ (ΠΏΠΎΠ»Ρ) Π·Π°ΠΏΠΈΡΠΈ. Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ 3 ΠΏΠΎΠ»Ρ Π·Π°ΠΏΠΈΡΠΈ Ρ Π½Π°Π·Π²Π°Π½ΠΈΡΠΌΠΈ: Name, Group, Subject ΠΈ Mark. ΠΠ½ΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΏΠΎΠ»Ρ Π·Π°ΠΏΠΈΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠΆΠΊΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π·Π°ΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ. Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΈ ΠΌΠ°ΡΡΠΈΠ², ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ°ΠΊΠΆΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΠΌ Π² ΡΠΈΠΏΠ°Ρ .
type TSt=record
Name: string[13];
Group: string[13];
Subject:string[13];
Mark:string[13];
end;
TASt=array[1.10] of TSt;
ΠΠ°Π»Π΅Π΅ ΠΏΠ΅ΡΠ΅ΠΉΠ΄Π΅ΠΌ ΠΊ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π±ΡΠ΄ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅. ΠΠ°ΠΌ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΡΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄Π»Ρ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ Π² Π²ΡΡΠ΅ΠΎΠΏΠΈΡΠ°Π½Π½ΡΠ΅ ΠΏΠΎΠ»Ρ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΡΠΆΠ΅ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»Ρ Π½Π° ΡΠΊΡΠ°Π½.
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎ Π²Π²ΠΎΠ΄Ρ Π΄Π°Π½Π½ΡΡ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ «WriteSt» Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
procedure WriteSt (var A: TSt);
begin
write ('group: ');
readln (A.Group);
write ('Name: ');
readln (A.Name);
write ('Subject: ');
readln (A.Subject);
write ('Mark: ');
readln (A.Mark);
writeln;
end;
Π‘ΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ, ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° «OutputSt», ΠΎΡΠ²Π΅ΡΠ°ΡΡΠ°Ρ Π·Π° Π²ΡΠ²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ Π½Π° ΡΠΊΡΠ°Π½, Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ:
procedure OutputSt (A:TSt);
begin
writeln ('Group: ', A. Group);
writeln ('Name: ', A.Name);
write ('Subject: ', A. Subject);
write (':');
writeln (A.Mark,' ballov');
end;
ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π² Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΌ ΡΠΈΠΏΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Ρ, ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π·Π°Π΄Π°Π½Ρ. ΠΠ°Π»Π΅Π΅ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΡΠ΅Π»ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
2.Π’Π΅Π»ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ΅ΡΠ΅Π΄ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ΠΌ ΡΠ°ΠΌΠΎΠ³ΠΎ ΡΠ΅Π»Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ, ΠΊΠ°ΠΊΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΏΠΎΡΡΠ΅Π±ΡΡΡΡΡ Π΄Π»Ρ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΡ. ΠΠ»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π·Π°Π΄Π°Π΄ΠΈΠΌ ΠΌΠ°ΡΡΠΈΠ² «B», ΡΡΡΠΎΡΠ½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ «a» ΠΈ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠΉ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ «p». ΠΠ°ΡΡΠΈΠ² Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌ Π΄Π»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ ΠΏΠΎΠ΄ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌΠΈ, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΠΌΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠΌ «p», Π° ΡΡΡΠΎΡΠ½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ «a» ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ Π²Π²ΠΎΠ΄ ΠΊΠΎΠΌΠ°Π½Π΄ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
var B: TASt;
a:string;p:integer;
2.1 Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ²Π΅ΡΡΡΠ²ΠΈΡ
ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, Π½Π΅Π·Π½Π°ΠΊΠΎΠΌΡΠΉ Ρ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ, ΠΌΠΎΠ³ Π² Π½Π΅ΠΉ ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°ΡΡΡΡ, ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΏΡΠΈΠ²Π΅ΡΡΡΠ²ΠΈΠ΅, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠΈΠΌ:
1) Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ;
2) ΠΈΠΌΡ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Ρ;
3) Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ.
ΠΡΠΎ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
writeln ('Vas privetstvuet NoteBook v.1.0b Sozdateli: studenty gruppy 520 361: Konova Elena, Pivovarov Nikolay, Kharlamov Alexey');
writeln;
writeln ('Command «new» -redaktirovanie zapisi," w" -vyvod tekuschey zapisi, " «-vvod nomera zapisi,» help" -vyzov spravki, «all» -pokazat' vse zapisi, «name» -pokazat' imena, «group» -pokazat' nomera grupp, «mark» -pokazat' ocenki, «sub» —pokazat' predmety, " q" -vyhod');
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ²Π΅ΡΡΡΠ²ΠΈΡ ΠΎΠΊΠΎΠ½ΡΠ΅Π½ΠΎ.
2.2 Π Π΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ
ΠΠΎΡΠ»Π΅ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΡΠΈΠ²Π΅ΡΡΡΠ²ΠΈΡ Π·Π°Π΄Π°Π΄ΠΈΠΌ ΡΠΈΠΊΠ», Π²Π½ΡΡΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΡΠ΄ΡΡ Π·Π°Π΄Π°Π²Π°ΡΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ: Π²ΡΠ±ΠΎΡ Π·Π°ΠΏΠΈΡΠΈ, Π΅Ρ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, Π²ΡΠ²ΠΎΠ΄ Π·Π°ΠΏΠΈΡΠΈ Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ Π½ΠΎΠΌΠ΅ΡΠΎΠΌ, Π²ΡΠ²ΠΎΠ΄ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ, Π²ΡΠ²ΠΎΠ΄ Π²ΡΠ΅Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΡ ΠΏΠΎΠ»Π΅ΠΉ.
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°ΡΡΡΠΈΡΠ°Π½Π° Π½Π° 10 Π·Π°ΠΏΠΈΡΠ΅ΠΉ. ΠΠ°Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠΌΠ΅ΡΠ° Π·Π°ΠΏΠΈΡΠΈ Π±ΡΠ΄Π΅Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
if (a='1') or (a='2') or (a='3') or (a='4') or (a='5') or (a='6') or (a='7') or (a='8')
or (a='9') or (a='10') then
begin
p:=strtoint (a);
writeln ('current record ', p);
end;
ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° Π½ΠΎΠΌΠ΅ΡΠ° Π·Π°ΠΏΠΈΡΠΈ Π·Π°Π΄Π°Π΄ΠΈΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ «new» ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π·Π°Π΄Π°Π΄ΠΈΠΌ ΡΡΠ»ΠΎΠ²ΠΈΠ΅, Π²Π½ΡΡΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±ΡΠ΄Π΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ .
if a='new' then
if (p>0) and (p<11) then
begin
WriteSt (B[p]);
writeln ('zapis ', p,' sohranena');
writeln;
writeln ('Vvedite novuyu komandu');
end
else writeln ('choose the record');
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΠΌΡ Π²Π½ΠΎΡΠΈΠΌ Π²ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° B, ΡΠΎΡΡΠΎΡΡΠ΅Π³ΠΎ ΠΈΠ· 10 ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΠΊ ΠΊΠΎΡΠΎΡΡΠΌ ΠΌΡ ΡΠΌΠΎΠΆΠ΅ΠΌ Π² ΠΏΠΎΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠΈ ΠΎΠ±ΡΠ°ΡΠ°ΡΡΡΡ.
2.3 ΠΡΠ²ΠΎΠ΄ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° ΡΠΏΡΠ°Π²ΠΊΠΈ
ΠΡΡΠ΅ ΠΌΡ Π·Π°Π΄Π°Π»ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ . Π‘ΠΎΡΡΠ°Π²ΠΈΠΌ ΡΡΠ»ΠΎΠ²ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π±ΡΠ΄Π΅Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ Π²ΡΠ²ΠΎΠ΄ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ: ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ «a» Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «out» (ΡΡΠΎ ΠΈ Π±ΡΠ΄Π΅Ρ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Π²ΡΠ²ΠΎΠ΄Π°), Π° ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ «p» Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΡΠ°Π²Π΅Π½ ΡΠ΅Π»ΠΎΠΌΡ ΡΠΈΡΠ»Ρ ΠΎΡ 1 ΠΈ Π΄ΠΎ 10 Π²ΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π²ΡΠ²ΠΎΠ΄ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° «B» (ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ Π±Π»ΠΎΠΊΠ½ΠΎΡΠ°) Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
if a='out' then
if (p>0) and (p<11) then
begin
OutputSt (B[p]);
writeln;
writeln ('Vvedite novuyu komandu');
end
else writeln ('choose the record');
ΠΠ»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π΄ΠΎΡΡΡΠΏΠ½ΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ, ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ «help». ΠΡΠ²ΠΎΠ΄ ΡΠΏΡΠ°Π²ΠΊΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²ΠΈΠΌ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠ±ΡΡΠ½ΠΎΠ³ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ°:
if a='help' then
write ('command «new» -redaktirovanie zapisi," out" -vyvod tekuschey zapisi," «-vvod nomera zapisi, «all» -pokazat vse zapisi, «name» -pokazat imena, «group» -pokazat nomera grupp, «mark» -pokazat ocenki, «sub» -pokazat predmety, «q» -vyhod');
2.4 ΠΡΠ²ΠΎΠ΄ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΠΏΠΎΠ»Π΅ΠΉ. ΠΠ°ΠΊΡΡΡΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ»Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠ΅ΠΉ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΏΠΎ Π²ΡΠ²ΠΎΠ΄Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΠΏΠΎΠ»Π΅ΠΉ. ΠΠΎ ΠΏΡΠΈ ΡΡΠΎΠΌ ΡΡΡΠ΅ΠΌ, ΡΡΠΎΠ±Ρ Π½Π΅Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»Ρ Π² ΠΊΠ°ΠΊΠΈΡ -Π»ΠΈΠ±ΠΎ Π·Π°ΠΏΠΈΡΡΡ Π½Π΅ Π²ΡΠ²ΠΎΠ΄ΠΈΠ»ΠΈΡΡ. ΠΡΠΎ Π»Π΅Π³ΠΊΠΎ ΠΎΡΡΡΠ΅ΡΡΠ²ΠΈΡΡ, Π·Π°Π΄Π°Π² ΡΠΈΠΊΠ», ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠΌ Π±ΡΠ΄ΡΡ Π°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡΡΡ Π²ΡΠ΅ Π·Π°Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎΠ»Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π° «B» ΠΈ ΡΡΠ»ΠΎΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π±ΡΠ΄Π΅Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ Π½Π°Π»ΠΈΡΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π² Π΄Π°Π½Π½ΠΎΠΌ ΠΏΠΎΠ»Π΅. ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π·Π°ΠΏΠΈΡΡ «TSt» ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· 4-Ρ ΠΏΠΎΠ»Π΅ΠΉ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°Π΄Π°ΡΡ 4 ΡΡΠ»ΠΎΠ²ΠΈΡ Π΄Π»Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° «a», ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈ Π±ΡΠ΄ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π²ΡΠ²ΠΎΠ΄Π°. ΠΡ Π²ΠΈΠ΄ ΡΠΊΠ°Π·Π°Π½ Π½ΠΈΠΆΠ΅:
if a='name' then
begin
for p:=1 to 10 do
begin
if B[p]. Name<>'' then
writeln ('zapis ', p,' ', B[p]. Name);
end;
end;
if a='group' then
begin
for p:=1 to 10 do
begin
if B[p]. Group<>'' then
writeln ('zapis ', p,' ', B[p]. Group);
end;
end;
if a='mark' then
begin
for p:=1 to 10 do
begin
if B[p]. Mark<>'' then
writeln ('zapis ', p,' ', B[p]. Mark);
end;
end;
if a='sub' then
begin
for p:=1 to 10 do
begin
if B[p]. Subject<>'' then
writeln ('zapis ', p,' ', B[p]. Subject);
end;
end;
ΠΠ°ΠΊΠΎΠ½Π΅Ρ ΠΎΡΡΠ°Π»ΠΎΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π·Π°Π΄Π°ΡΡ ΠΏΠΎ Π²ΡΠ²ΠΎΠ΄Ρ Π²ΡΠ΅Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΡ ΠΏΠΎΠ»Π΅ΠΉ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² Π²ΠΈΠ΄Π΅ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ. ΠΠ»Ρ ΡΠ°Π²Π΅Π½ΡΡΠ²Π° ΡΡΠ΅Π΅ΠΊ ΠΎΠ³ΡΠ°Π½ΠΈΡΠΈΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΠΏΠΎΠ»ΡΡ Π΄ΠΎ 13, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ «setlength». Π’ΠΎΠ³Π΄Π° Π·Π° Π²ΡΠ²ΠΎΠ΄ ΠΏΠΎΠ»Π΅ΠΉ Π±ΡΠ΄Π΅Ρ ΠΎΡΠ²Π΅ΡΠ°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΎΡΡΡΠ²ΠΎΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
if a='all' then
begin
writeln ('Zapis ','Group ','Name ','Subject ','Mark ');
for p:=1 to 10 do
begin
setlength (B[p]. Subject, 13);setlength (B[p].Mark, 13);setlength (B[p].Group, 13);setlength (B[p].Name, 13);
if (B[p]. Subject<>'') or (B[p]. Mark<>'') or (B[p]. Group<>'') or (B[p]. Name<>'') then
writeln ('Zapis ', p,' ', B[p]. Group, B[p].Name, B[p].Subject, B[p].Mark);
end;
end;
2.5 ΠΠ°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΡΠΈΠ½ΡΠΈΠΏ ΡΠ°Π±ΠΎΡΡ
Π ΠΏΡΠ½ΠΊΡΠ΅ 2.2 ΠΌΡ Π·Π°Π΄Π°Π»ΠΈ ΡΠΈΠΊΠ» «repeat until». Π§ΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π·Π°Π΄Π°ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ «a» ΠΊΠΎΠΌΠ°Π½Π΄Ρ, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΡΡ, Π΄ΠΎ ΠΊΠ°ΠΊΠΈΡ ΠΏΠΎΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΠΈΠΊΠ»:
repeat
<οΏ½…>
until a='q';
ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ «writeln» Π²ΡΠ²Π΅Π΄Π΅ΠΌ Π½Π° ΡΠΊΡΠ°Π½ Π½Π°Π΄ΠΏΠΈΡΡ (ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° «ΠΏΡΠΎΡΠ°Π΅ΡΡΡ» Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ). Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΡΠΏΠ΅Π» Π΅Ρ ΠΏΡΠΎΡΠΈΡΠ°ΡΡ, Π΄ΠΎΠ±Π°Π²ΠΈΠΌ «readln». Π’ΠΎΠ³Π΄Π° Π²ΡΡ ΠΎΠ΄ Π±ΡΠ΄Π΅Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΡΡ ΠΏΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ «Enter».
writeln ('Chto zh vy nadelali…');
readln;
end.
ΠΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
1) Π½Π° ΡΠΊΡΠ°Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΠΈΠ²Π΅ΡΡΡΠ²ΠΈΠ΅, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΈΠΌΡ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Ρ ΠΈ ΡΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠΌΠ°Π½Π΄;
2) Π²Π²ΠΎΠ΄ΠΈΡΡΡ Π½ΠΎΠΌΠ΅Ρ Π·Π°ΠΏΠΈΡΠΈ. ΠΡΠΈ ΡΡΠΎΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΠΈΠ΄ΠΈΡ ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΡΡΡ Π½Π°Π΄ΠΏΠΈΡΡ «current record <οΏ½β Π·Π°ΠΏΠΈΡΠΈ>»;
3) ΠΏΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΠΊΠΎΠΌΠ°Π½Π΄Ρ «new» ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΠΎΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠ³ΠΎ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΠΎΠ»Π΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ. ΠΡΠ»ΠΈ Π½ΠΎΠΌΠ΅Ρ Π·Π°ΠΏΠΈΡΠΈ Π½Π΅ Π²ΡΠ±ΡΠ°Π½, ΡΠΎ Π½Π° ΡΠΊΡΠ°Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ «choose the record». ΠΠΎΡΠ»Π΅ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ, ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ «Vvedite novuyu komandu»;
4) Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΊΠ°ΠΊΠΎΠΉ-Π»ΠΈΠ±ΠΎ Π·Π°ΠΏΠΈΡΠΈ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²Π²Π΅ΡΡΠΈ Π½ΠΎΠΌΠ΅Ρ ΡΡΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ ΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Ρ «out», ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΠ± ΡΡΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ Π±ΡΠ΄Π΅Ρ Π²ΡΠ²Π΅Π΄Π΅Π½Π° Π½Π° ΡΠΊΡΠ°Π½;
5) Π΅ΡΠ»ΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»Ρ (Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠ΅) ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ, Π²Π²ΠΎΠ΄ΠΈΡΡΡ ΠΎΠ΄Π½Π° ΠΈΠ· ΠΊΠΎΠΌΠ°Π½Π΄: «name» (Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΏΠΎΠ»Ρ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ «Name»), «group» (Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΏΠΎΠ»Ρ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ «Group»), «mark» (Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΏΠΎΠ»Ρ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ «Mark»), «sub» (Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΏΠΎΠ»Ρ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ «Subject»);
6) ΠΏΡΠΎΡΠΌΠΎΡΡ Π²ΡΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ «all». Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π² Π²ΠΈΠ΄Π΅ ΡΠ°Π±Π»ΠΈΡΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π²ΡΠ΅ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»Ρ Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΠ΅ΠΌ Π½ΠΎΠΌΠ΅ΡΠ° Π·Π°ΠΏΠΈΡΠΈ, ΠΊ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΎΠ½ΠΈ ΠΎΡΠ½ΠΎΡΡΡΡΡ;
7) ΡΡΠΎΠ±Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π²Π²Π΅ΡΡΠΈ «help»;
8) Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ «q». ΠΠΎΡΠ»Π΅ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΡ Π²Π²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π½Π΅ ΡΠΎΡ ΡΠ°Π½ΡΡΡΡΡ.
Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
1. ΠΠΌΠ΅Π»ΠΈΠ½Π° Π. ΠΠ°Π΄Π°ΡΠΈ ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. — Π .: ΠΡΠ·ΠΎΠ²ΡΠΊΠ°Ρ ΠΊΠ½ΠΈΠ³Π°, 2000. — 104 Ρ.
2. Π₯ΠΎΠΌΠΎΠ½Π΅Π½ΠΊΠΎ Π. Delphi 7. — Π‘ΠΠ±.: ΠΠ₯Π-ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2007. — 1200 Ρ.
3. ΠΠΎΠ±ΡΠΎΠ²ΡΠΊΠΈΠΉ Π‘. Delphi 7: Π£ΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡ. — Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ, 2006. — 735 Ρ.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
program notebook;
uses
SysUtils;
type TSt=record
Name: string[13];
Group: string[13];
Subject:string[13];
Mark:string[13];
end;
TASt=array[1.10] of TSt;
procedure InputSt (var A: TSt;n:string;g:string;m:string;s:string);
begin
A.Subject:=s;
A.Group:=g;
A.Name:=n;
A.Mark:=m;
end;
procedure OutputSt (A:TSt);
begin
writeln ('Group: ', A. Group);
writeln ('Name: ', A.Name);
write ('Subject: ', A. Subject);
write (':');
writeln (A.Mark,' ballov');
end;
procedure WriteSt (var A: TSt);
begin
write ('group: ');
readln (A.Group);
write ('Name: ');
readln (A.Name);
write ('Subject: ');
readln (A.Subject);
write ('Mark: ');
readln (A.Mark);
writeln;
end;
var B: TASt;
a:string;p:integer;
begin
writeln ('Vas privetstvuet NoteBook v.1.0b Sozdateli: studenty gruppy 520 361: Konova Elena, Pivovarov Nikolay, Kharlamov Alexey');
writeln;
writeln ('Command «new» -redaktirovanie zapisi," out" -vyvod tekuschey zapisi, «» -vvod nomera zapisi," help" -vyzov spravki, «all» -pokazat vse zapisi, «name» -pokazat imena, «group» -pokazat nomera grupp, «mark» -pokazat ocenki, «sub» -pokazat predmety, «q» -vyhod');
p:=0;
repeat
readln (a);
if a='new' then
if (p>0) and (p<11) then
begin
WriteSt (B[p]);
writeln ('zapis ', p,' sohranena');
writeln;
writeln ('Vvedite novuyu komandu');
end
else writeln ('choose the record');
if a='out' then
if (p>0) and (p<11) then
begin
OutputSt (B[p]);
writeln;
writeln ('Vvedite novuyu komandu');
end
else writeln ('choose the record');
if (a='1') or (a='2') or (a='3') or (a='4') or (a='5') or (a='6') or (a='7') or (a='8')
or (a='9') or (a='10') then
begin
p:=strtoint (a);
writeln ('current record ', p);
end;
if a='help' then
write ('command «new» -redaktirovanie zapisi," out" -vyvod tekuschey zapisi," «-vvod nomera zapisi, «all» -pokazat vse zapisi, «name» -pokazat imena, «group» -pokazat nomera grupp, «mark» -pokazat ocenki, «sub» -pokazat predmety, «q» -vyhod');
if a='name' then
begin
for p:=1 to 10 do
begin
if B[p]. Name<>'' then
writeln ('zapis ', p,' ', B[p]. Name);
end;
end;
if a='group' then
begin
for p:=1 to 10 do
begin
if B[p]. Group<>'' then
writeln ('zapis ', p,' ', B[p]. Group);
end;
end;
if a='mark' then
begin
for p:=1 to 10 do
begin
if B[p]. Mark<>'' then
writeln ('zapis ', p,' ', B[p]. Mark);
end;
end;
if a='sub' then
begin
for p:=1 to 10 do
begin
if B[p]. Subject<>'' then
writeln ('zapis ', p,' ', B[p]. Subject);
end;
end;
if a='all' then
begin
writeln ('Zapis ','Group ','Name ','Subject ','Mark ');
for p:=1 to 10 do
begin
setlength (B[p]. Subject, 13);setlength (B[p].Mark, 13);setlength (B[p].Group, 13);setlength (B[p].Name, 13);
if (B[p]. Subject<>'') or (B[p]. Mark<>'') or (B[p]. Group<>'') or (B[p]. Name<>'') then
writeln ('Zapis ', p,' ', B[p]. Group, B[p].Name, B[p].Subject, B[p].Mark);
end;
end;
until a='q';
writeln ('Chto zh vy nadelali…');
readln;
end.