Задача про пассажиров

const mm=9;//обьявляем константу
type
mat=record
q,q1:array[0..10] of integer;
w,w1:array[0..10] of real;
min:integer;
end;
var m:mat;
i, j, k: integer;
s:real;
count:integer;
number:real;
c:integer;
begin
m.min:=30;
Randomize;
for i:=0 to 10 do//заполняем массивы
begin
m.q[i]:=random(10);
if m.q[i]=0 then m.q[i]:=i+1;
m.w[i]:=0.4*random(10);
if m.w[i]=0 then m.w[i]:=(i+1)*0.4;
write(m.q[i]);
writeln(' ',m.w[i]);
end;
writeln('--------------');
Writeln('Итог');
for i := 0 to mm-1 do
for j := 0 to mm-i do
if m.q[j] > m.q[j+1] then begin //сортируем массив методом пузырька
k:= m.q[j];
m.q[j] := m.q[j+1];
m.q[j+1] := k;
s := m.w[j]; 
m.w[j] := m.w[j+1];
m.w[j+1] := s;
end;
for i:=0 to 10 do
begin
writeln(m.q[i],' ',m.w[i]);//выводим отсортированный массив
end;
For i:=0 to 10 do begin
For K:=i+1 to 10 do begin
if (m.q[i]=m.q[k]) and (abs(m.w[i]-m.w[k])<=0.5) then inc(count);//ну тут все понятно
end;
end;
if count<>0 then writeln('Есть 2 пассажира!','Совпадений: ',count) else writeln('Пассажиров не найдено');
writeln('Введите свое число,если не хотите,то введите 0');
Readln(number);
if number<>0 then
For i:=0 to 10 do 
begin
if number=m.w[i] then inc(c);//поиск по введенному числу
if number=m.q[i] then inc(c); 
end;
if number<>0 then writeln('Совпадений по введенному числу: ',c);
end.
Теги:
begin, writeln, count, integer, random, array, пассажира, Writeln, write, const, record, type, Randomize
Добавлено: 17 Мая 2015 18:23:28 Добавил: Илья Добряк Нравится 0
Добавить
Комментарии:
Нету комментариев для вывода...