 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Завдання 1. Накопичення суми елементів масиву
| АЛГ сум1 (ціл n, дійсн таб A[1:n], дійсн S) АРГ n, A РЕЗ S ПОЧ цілий і S:=0 для і від 1 до n пц S:=S+A[i] кц ДРУКУВАТИ S КІН | АЛГ сум2 (цілий m, n, дійсн таб A[1:m, 1:n], дійсн S) АРГ m, n, A РЕЗ S ПОЧ цілий i, j S:=0 для і від 1 до m пц для j від 1 до n пц S:=S+A[i, j] кц кц ДРУКУВАТИ S КІН |
Перед циклом (циклами) комірка S обнуляється, потім у циклі (циклах) команда присвоювання S:=S+A[i] (S:=S+A[i, j] виконує накопичення суми елементів масиву.
Алгоритм мовою Паскаль:
| Program Sum1; Const n=30; var M:array[1..n] of real; i:word; a:real; begin S:=0; for i:=1 to n do S:=S+M[i]; writeln (‘S=’, S:8:2); end. | Program Sum2; Const n=15; k=10; var M: array[1..n, 1..k] of real; i, j: word; S:real; begin S:=0; for i:=1 to n do for j:=1 to k do S:=S+M[i, j]; writeln (‘S+’, S:8:2); end. |
Завдання 2. Обнуління елементів масиву
| АЛГ 131 (ціл n, дійсн Таб A[1:n]) АРГ n, A РЕЗ А ПОЧ ціл і для і від1 до n пц A[i]:=1 кц КІН | АЛГ 132 (ціл m, n, дійсн Таб A[1:m, 1:n]) АРГm, n, A РЕЗ А ПОЧ цілi, j для і від 1 до m пц для j від 1 до n пц A[i, j]:=0 кц кц КІН |
У ЦИКЛІ (ЦИКЛАХ) КОМАНДА ПРИСВОЮВАННЯ A[i]:=0 (A[i, j]:=0) ВИКОНУЄ ОБНУЛІННЯ ЕЛЕМЕНТІВ МАСИВУ!
Алгоритми мовою Паскаль:
| Program Zero1; Const n=50; var M:array[1..n] of real; i: word; begin for i:=1 to n do M[i]:=0 end. | Program Zero2; Const n=20; k=10; var M:array[1..n, 1..k] of real; i, j:word; begin for i:=1 to n do for j:=1 to k do M[i, j]:=0 end. |
Завдання 3. Копіювання
Створюється дублікат (копія) вихідного масиву.
| АЛГ К1 (ціл n, дійсн Таб A[1:n], B[1:n]) АРГ n, A, B РЕЗ В ПОЧ ціл і для і від 1 до n пц B[i]:=A[i] кц КІН | АЛГ К2 (ціл m, n, дійсн Таб A[1:m, 1:n], B[1:m, 1:n]) АРГ m, n, A, B РЕЗ В ПОЧ ціл і, j для і від 1 до m пц для j від 1 до n пц B[і, j]:=A[і, j] кц кц КІН |
Алгоритми мовою Паскаль:
| Program Copy1; Const n=30; varA, B:array[1..n] of real; i: word; begin for i:=1 to n do B[i]:=A[i]; end. | Program Copy2; Const n=20; k=15; var A, B:array[1..n, 1..k] of real; i, j:word; begin for i:=1 to n do for j:=1 to k do B[i, j]:=A[i, j]; end. |
У циклі (циклах) команда присвоювання B[i]:=A[i] (B[i, j]:=A[i, j]) виконує копіювання елементів з масиву А в масив В.
У МОВІ ПАСКАЛЬ МОЖНА ПРИСВОЮВАТИ МАСИВИ ПОВНІСТЮ, АЛЕ НЕ ПОЕЛЕМЕНТНО, ЯКЩО ВОНИ ІДЕНТИЧНІ. ТОБТО МОЖНА НАПИСАТИ ЗАМІСТЬ ЦИКЛУ (ЦИКЛІВ): В:=А, ЯКЩО МАСИВИ А ТА В МАЮТЬ ОДНАКОВИЙ ТИП!
Завдання 4. Переворот масиву з виведенням на екран.
| АЛГ Обр1 (ціл n, дійсн Таб A[1:n], B[1:n]) АРГ n, A РЕЗ В ПОЧ ціл і для і від 1 до n пц B[i]:=A[n+1 – i] ДРУКУВАТИ B[i] кц КІН | АЛГ Обр2 (ціл m, n, дійсн Таб A[1:m, 1:n], B[1:m, 1:n]) АРГ m, n, A РЕЗ В ПОЧ ціл і, j для і від 1 до m пц дляj від 1 до n пц B[i, j]:=A[I, n+1 – j] ДРУКУВАТИ B[i, j] кц кц КІН |
У циклі(ах) команда B[i]:=A[n+1 – i], (B[i, j]:=A[i, n+1 – j]) виконує перестановку елементів масиву з кінця на початок.
Переворот масиву мовою Паскаль:
| Program Perevorot1; Const n=30; var A, B:array[1..n] of real; i:word; begin for i:=1 to n do begin B[i]:=A[n+1 – i] write(B[i]:8:2); end; end. | Program Perevorot2; Const n=20; k=12; var A, B:array[1..n, 1..k] of real; i, j:word; begin for i:=1 to n do begin for j:=1 to k do begin B[I, j]:=A[I, n+1 – j]; write(B[I, j]:8:2); end; writeln; end; end. |
Поиск по сайту: