CONST max = 11; TYPE vector = array[1..max]of integer; VAR M, I, K:vector; j:byte;
{ Массивы I,K предварительно реорганизовать следующим образом: на первом месте, в данных массивах должен стоять элемент с минимальным значением} procedure reorganize_vector(var vt:vector); var i, j:byte; min, tmp:integer;
begin // вначале ищем минимальный элемент и запоминаем его место в массиве j:=1;// min:=vt[1];//назначаем наименьшим - первый элемент for i:=2 to max do if (min>vt[i]) then begin min:=vt[i]; j:=i;//индекс наименьшего числа end;
// теперь меняем местами первый элемент массива с наименьшим числом tmp := vt[1];//запоминаем значение первого элемента vt[1] := min;//меняем его на наименьший элемент vt[j] := tmp;//на место наименьшего ставим значение из первого элемента end;
// процедура для вывода массива на экран procedure print_vector(var vt:vector); var j:byte; begin for j:=1 to max do write(vt[j]:6); writeln(' '); end;
BEGIN writeln('Дано:');
//заполняем массивы случаынйми данными randomize; for j:=1 to max do begin I[j]:=random(-128,127); K[j]:=random(-128,127); end;
//выводим их на экран write('массив I[',max,']: '); print_vector(I); write('массив K[',max,']: '); print_vector(K);
writeln(' '); writeln('Реорганизовать массивы так, чтобы на первом месте '); writeln('должен стоять элемент с минимальным значением');
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt,graphABC;
var h,c,r1,r2,r3,i,x1,y1,x2,y2:integer;
u:real;
begin
repeat
write('Введите время в часах, от 0 до 24 кратное 3 h=');
readln(h);
until (h in [0..24])and(h mod 3=0);
setwindowsize(400,400);
c:=200;
r1:=c-30;
r2:=r1-40;
r3:=r1+20;
centerwindow;
clrscr;
hidecursor;
circle(c,c,r1);
//u:=pi/2-pi/6;
for i:=1 to 12 do
begin
u:=-i*pi/6+pi/2;
x1:=c+round(r1*cos(u));
y1:=c-round(r1*sin(u));
setbrushcolor(clBlack);
setbrushstyle(bsSolid);
circle(x1,y1,2);
x2:=c+round(r3*cos(u));
y2:=c-round(r3*sin(u));
u:=u-pi/6 ;
setbrushstyle(bsClear);
textout(x2-3,y2-5,inttostr(i));
end;
setpenwidth(3);
h:=h mod 24 mod 12;
u:=-h*pi/6+pi/2;
line(c,c,c+round(r2*cos(u)),c-round(r2*sin(u)));
end.