Лабораторная работа №12_1
uses crt;
type
sl=record
d: string[50];
end;
var Z: array[1..20] of sl; st:string;
i,n,c:byte; s:char;
label l,l1;
begin clrscr; repeat c:=0;
z[1].d:='рыба - fish';
z[2].d:='собака - dog';
z[3].d:='кошка - cat';
z[4].d:='гусь - goose';
z[5].d:='медведь - bear';
z[6].d:='аллигатор - alligator';
z[7].d:='сова - owl';
z[8].d:='паук - spider';
z[9].d:='черепаха - turtle';
z[10].d:='морж - walrus';
z[11].d:='корова - cow';
z[12].d:='овца - sheep';
z[13].d:='лошадь - horse';
z[14].d:='петух - roster';
z[15].d:='коза - goat';
writeln('Введите слово');
readln(st);
for i:=1 to 35 do begin
c:=pos(st,z[i].d);
if c>0 then begin writeln(z[i].d); goto l1; end;
END; l1:
if c=0 then writeln('нет в словаре');
writeln('Хотите пополнить словарь?');
writeln('Y - да; N - нет '); i:=15;
s:=readkey; if s='y' then
repeat clrscr; i:=i+1;
readln(z[i].d);
writeln('Для выхода нажмите Esc');
n:=ord(readkey);
until n=27;
writeln('Если хотите выйти из программы нажмите Esc'); n:=ord(readkey);
until n=27;
end.
Лабораторная работа №12_2
uses crt;
type
sl=record
d: string[50];
end;
var Z: array[1..20] of sl; st:string;
i,n,c:byte; s:char; f1,f2:text;
label l,l1;
begin clrscr; repeat c:=0;
assign(f1,'text1.txt');
assign(f2,'text2.txt');
reset(f1); reset(f2);
for i:=1 to 15 do begin
readln(f1,z[i].d);
end; close(f1);
for i:=15 to 35 do begin
readln(f2,z[i].d); end; close(f2);
writeln('Введите слово');
readln(st);
for i:=1 to 35 do begin
c:=pos(st,z[i].d);
if c>0 then begin writeln(z[i].d); goto l1; end;
END; l1:
if c=0 then writeln('нет в словаре');
writeln('Хотите пополнить словарь?');
writeln('Y - да; N - нет '); i:=15; rewrite(f2);
s:=readkey; if s='y' then
repeat clrscr; i:=i+1; readln(z[i].d); writeln(f2,z[i].d); writeln('Для выхода нажмите Esc');
n:=ord(readkey);
until n=27;
writeln('Если хотите выйти из программы нажмите Esc'); n:=ord(readkey); close(f2);
until n=27;
end.
Лабораторная работа №13
Uses Crt, Graph;
Type
MN=set of 'А'..'Я';
Var
m1, m2, R,s: MN;
i,n,m: byte; z,x,y:char;
BEGIN clrscr; m1:=[]; m2:=[];
writeln('Введи 2 множества по 4 буквы по 2 буквы в строке'); for i:=1 to 4 do
begin
read(x); READ(Y);
m1 := m1 + [x];
m2 := m2 + [y];
end;
R:= m1-m2; s:=m1+m2;
if R<=m1 then writeln('Разность входит в m1');
if NOT(R<=m2) then writeln('Разность не входит в m2');
if s<=m1 then writeln('Сумма входит в m1');
if NOT(s<=m2) then writeln('Сумма не входит в m2');
if m1<=R then writeln('m1 входит в разность');
if NOT(m2<=r) then writeln('m2 не входит в разность');
if m1<=s then writeln('m1 входит в сумму');
if NOT(m2<=s) then writeln('m2 не входит в сумму');
if m1=m2 then writeln('Множества равны');
n:=0; m:=0;
for i:=128 to 159 do begin
if chr(i) in m1 then BEGIN writeln('Буква',ord(i),'входит в m1'); n:=n+1; end; if chr(i) in m2 then begin writeln('Буква',ord(i),'входит в m2'); m:=m+1; end;
end;
writeln('В m1',n,'прописных букв');
writeln('В m2',m,'прописных букв');
readkey
END.
Лабораторная работа №14_1
uses crt,r_pos;
var
j,v,z,m:real;
i,n:integer;
begin clrscr;
writeln('Массив A (Х)');
vv(a); SrGeom(а);
writeln('SrGeom=', m:5:2);
writeln('Массив B (F1)');
vv(b); SrGeom(а);
writeln('SrGeom=', m:5:2);
writeln('Массив C (F2)');
vv(c); SrGeom(а);
writeln('SrGeom=', m:5:2);
readkey;
end.
Лабораторная работа №14_2
uses crt,h_pos;
begin
clrscr;
writeln('Массив A1');
dk(a);
vv(ak1); writeln('Массив A2'); vv(ak2);
writeln('Массив B1');
dk(b);
vv(ak1); writeln('Массив B2'); vv(ak2);
readkey;
end.
Лабораторная работа №15_1
uses crt;
Type
sv =^zv;
Zv = record
info: char;
next: sv
end;
Var
P , t : sv; sym: char; k: integer;
BEGIN
Writeln('Введи первый символ '); read(sym);
new(p);
p^.info:=sym;
p^.next:=nil;
t:=p;
Write('Введи остальные символы и точку '); while sym<>'.' do
begin
read(sym);
new(t^.next);
t:=t^.next;
t^.info:=sym;
t^.next:=nil;
end;
k:=0; t:=p;
while t<>nil do
begin
if (Ord(t^.info) mod 2=0)and(t^.info>='1')AND(t^.info<='9')
then k:=K+1;
t:=t^.next
end;
Writeln('Четных чисел в строке - ',k);
Writeln; readкey END.