В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
svetaelia
svetaelia
29.11.2021 11:44 •  Информатика

Грунтовая дорога проходит последовательно через населённые пункты A B C D при этом длина грунтовой дороги. Между А и Б равно 40 км между B и C 25 км и между C и D 10 км между А и дороги нет. Между A и C построили новый асфальт на шоссе длиной 30 км. Оцените минимально возможное время движения велосипедиста. Из пункта А в пункт Б если его скорость по грунтовой дороге 20 км ч по шоссе 30 км ч

Показать ответ
Ответ:
Poniy11
Poniy11
18.09.2022 20:19
Программа рассчитана на то, что на экран выводится самый последний массив с результатами.

uses crt;
const
p=5;
r=5;
s=5;
var a:array[1..p] of integer;
b: array[1..r] of integer;
c: array[1..s] of integer;
m: array[1..3] of integer;
k,l,i,g,j,d,v,n:integer;
begin

readln(l);
  writeln;
 
for i:=1 to p do
readln(a[i]);
   writeln;
  
for j:=1 to r do
readln(b[j]);
     writeln;
    
for g:=1 to s do
readln(c[g]);
     writeln;
    
for i:=1 to p-1 do
repeat
d:=0;
if a[i]>a[i+1] then
begin
d:=1;
a[i]:=a[i]+a[i+1];
a[i+1]:=a[i]-a[i+1];
a[i]:=a[i]-a[i+1];
end;
until d=0;

for j:=1 to r-1 do
repeat
d:=0;
if b[j]>b[j+1] then
begin
d:=1;
b[j]:=b[j]+b[j+1];
b[j+1]:=b[j]-b[j+1];
b[j]:=b[j]-b[j+1];
end;
until d=0;

for g:=1 to s-1 do
repeat
d:=0;
if c[g]>c[g+1] then
begin
d:=1;
c[g]:=c[g]+c[g+1];
c[g+1]:=c[g]-c[g+1];
c[g]:=c[g]-c[g+1];
end;
until d=0;

for i:=1 to p do
if a[i]=l then inc(v);
m[1]:=v;
v:=0;

for j:=1 to r do
if b[j]=l then inc(v);
m[2]:=v;
v:=0;

for g:=1 to s do
if c[g]=l then inc(v);
m[3]:=v;

for n:=1 to 2 do
repeat
d:=0;
if m[n]>m[n+1] then
begin
d:=1;
m[n]:=m[n]+m[n+1];
m[n+1]:=m[n]-m[n+1];
m[n]:=m[n]-m[n+1];
end;
until d=0;

for n:=1 to 3 do
writeln(m[n]);
end.
0,0(0 оценок)
Ответ:
Ksu576
Ksu576
09.02.2021 06:22
Печально, придется придумывать, а фантазия иногда ведет не в ту стпень, но не суть.
Лично мне кажется что неплохо было бы хранить в БД под названием погода информацию относительно погоды, скажем гидромежцентра или как его там а значит объектами будут - температура влажность ветер дождь и тд если бы я ее проектировал то в качестве ключа выбрал бы дату, потому как она явно уникальна и прогнозы идут каждый день
далее успеваемость - допустим успеваемость студента в универе, а значит неплохо бы в качестве объектов задать предметы по которым интересует успеваемость(обычно все) в качестве ключа можно взять любой уникальный идентификатор, хоть серию в паспорте хоть ИНН, но рас уж у нас универ пусть будет номер студенческого билета, или зачетной книжки
и наконец факультативы - нужен перечень всех факультативов(причем не важно посещает все или не посещает ни одного), не слышал чтобы в школах были факультативы, так что предположу что учебное заведение чуть чуть повыше а значит в качестве ключа так же подойдет номер студ билета
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота