Автомат получает на вход четырёхзначное натуральное число и строит новое число по следующему алгоритму:
1. вычисляются суммы первой и второй, второй и третьей и третьей и четвёртой цифр;
2. из полученных сумм отбрасывается наибольшая;
3. остальные суммы записываются в порядке неубывания.
Пример. Исходное число:1284. Суммы: 1 + 2 = 3; 2 + 8 = 10; 8 + 4 = 12. Отбрасывается наибольшая сумма 12. Результат: 310. Укажите наибольшее число, при вводе которых автомат выдаёт значение 1114.
ответ:
алгоритм- это конечная совокупность точно заданных правил решения произвольного класса или набор инструкций, описывающих порядок действий исполнителя для решения некоторой . в старой трактовке вместо слова «порядок» использовалось слово «последовательность», но по мере развития параллельности в работе компьютеров слово «последовательность» стали заменять более общим словом «порядок». независимые инструкции могут выполняться в произвольном порядке, параллельно, если это позволяют используемые исполнители.
ранее в языке писали «алгорифм», сейчас такое написание используется редко, но, тем не менее, имеет место исключение (нормальный алгорифм маркова).
часто в качестве исполнителя выступает компьютер, но понятие алгоритма необязательно относится к компьютерным программам, так, например, чётко описанный рецепт приготовления блюда также является алгоритмом, в таком случае исполнителем является человек (а может быть и некоторый механизм, ткацкий станок, и
можно выделить алгоритмы вычислительные (о них в основном идет далее речь), и . вычислительные по сути преобразуют некоторые начальные данные в выходные, реализуя вычисление некоторой функции. семантика алгоритмов существенным образом может отличаться и сводиться к выдаче необходимых воздействий либо в заданные моменты времени, либо в качестве реакции на внешние события (в этом случае, в отличие от вычислительного алгоритма, может оставаться корректным при бесконечном выполнении).
понятие алгоритма относится к первоначальным, основным, базисным понятиям . вычислительные процессы алгоритмического характера (арифметические действия над целыми числами, нахождение наибольшего общего делителя двух чисел и т. д.) известны человечеству с глубокой древности. однако в явном виде понятие алгоритма сформировалось лишь в начале xx века.
Route = record
station: string[30];
arrival: string[5];
stop: string[5];
cost: real
end;
{ Программа для заполнения данными файла }
{
var
F: file of Route;
r: Route;
begin
writeln('Вводите данные');
writeln('');
Assign(F, 'Route.dat');
Rewrite(F);
with r do
repeat
write('Населенный пункт (*-завершить): ');
readln(station);
if (station <> '*') then
begin
write('Время прибытия чч:мм ');
readln(arrival);
write('Стоянка чч:мм: ');
readln(stop);
write('Стоимость проезда, руб.коп: ');
readln(cost);
write(F, r);
end
until station = '*';
Close(F)
end.
}
{ Программа для работы с заполненным файлом }
function hhmm2Int(s: string): integer;
{переводит время чч:мм в челое число минут}
var
i, j, ierr: integer;
begin
Val(Copy(s, 1, 2), j, ierr);
if ierr = 0 then i := 60 * j else i := 0;
Val(Copy(s, 4, 2), j, ierr);
if ierr = 0 then i := i + j;
Result := i
end;
var
F: file of Route;
F2:Text;
r: Route;
i, ierr, istop, n: integer;
s: string;
cstop: real;
begin
Assign(F, 'Route.dat');
Reset(F);
n := 0;
cstop:=0;
while not Eof(F) do
begin
read(F, r);
istop := hhmm2Int(r.stop);
if istop > 0 then
begin
cstop:=cstop+istop;
n := n + 1
end
end;
cstop := cstop / n;
Reset(F);
Assign(F2,'screen.dat');
Rewrite(F2);
writeln('Населенные пункты, в которых стоянка дольше средней');
writeln(F2,'Населенные пункты, в которых стоянка дольше средней');
writeln('Населенный пункт Прибытие Стоянка,мин Стоимость');
writeln(F2,'Населенный пункт Прибытие Стоянка,мин Стоимость');
with r do
while not Eof(F) do
begin
read(F, r);
istop := hhmm2Int(stop);
if istop > cstop then
begin
writeln(station:18, ' ', arrival, ' ', stop, ' ', cost:7:2);
writeln(F2,station:18, ' ', arrival, ' ', stop, ' ', cost:7:2);
end;
end;
Close(F);
Close(F2)
end.
ВНИМАНИЕ: Прикрепленный файл на самом деле RAR-архив с двумя, используемыми в программе файлами. Нужно его скачать к себе и поменять расширение TXT на RAR, а затем распаковать.