Второй вариант поиска – за один проход по массиву:
MAX:=A[1];
Imax:=1;
MIN:=A[1];
Imin:=1;
FOR I:=1 TO N DO
IF A[I]>max
max:=A[I];
Imax:=I;
ELSE IF A[I]<min
min:=A[I];
Imin:=I;
Program Nom; { что ближе к концу массива }
a:array[1..20] of real;
imax,imin,i,n:integer;
max,min,posl:real;
writeln('vvedite chislo<=20 ');
for i:=1 to n do
writeln(' a[', i, ']=');
readln(a[i]);
max:=a[1];
imax:=1;
min:=a[1];
imin:=1;
for i:=1 to n do
if a[i]>max
max:=a[i];
imax:=i;
else if a[i]<min
min:=a[i];
imin:=i;
if imax>imin
then writeln('maksimalnoe chislo blige k koncy massiva')
else writeln('minimalnoe chislo bli
ge k koncy massiva');
{ удаление максимума сжатием }
A:array [1..25] of integer;
i,k,j,n : integer;
imax, max, r: integer;
writeln('vvedite chislo N<=20 ',n);
for i:=1 to n do
writeln('vvedite element a[', i, ']=');
readln(a[i]);
max:=A[1];
imax:=1;
for i:=1 to n do
if A[i]>max
max:=A[i];
imax:=i;
for i:=imax to n-1 do
A[i]:=A[i+1];
for i:=1 to n do
writeln (‘A[‘ ,I, ‘]=' , A[i]);
{ все положительные элементы – в новый массив }
A, B :array [1..20] of integer;
m,i,k,j,n : integer;
max, r: integer;
writeln('vvedite chislo N<=25 ',n);
for i:=1 to n do
writeln('vvedite element a[', i, ']=');
readln(a[i]);
for i:=1 to n do
if A[i]>0
j:=j+1;
B[j]:=A[i];
for i:=1 to j do
write (B[i],' '); {В КАКОМ ВИДЕ ПЕЧАТАЕТСЯ МАССИВ? }
Далее – рассмотрение меню.
Современное человеческое общество живет в период, характеризующийся небывалым увеличением информационных потоков. Наибольший рост объема информатизации наблюдается в промышленности, торговле, финансово-банковской сфере. Существенно изменилась роль информации в общественной жизни. Она приобрела преобразующий, определяющий характер.
Информационное сопровождение производства и бизнеса стало необходимым условием существования и процветания государства. Да и для современных микроэкономических структур обладание информацией не менее важно, так как неопределенность в окружающей среде возросла в сто крат, что приводит нередко к сбоям в деятельности фирм, предприятий, корпораций, банков. Необоснованное принятие решений на любом уровне руководства может обернуться для хозяйствующих объектов непоправимыми отрицательными последствиями.
Резко возрастающий с середины ХХ века объем информации поставил перед обществом задачу ‑ найти способы и средства для оперативной обработки и передачи информации, поскольку только на основе владения достоверной информацией возможно рациональное управление любой сферой деятельности. Качественно новое обслуживание информационных процессов человеческой деятельности связано с использованием современной электронно-вычислительной техники, систем телекоммуникации, созданием сетей ЭВМ.
Развитие вычислительной техники и ее применение для переработки информации привело к появлению новой науки ‑ информатики.
Термин «информатика» возник в 60-х годах во Франции для названия области науки, занимающейся автоматизированной обработкой информации с помощью ЭВМ. Слово информатика происходит от французского слова Informatique, образованного в результате объединения терминов Informacion (информация) Automatique (автоматика), что и выражает ее суть как науки об автоматизированной обработке информации.
ИНФОРМАТИКА ‑ наука о методах организации и обработки информации с помощью ЭВМ и других технических средств.
Информатика представляет собой единство различных отраслей науки, техники и производства, которые связаны с автоматизированной обработкой информации.
Предмет информатики составляют следующие понятия:
· аппаратное обеспечение средств вычислительной техники;
· программное обеспечение средств вычислительной техники;
· алгоритмические средства.
Наука информатика создает и совершенствует информационные технологии, т.е. методологии организации информационной деятельности с использованием технических устройств и информационную технологию эффективного применения комплекса технических средств для решения конкретных задач.
Понятие «информация» произошло от латинского слова informatio, что означает – сообщение о каком-либо факте, событии, явлении.
В широком смысле ИНФОРМАЦИЯ определяется как сведения о той или иной стороне материального мира и происходящих в нем процессах.
Информация ‑ отражение предметного мира, выражаемое в виде сигналов и знаков. Сигналы отражают физические характеристики объектов, а через знаки происходит восприятие предметного мира человеком.
Информация очень разнообразна по содержанию и подразделяется по виду обслуживаемой ею человеческой деятельности на: научно-техническую, производственную, управленческую, правовую, экономическую и т.п. Каждый из видов информации имеет свои формы представления, технологии обработки, требования к достоверности и оперативности.
Информация представленная в формализованном виде, т.е. в виде, позволяющем автоматизировать ее сбор, хранение и дальнейшую обработку в ЭВМ, получила название данные.
Информация, которая обслуживает процессы производства, распределения и потребления материальных благ и обеспечивает решение задач организационно-экономического управления хозяйством, называется управленческой.
Важнейшей составляющей управленческой информации является экономическая информация.
Экономическая информация – совокупность различных сведений экономического характера, которые можно фиксировать, передавать, обрабатывать, хранить и использовать в процессе планирования, учета, контроля, анализа на всех уровнях отраслевого и регионального управления народным хозяйством.
Экономическая информация включает сведения о составе трудовых, материальных и денежных ресурсов и состоянии объектов управления на определенный момент времени. Она отражает деятельность предприятий и организаций посредством натуральных, стоимостных и других показателей.
Для экономической информации характерны:
· большие объемы;
· многократное повторение циклов ее получения и преобразования в установленные временные периоды (месяц, квартал, год и т. д.);
· многообразие ее источников и потребителей;
· значительный удельный вес логических операций при ее обработке.
Эти свойства экономической информации предопределяют научно-техническую необходимость и экономическую целесообразность использования средств вычислительной техники при ее сборе, накоплении, передаче и обработке.
Система методов и способов сбора, накопления, хранения, обработки и выдачи информации для получения информации нового качества о состоянии объекта, процесса или явления называется ИНФОРМАЦИОННОЙ ТЕХНОЛОГИЕЙ.
Курс "Информатика" включает в себя изучение основ информационных технологий, ЭВМ и вычислительных систем, основных этапов автоматизации решения задач на ЭВМ, программного обеспечения ЭВМ и СУБД.
Предмет изучения дисциплины: операционная система Windows, текстовый процессор Word, табличный процессор Excel. Объект изучения ‑ информационные технологии.
