Автор: Пользователь скрыл имя, 30 Апреля 2013 в 13:23, контрольная работа
Составить программу для нахождения минимального и максимального элементов массива, а также индексов этих элементов. Ранжировать (упорядочить) одномерный массив по заданному признаку.
(9,56; -4,6; -12,45; 0,45; 98; 233; 5,09; -5,1; 0,004) по убыванию
1.Контрольное задание №7 3
2.Контрольное задание №8 6
3.Контрольное задание №9 8
4.Контрольное задание №10 11
5.Контрольное задание №11 14
reset(f);
d:=0; k:=1;
while not eof(f) do
begin
read(f,p);
write(c,'[',k:2,']=',p:6:2,' ');
d:=d+1;k:=k+1;
if d=5 then
begin
writeln;d:=0;
end;
end;
close(f);
end;
end.
Unit Mod3;
INTERFACE
Procedure Sort_v(k_p:integer; n:integer);
Procedure Sort_u(k_p:integer; n:integer);
IMPLEMENTATION
{Сортировка массива по возрастанию}
Procedure Sort_v(k_p:integer; n:integer);
var
i,j:integer;
c:char;
p,max:real;
v:array [1..35] of real;
f:file of real;
begin
if k_p=1 then
begin
c:='A';
assign(f,'M1.txt');
end
else
begin
c:='B';
assign(f,'M2.txt');
end;
reset(f);
for i:=1 to n do
begin
read(f,p);
v[i]:=p;
end;
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if v[j]<v[i] then
begin
max:=v[j]; v[j]:=v[i]; v[i]:=max;
end;
rewrite(f);
for i:=1 to n do
write(f,v[i]);
close(f);
end;
{Сортировка массива по убыванию}
Procedure Sort_u(k_p:integer; n:integer);
var
i,j:integer;
c:char;
p,min:real;
v:array [1..35] of real;
f:file of real;
begin
if k_p=1 then
begin
c:='A';
assign(f,'M1.txt');
end
else
begin
c:='B';
assign(f,'M2.txt');
end;
reset(f);
for i:=1 to n do
begin
read(f,p);
v[i]:=p;
end;
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if v[j]>v[i] then
begin
min:=v[j]; v[j]:=v[i]; v[i]:=min;
end;
rewrite(f);
for i:=1 to n do
write(f,v[i]);
close(f);
end;
end.
Unit Mod4;
Interface
Procedure Pec2(k_p:integer; n:integer);
IMPLEMENTATION
{ Процедура печати массива в 6 строк}
Procedure Pec2(k_p:integer; n:integer);
var i,j,d,k,i1:integer;
f: file of real;
c:char;
m: array [1..35] of real;
p:real;
begin
if k_p=1 then
begin
writeln('Отсортированный массив A');
c:='A';
assign(f,'M1.txt');
end
else
begin
writeln('Отсортированный массив B');
c:='B';
assign(f,'M2.txt');
end;
for j:=1 to 3 do
begin
i:=j-1; reset(f);
while i<n do
begin
seek(f,i);
read(f,p);
write(c,'[',i+1:2,']=',p:6:2,' ');
i:=i+6;
end;
writeln;
close(f);
end;
end;
end.
Результат выполнения программы