48236 (566497), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

writeln ('Wwedite kolichestwo giwotnih 1 zooparka:');

readln(v);

writeln ('Wwedite kolichestwo giwotnih 2 zooparka:');

readln(w);

write('Wwedite giwotnih 1 zooparka ');

writeln(',w konce nagat Enter:');

for k:=1 to v do

begin

readln (zoopark1[k]);

end;

write('Wwedite giwotnih 2 zooparka ');

writeln(',w konce nagat Enter:');

for i:=1 to w do

begin

readln (zoopark2[i]);

end;

for i:=1 to v do

zpark1[i] :=zoopark1[i];

for i:=1 to w do

zpark2[i] :=zoopark2[i];

menu:

writeln ('Wwesti nomer operacii:');

writeln ('1->>Peresechenie');

writeln ('2->>Obedinenie');

writeln ('3->>Simmetricheska raznost');

writeln ('4->>Raznost');

writeln ('5->>Dekartowoe proizwedenie');

writeln ('6->>Wihod');

writeln ('Wi Wibrali:');

readln (wiborka);

case wiborka of

'1': peresechenie;

'2': obedinenie;

'3': simmetrichnaya_raznost;

'4': raznost;

'5': dekartovoe_proizvedenie;

'6': exit;

end;

readln;

clrscr;

for i:=1 to v*w do

rezultat[i]:= ' ';

for i:=1 to v do

begin

zoopark1[i]:= zpark1[i];

end;

for i:=1 to w do

begin

zoopark2[i]:=zpark2[i];

end;

goto menu;

end.

Характеристики

Список файлов лабораторной работы