В программировании операцию "задания" конкретных значений объектам программы называют присваиванием. В Языке Паскаль присваивание начальных значений элементам массива можно производить либо непосредственно, либо в цикле. Непосредственное присваивание используется, если количество таких присваиваний невелико. В этом случае записываются операторы присваивания для каждого элемента массива, которому нужно присвоить значение, например: a[6]:=5; b[4,12]:=11; и т.д. Присваивание в цикле используется, когда количество элеметнов массива велико, а значение для конкретного элемента можно или задать общим алгоритмом, или ввести извне (с клавиатуры или из файла). В этом случае цикл организуется так, чтобы параметры цикла перебрали все необходимые индексы элементов массива. Примеры: for i:=1 to 20 do a[i]:=3*i^2-1;
for i:=1 to m do for j:=1 to n do readln(a[i,j]); Еще пример - заполнение случайными числами в диапазоне (-20..20) Randomize; for i:=1 to m do x[i]:=Random(40)-20;
Var f:text; s:string; i,slo,ks:integer; k:real; begin assign(f,'text.in'); reset(f); while not Eof(f) do read(f,s); close(f); slo:=0; ks:=0; for i:=1 to length(s) do if s[i] in t then inc(slo) else begin; k:=k+slo; inc(ks); slo:=0; end; if s[length(s)] in t then begin; inc(ks); k:=k+slo; end; k:=k/ks; assign(f,'text.out'); rewrite(f); write(f,k); close(f); end.
Пример ввода(text.in): SIMPLE text Пример вывода(text.out): 5
В Языке Паскаль присваивание начальных значений элементам массива можно производить либо непосредственно, либо в цикле.
Непосредственное присваивание используется, если количество таких присваиваний невелико. В этом случае записываются операторы присваивания для каждого элемента массива, которому нужно присвоить значение, например: a[6]:=5; b[4,12]:=11; и т.д.
Присваивание в цикле используется, когда количество элеметнов массива велико, а значение для конкретного элемента можно или задать общим алгоритмом, или ввести извне (с клавиатуры или из файла). В этом случае цикл организуется так, чтобы параметры цикла перебрали все необходимые индексы элементов массива.
Примеры:
for i:=1 to 20 do a[i]:=3*i^2-1;
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
Еще пример - заполнение случайными числами в диапазоне (-20..20)
Randomize;
for i:=1 to m do x[i]:=Random(40)-20;