Электронные калькуляторы – обработка числовой информации- Текстовые редакторы – программы для создания текстовых документов - Word (Microsoft)- Электронные таблицы – программы для хранения данных в табличной форме и работы с этими данными – вычислений, создания диаграмм, красиво оформленных отчетов и тд. Самая известная электронная таблица – Excel (Microsoft)- Графические редакторы - для создания и обработки графических изображений (Paint)- Программы разработки презентаций – содержат текст, изображения, анимацию и звук. например- Power Point (Microsoft- Звуковые редакторы – обработка звука- Мультимедиа проигрыватели – звук, анимация, видео- Системы управления базами данных (СУБД) – для хранения очень больших объемов данных, имеющих сложную структуру связей и ссылок. Примером СУБД – является Access (Microsoft)- Интегрированные пользовательские системы – включают в себя несколько прикладных программ разного назначения. Пригодны для всех этапов серьезной деятельности. Наиболее распространенные в мире интегрированные системы – Office и Works (Microsoft)- Коммуникационные программы – обмен информации между компьютерами: для работы с электронной почтой, общения в Интернете.- Компьютерные игры – логические, стратегические или имитаторы-тренажеры- Обучающие программы – электронные учебники, репетиторы, тесты<span>- <u>Архиваторы</u> - программы, которые используют для уменьшения объёма файла. Степень сжатия зависит от типа файла и программы-архиватора. Для обращения к сжатому файлу, его необходимо распаковать</span>
В программе генерируются только убывающие последовательности (a[i]:=-i+random()+20;). Можно при желании массив вводить с клавиатуры.
const n=15;
var a:array[1..n] of real;
i:integer; b:boolean;
begin
Randomize;
for i:=1 to n do begin
a[i]:=-i+random()+20;
write(a[i]:5:2,' ');
end;
writeln;
b:=true;
for i:=1 to n-1 do
if a[i+1]>=a[i] then b:=false;
if b
then
begin
writeln('Последовательность убывающая');
writeln('p = ',a[n]*a[n div 2+1]:5:2);
end
else writeln('Последовательность не убывающая')
end.
Пример:
19.02 18.28 17.91 16.67 15.03 14.68 13.10 12.86 11.91 10.19 9.66 8.35 7.37 6.55 5.20
Последовательность убывающая
p = 66.86
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.