Деректер қорын жасау үшін ең алдымен мүдделілік туғызған объектілер (мысалы, жеткізушілер, тұтынушылар, кәсіпорындар, қызметкерлер, т. б.) айқындалады, сонан соң әрбір объекті үшін оның өзгешеліктерін сипаттайтын деректердің жиынтығы бөліп көрсетіледі. Мысалы, кәсіпорынның өзгешеліктеріне оның атауы, мекен-жайы, банкідегі шоты, шығаратын өнімінің түрпаты, т. б. жатады.[1]
Const n = 5; m = 5; var a:array[1..n,1..m] of integer; i,j,s:integer; begin //Для теста заполним массив сл.числами for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln;writeln; end; //сумма всех элементов массива for i:=1 to n do for j:=1 to m do s:=s+a[i,j]; writeln('сумма всех элементов массива: ',s); //сумма каждой строки for i:=1 to n do begin s:=0; for j:=1 to m do begin s:=s+a[i,j]; end; writeln ('Строка: ',i,' сумма:',s); end; end.
// с циклом while var s,i:integer; begin i:=100; while i<=999 do begin if i mod 77 = 0 then s:=s+i; i:=i+1; end; writeln('Сумма трехзначных кратных 77: ',s); end.
Деректер қорын жасау үшін ең алдымен мүдделілік туғызған объектілер (мысалы, жеткізушілер, тұтынушылар, кәсіпорындар, қызметкерлер, т. б.) айқындалады, сонан соң әрбір объекті үшін оның өзгешеліктерін сипаттайтын деректердің жиынтығы бөліп көрсетіледі. Мысалы, кәсіпорынның өзгешеліктеріне оның атауы, мекен-жайы, банкідегі шоты, шығаратын өнімінің түрпаты, т. б. жатады.[1]