«Составление программы с использованием языка Pasсal»

• Результаты

• Описание используемых операторов

• Используемая литература

6. Создать каталог с именем <ваша фамилия> с файлом пояснительной записки в виде документа WORD с именем “пояснительная.doc” (п.1, п.2) и файлом программы с именем “programs.pas” (п.3, п.4) на носителе.

7. Предоставить файл отчета файл программы руководителю курсовой работы на диске и распечат-ку отчета на формате А4.

for j:=1 to 4 do begin {начало цикла для столбца}

write('A[',i,',',j,']='); {пояснительный текст}

readln(A[i,j]);end; {считывание с клавиатуры}

writeln;;end; {пропуск строки}

writeln('Исходная матрица имеет следующий вид ':55); {пояс-нительный текст}

writeln; {пропуск строки}

write(' '); {отступ в строке}

for i:=1 to 4 do begin {начало цикла для строки}

for j:=1 to 4 do begin {начало цикла для столбца}

write(A[i,j]:4);end; {вывод матрицы}

writeln;write(' ');end; {вывод матрицы}

writeln; {пропуск строки}

end

{ ЗАПОЛННЕНИЕ МАТРИЦЫ В ПРОГРАММЕ }

else begin {заполнение матрицы в программе}

writeln; {пропуск строки}

writeln('Исходная матрица имеет следующий вид ':50); {по-яснительный текст}

writeln; {пропуск строки}

A[1,1]:=15; A[1,2]:=16; A[1,3]:=17; A[1,4]:=18;

{заполнение матрицы}

A[2,1]:=55; A[2,2]:=54; A[2,3]:=53; A[2,4]:=52; {за-полнение матрицы}

A[3,1]:=20; A[3,2]:=40; A[3,3]:=30; A[3,4]:=50; {за-полнение матрицы}

A[4,1]:=17; A[4,2]:=28; A[4,3]:=34; A[4,4]:=42; {за-полнение матрицы}

write(' '); {отступ в строке}

for i:=1 to 4 do begin {начало цикла для строки}

for j:=1 to 4 do begin {начало цикла для столбца}

write(A[i,j]:4);end; {вывод матрицы}

writeln;write(' ');end; {вывод матрицы}

writeln; {пропуск строки}

end; {конец заполнения матрицы в программе}

{ ВЫПОЛННЕНИЕ УСЛОВИЯ ЗАДАЧИ }

for d:=1 to 3 do begin

for k:=1 to 4 do {начало цикла для проверки строк}

begin

max:=A[k,4]; {присвоение максимального элемента}

if A[k+1,4]>max then {сравнение максимума с элементом следующей строки}

begin lk; end; {отношение к процедуре}

end;end;