задачка на одномерный массив
в массиве данных M[R] содержится информация о занятости мест в вагоне. В массиве MI[R] сожержится информация о времени освобождения места в вагоне. Если место r занято, то M[r]=1 а если свободно то M[r]=0
1)определить кол-во свободных мест в вагоне на момент времени
2)организовать заполнение массива M[R] u MI[R] в диалоговом режиме
ребят желательно самым простым способом, а то у преподов возникнет много вопросов на которые я не смогу дать ответ))
заранее благодарен!!
1)определить кол-во свободных мест в вагоне на момент времени
2)организовать заполнение массива M[R] u MI[R] в диалоговом режиме
ребят желательно самым простым способом, а то у преподов возникнет много вопросов на которые я не смогу дать ответ))
заранее благодарен!!
Попробуй... Но результат не обещаю. Возможно, ее придется немного поправить, так как я ее не тестировала (не было возможности). Удачи)
program mesta;
uses crt;
type
mas=array[1..1000] of integer;
var
a,b,t,i,sum:integer;
m, mi:mas;
begin
clrscr;
writeln ('введите количество мест в вагоне');
read (a);
for i:=1 to a do
begin
writeln ('место', i, ' занято? Если да, нажмите 1, если нет, нажмите 0');
read (b);
if b=0 then m:=0
else b=1 then m:=1
else writeln ('неверный ввод');
end;
for i:=1 to a do
begin
writeln ('во сколько освободится', i, ' место? Введите время, отделяя минуты и часы запятой');
read (t);
if ((t>0) and (t<24)) then m:=b
else writeln ('неверный ввод');
end;
{определение занятых мест на момент времени}
writeln ('введите время');
read (t);
if ((t<0) or (t>24)) then writeln ('неверный ввод');
sum:=0;
for i:=1 to a do
if ((mi<=t) and (m=1)) then sum:=sum+1;
writeln ('на момент времени', t, ' в вагоне свободно', sum, ' мест');
repeat until (b<>0)or(b<>1)or(t<0)or(t>24);
end;
program mesta;
uses crt;
type
mas=array[1..1000] of integer;
var
a,b,t,i,sum:integer;
m, mi:mas;
begin
clrscr;
writeln ('введите количество мест в вагоне');
read (a);
for i:=1 to a do
begin
writeln ('место', i, ' занято? Если да, нажмите 1, если нет, нажмите 0');
read (b);
if b=0 then m:=0
else b=1 then m:=1
else writeln ('неверный ввод');
end;
for i:=1 to a do
begin
writeln ('во сколько освободится', i, ' место? Введите время, отделяя минуты и часы запятой');
read (t);
if ((t>0) and (t<24)) then m:=b
else writeln ('неверный ввод');
end;
{определение занятых мест на момент времени}
writeln ('введите время');
read (t);
if ((t<0) or (t>24)) then writeln ('неверный ввод');
sum:=0;
for i:=1 to a do
if ((mi<=t) and (m=1)) then sum:=sum+1;
writeln ('на момент времени', t, ' в вагоне свободно', sum, ' мест');
repeat until (b<>0)or(b<>1)or(t<0)or(t>24);
end;