Анализ и проектирование
If i+j=n+1 then a: =1 else a: =0; Writeln ('ishodnii massiv'); Var a: array of integer; B: array of integer; For j:=1 to n do. For j:=1 to n do. For j:=1 to n do. For i:=1 to n do. For i:=1 to n do. For i:=1 to n do. N, i, j: integer; Write (a: 3); Write (a: 3); Program lab2; Readln (n); Readln (a); Uses crt; Writeln; Writeln; Writeln; Writeln; Readkey; Clrscr; Begin. Begin. Begin. Begin. End; End… Читать ещё >
Анализ и проектирование (реферат, курсовая, диплом, контрольная)
Структурная схема программы
Описание программы
В самом начале была подключена библиотека Crt, так как в ней содержится важная для удобной работы с программой процедура ClrScr.
Program lab2;
uses crt;
Вводятся следующие переменные: i, jпараметры цикла, n, m-размерность матрицы, дополнительная переменная а, b — исходный и искомый массивы.
var a: array[1.100,1.100] of integer;
b:array[1.100] of integer;
n, i, j:integer;
Далее, в разделе операторов, осуществляется ввод размерности матрицы через переменную n.
begin.
clrscr;
writeln ('dana celochislennaya kvadratnaya matrica, poluchit matricu.
elementi obratnoi diagonali ravnie 1, ostalnie 0');
writeln ('vvedite razmernost matricy');
readln (n);
writeln ('razmernost matricy', n,'x', n);
writeln ('vvedite elementi massiva snachala stroki');
Далее осуществляем ввод и вывод на экран исходного массива. Для этого используем циклы for. to, требующихся для заполнения и вывода массива поэлементно. Дополнительно для ввода и вывода используем новый раздел операторов для того чтобы заполнение осуществлялось построчно.
for i:=1 to n do.
for j:=1 to n do.
readln (a[i, j]);
writeln ('ishodnii massiv');
writeln;
for i:=1 to n do.
В следующем разделе осуществляем непосредственно сами вычисления.
С помощью цикла for to, для начала мы задаем задачу о поиске нужных элементов в столбце. Также мы указали, что поиск элементов будет осуществляться с 3 элемента массива. Цикл if .then выполняет условие, по которому будет происходить заполнение нулями обратной диагонали, если она ей является и дальнейшее заполнение остальных единицами.
begin.
for j:=1 to n do.
write (a[i, j]: 3);
writeln;
end;
writeln;
for i:=1 to n do.
begin.
for j:=1 to n do.
begin.
if i+j=n+1 then a[i, j]: =1 else a[i, j]: =0;
write (a[i, j]: 3);
end;
writeln;
end;
После этого используется оператор readkey, для того чтобы не происходил моментальный выход из диалогового окна.
readkey;
После чего, программа завершается. Для выхода из диалогового окна нужно нажать любую клавишу.