CLS DIM D(10) DATA 12,10,11,34,3,3,2,3,4,5 S = 0 FOR i = 1 TO 10 READ D(i) IF i / 2 = i \ 2 THEN ELSE S = S + D(i) END IF PRINT D(i), NEXT i PRINT "S="; S
Var ar1:array of real;ar2:array of real; n,i,maxi1,maxi2,seed:integer; max1,max2:real;
function gener(var ar:array of real;i:integer; var seed:integer):real; begin; randomize(seed); {В этой задаче я впервые столкнулся с неслучайным random(). Чтобы она генерировала новый ряд чисел, измените значение seed в начале основной программы} seed:=random(-10,10); ar[i]:=random(-10,10); gener:=ar[i]; end;
procedure maxS(ar:array of real;var maxi,n:integer; var max:real); var i:integer; begin; max:=-2147483648; for i:=1 to n do if max<ar[i] then begin; max:=ar[i]; maxi:=i; end; for i:=maxi+1 to n do ar[i]:=0.5; end;
begin; randomize; readln(n); setlength(ar1,n+1); setlength(ar2,n+1); writeln('Array A:'); for i:=1 to n do write(gener(ar1,i,seed):4); seed:=random(-10,10); writeln; writeln('Array B:'); for i:=1 to n do write(gener(ar2,i,seed):4); maxS(ar1,maxi1,n,max1); maxS(ar2,maxi2,n,max2); writeln; writeln('Final array A:'); for i:=1 to n do write(ar1[i]:4); writeln; writeln('Final array B:'); for i:=1 to n do write(ar2[i]:4); end.
По реализации интерфейса пользователя различают неграфические и графические операционные системы. В однозадачных неграфических ОС пользователь в один момент времени работает с одной конкретной программой. Неграфические операционные системы реализуют интерфейс командной строки. Основным устройством управления в данном случае является клавиатура. Управляющие команды вводят в поле командной строки, где их можно и редактировать. Исполнение команды начинается после ее утверждения, например нажатием клавиши ENTER. Пример: МS-DOS, МSХ. Многозадачные графические ОС позволяют параллельно работать с несколькими программами, и количество программ зависит от мощности системы. Графические операционные системы реализуют сложный тип интерфейса, в котором в качестве органа управления кроме клавиатуры может использоваться манипулятор координатного типа (мышь или тачпад). Работа с графической ОС основана на взаимодействии активных и пассивных экранных элементов управления. В качестве активного элемента управления – графический объект, перемещение которого на экране синхронизировано с перемещением мыши. В качестве пассивных элементов управления - графические элементы управления приложениями (экранные кнопки, значки, переключатели, флажки, раскрывающиеся списки, строки меню и многие другие). Примеры: Мiсrоsоft Windows, UNIX, OS/2, Linux, Mac OS.
DIM D(10)
DATA 12,10,11,34,3,3,2,3,4,5
S = 0
FOR i = 1 TO 10
READ D(i)
IF i / 2 = i \ 2 THEN
ELSE
S = S + D(i)
END IF
PRINT D(i),
NEXT i
PRINT "S="; S