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

Задание № 22

на курсовую работу по информатике:

1. Дать описание алгоритма решения задачи. Дать описание переменных.

2. Разработать блок-схему алгоритма и описать назначение используемых конструкций.

3. Составить программу на языке Pascal (с ком-ментарием по каждой строке).

4. Отладить про8грамму и получить достоверные результаты на ПК.

5. Составить отчет по курсовой работе с исполь-зованием текстового редактора WORD .Отчет должен содержать:

• Титульный лист

• Лист задания

• Оглавление

• Алгоритм решения задачи

• Блок схему

• Текст программы

• Результаты

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

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

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

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

§2.Программа.

program kl;

uses crt; {подключение модуля}

var A:array [1.4,1.4] of integer; {описание переменных}

d,i,j,k,m,max,l,buf,imax:integer; {описание переменных}

procedure lk; {процедура}

begin

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

buf:=a[k,i];a[k,i]:=a[k+1,i];a[k+1,i]:=buf; {меняем строки местами}

end;end; {конец процеду-ры}

begin {начало программы}

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

clrscr; {очистка экрана}

write('Если вы хотите ввести матрицу от руки то нажмите 1, иначе 2=>> ');

read(m); {считывание с клавиатуры}

if m=1 then begin {заполнение матрицы от руки}

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

writeln('заполнение ',i,'-ой строки'); {пояснительный текст}

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;