Лекции Шафеевой / Секретные файлы Шафеевой)) / 2семестр / ZAP2CASE

Program zap2case;
USES CRT; { Ї®¤Є«о祭ЁҐ ¬®¤г«п ‘RT}
type {®ЇаҐ¤Ґ«Ґ­ЁҐ ­®ў®Ј® вЁЇ }
MESTO=(ob,dom);{}
student=record {§ ЇЁбм}
name:string[15];
denRogd: RECORD {ў«®¦Ґ­­ п § ЇЁбм}
data:real; {}
god:word
end;
CASE N:mesto of
dom:(index:word; adres:string) ; {}
ob:(komn:word)
end;
var Zz: ARRAY [1..20] OF student;
s:string;{g:word;}
i,m,j: byte;
BEGIN
CLRSCR; {®зЁбвЄ  нЄа ­ }
writeln('‚‚…„€’… ЉЋ‹€—…‘’‚Ћ ‘’“„…Ќ’Ћ‚');
READln(m);
for i:=1 to m do
with zz[i] do
begin
writeLN('‚‚…„€’… €Њџ ',i,' ‘’“„…Ќ’Ђ');
read(name);
with denrogd do
begin
WRITELN('‚‚…„€’… ¤Ґ­м Ё ¬Ґбпж ஦¤Ґ­Ёп');
readLN(data);
WRITELN('‚‚…„€’… Ј®¤ ஦¤Ґ­Ёп');
readLN(god);
end;
writeln('ўўҐ¤Ё 0-®ЎйҐ¦ЁвЁҐ, 1-¤®¬');
read(j);
n:=mesto(j);
IF n=ob then begin writeln('‚ўҐ¤Ё Є®¬­');
readln(komn)
end
else
begin writeln('ўўҐ¤Ё Ё­¤ҐЄб Ё  ¤аҐб');
readln(index, adres);
end
end;
writeln(' ‚ўҐ¤ЁвҐ NAME ¤«п Ї®ЁбЄ  ');
readln(s);
for i:=1 to m do
if s=zz[i].name then
with zz[i] do
begin
WRITELN(name);
WRITE(' „ в  ஦¤Ґ­Ёп -');
WITH denRogd DO
writeln('Ђ¤аҐб: ',data:5:2,'.',god,' ');
IF n=ob then writeln('Є®¬­-',komn)
else
writeln('Ћ¬бЄ-',index,' ', adres);
WRITELN;
end
END.
{type
Class = (Num, Dat, Str);
Date = record
D, M, Y: Integer;
end;
Facts = record
Name: string[10];
case Kind: Class of
Num: (N: real);
Dat: (D: Date);
Str: (S: string);
end;}
{ ЏpЁ¬Ґp. ђ §а Ў®в вм Їа®Ја ¬¬г д®а¬Ёа®ў ­Ёп бЇЁбЄ  бв㤥­в®ў б
гЄ § ­ЁҐ ¤ в ஦¤Ґ­Ёп, ­®¬Ґа  Є®¬­ вл, Ґб«Ё ¦ЁўҐв ў®ЎйҐ¦ЁвЁЁ,
Ё­¤ҐЄб  Ё  ¤аҐб , Ґб«Ё ў Ћ¬бЄҐ,   в Є¦Ґ ўлў®¤  ᢥ¤Ґ­Ё© ® бв㤥­вҐ
Ї® ҐЈ® €Њ…Ќ€. +}