Var N1:array[1..10] of integer; N2:array[1..15] of integer; R1:array[1..10] of integer; R2:array[1..15] of integer; min1, min2, max1, max2, i:integer; R1min, R2min, R1max, R2max:integer; begin min1:=500; min2:=500; max1:=0; max2:=0; randomize; for i:=1 to 10 do N1[i]:=random(900)+100; for i:=1 to 15 do N2[i]:=random(900)+100; for i:=1 to 10 do R1[i]:=random(500); for i:=1 to 15 do R2[i]:=random(500); for i:=1 to 10 do if R1[i]<min1 then begin min1:=R1[i]; R1min:=i; end else begin if R1[i]>max1 then begin max1:=R1[i]; R1max:=i; end; end; for i:=1 to 15 do if R2[i]<min2 then begin min2:=R2[i]; R2min:=i; end else begin if R2[i]>max2 then begin max2:=R2[i]; R2max:=i; end; end; writeln('v 1 taxoparke min ', N1[R1min]); writeln('vo 2 taxoparke min ', N2[R2min]); writeln('v 1 taxoparke max ', N1[R1max]); writeln('vo 2 taxoparke max ', N2[R2max]); write('N1 '); for i:=1 to 10 do write(N1[i], ' '); writeln; write('R1 '); for i:=1 to 10 do write(R1[i]:3, ' '); writeln; write('N2 '); for i:=1 to 15 do write(N2[i], ' '); writeln; write('R1 '); for i:=1 to 15 do write(N1[i]:3, ' '); writeln; end.
На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;
N2:array[1..15] of integer;
R1:array[1..10] of integer;
R2:array[1..15] of integer;
min1, min2, max1, max2, i:integer;
R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
if R1[i]<min1 then
begin
min1:=R1[i];
R1min:=i;
end else
begin
if R1[i]>max1 then
begin
max1:=R1[i];
R1max:=i;
end;
end;
for i:=1 to 15 do
if R2[i]<min2 then
begin
min2:=R2[i];
R2min:=i;
end else
begin
if R2[i]>max2 then
begin
max2:=R2[i];
R2max:=i;
end;
end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.
Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;