Математическая модель (а также программа; зависит от того, что понимать под этапом формализации).
В учебнике выделяют такие этапы решения задачи на компьютере:
Нормальные люди понимают, что после формализации информация должна быть представлена на формальном языке, таких языком может быть как математический, так и язык программирования.
program raf105;
const
n = 5;
var
a:array[1..n] of integer;
x, counter, i: integer;
begin
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
write('Введите значение элемента, который нужно удалить: ');
readln(x);
if counter > 0
then a[i-counter]:= a[i];
if (a[i] = x) and (counter < 1)
then counter:= counter + 1;
end;
writeln('Вывод:');
for i:=1 to n-counter do
writeln(a[i]);
end.
if a[i] = x
Математическая модель (а также программа; зависит от того, что понимать под этапом формализации).
В учебнике выделяют такие этапы решения задачи на компьютере:
Исходные данные (результат - словесная информационная модель)Формализация (математическая модель)Алгоритмизация (алгоритм)Программирование (программа)Отладка, тестирование (уточнение модели)Выполнение расчетов (получение результатов)Нормальные люди понимают, что после формализации информация должна быть представлена на формальном языке, таких языком может быть как математический, так и язык программирования.
program raf105;
const
n = 5;
var
a:array[1..n] of integer;
x, counter, i: integer;
begin
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
write('Введите значение элемента, который нужно удалить: ');
readln(x);
for i:=1 to n do
begin
if counter > 0
then a[i-counter]:= a[i];
if (a[i] = x) and (counter < 1)
then counter:= counter + 1;
end;
writeln('Вывод:');
for i:=1 to n-counter do
writeln(a[i]);
end.
2.program raf105;
const
n = 5;
var
a:array[1..n] of integer;
x, counter, i: integer;
begin
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
write('Введите значение элемента, который нужно удалить: ');
readln(x);
for i:=1 to n do
begin
if counter > 0
then a[i-counter]:= a[i];
if a[i] = x
then counter:= counter + 1;
end;
writeln('Вывод:');
for i:=1 to n-counter do
writeln(a[i]);
end.
Язык PascalABC