Қабылдау әдісі бойынша:
Көрнекілік - көру органдарымен қабылданады.
Дыбыс - есту органдарымен қабылданады.
Тактильді - сезімтал рецепторлармен қабылданады.
Olfactory - иісті рецепторлар қабылдаған.
Дәмі - дәмдік бүршіктер арқылы қабылданады.
Таныстыру формасына сәйкес:
Мәтін - тіл таңбаларын көрсетуге арналған таңбалар түрінде беріледі.
Сандық - математикалық әрекеттерді білдіретін сандар мен белгілер түрінде.
Графикалық - кескін, нысан, графика түрінде.
Дыбыс - ауызша немесе дыбыстық жолмен тілдік токендерді жазу және беру түрінде.
Бейне ақпарат - бейнежазба түрінде беріледі.
Кездесу бойынша:
Бұқаралық ақпарат - тривиалды ақпараттан тұрады және қоғамның көпшілігіне түсінікті ұғымдардың жиынтығымен жұмыс істейді.
Арнайы - қолданылған кезде ақпараттың көп бөлігі түсінбеуі мүмкін, бірақ таралған әлеуметтік топта қажет және түсінікті ақпарат берілетін белгілі бір тұжырымдамалар жиынтығы бар.
Құпия - адамдардың тар шеңберіне және жабық (қорғалған) арналар арқылы беріледі.
Жеке (жеке) - популяциядағы әлеуметтік мәртебе мен әлеуметтік өзара әрекеттесудің түрлерін анықтайтын жеке тұлға туралы ақпарат жиынтығы.
Мәні бойынша:
Нақты - белгілі бір уақытта құнды ақпарат.
Сенімді - сенімді көздерден бұрмаламай алынған ақпарат.
Айқын - ақпарат көзделетін адамға түсінікті тілде беріледі.
Толық - дұрыс шешім қабылдауға немесе түсінуге жеткілікті ақпарат.
Пайдалы - ақпараттың пайдалылығын ақпарат алу субъектісі оны пайдалану мүмкіндіктерінің көлеміне байланысты анықтайды.
Шындығында:
Рас
Жалған.
program cikli;
unit math;
var
i,n,s,p:integer;
a:array[1..20]of integer;
begin
writeln('Исходный массив: ');
for i:=1 to 20 do begin
a[i]:=RandomRange(1,20);
writeln(' Элемент ',i,' = ',a[i]);
end;
writeln('Сумму и произведения скольки первых чисел вы хотите посчитать? ');
readln(n);
s:=0;p:=1;
//цикл с параметром
For i:=1 to n do begin
s:=s+a[i];
p:=p*a[i];
end;
writeln('Цикл с параметром');
writeln('Сумма первых ',n,' чисел = ',s);
writeln('Произведения первых ',n,'чисел = ',p);
//цикл с предусловием
i:=1;p:=1;s:=0;
while i<>n do begin
s:=s+a[i];
p:=p*a[i];
i:=i+1;
end;
writeln('Цикл с предусловием');
writeln('Сумма первых ',n,' чисел = ',s);
writeln('Произведения первых ',n,'чисел = ',p);
//цикл с постусловием
i:=0;s:=0;p:=1;
repeat
i:=i+1;
s:=s+a[i];
p:=p*a[i];
until i=n;
writeln('Цикл с постусловием');
writeln('Сумма первых ',n,' чисел = ',s);
writeln('Произведения первых ',n,'чисел = ',p);
End.
