Читать контрольная по всему другому: "Программирование на Турбо Паскале" Страница 2


назад (Назад)скачать (Cкачать работу)

Функция "чтения" служит для ознакомления с работой. Разметка, таблицы и картинки документа могут отображаться неверно или не в полном объёме!

Writeln('│','Восходящая':12,'│ │ │');

sum:=sum1(n,m,1,1,0,1,a); {Вызов рекурсии}

Writeln(niz);

Writeln('СУММА:',sum:51);Writeln;

Writeln('Для продолжения нажмите любую клавишу...');Readkey; Writeln(verh);Writeln(inc1);Writeln(cent1);

Writeln('│','Нисходящая':12,'│ │ │');

sum:=sum2(n,m,1,1,1,a); {Вызов рекурсии}

Writeln(niz);

Writeln('СУММА:',sum:51);Writeln;

Write('Ввести еще одну матрицу? (Y/N):');

c:=Readkey;Writeln(c);

Writeln;

end;

end. Просчет контрольного варианта на ЭВМ: Введите число строк:3

Введите число столбцов:3 Введите матрицу:

a[1,1]=1

а[1,2]=2

а[1,3]=Ч a[2,1]=6

а[2,2]=3

а[2,3]=7 a[3,1]=8

а[3,2]=5

а[3,3]=9 Матрица: │ 1 2 Ч │

│ 6 3 7 │

│ 8 5 9 │

Для продолжения нажмите любую клавишу...

Рекурсия

Значение суммы

значения i , j

ВосходящаяВход 1Вход 2Вход 3Вход 4Вход 5Вход 6Вход 7Вход 8Терм, ветвьВыход 8Выход 7Выход 6Выход 5Выход 4Выход 3Выход 2Выход 1

013713162331364545454545454545

а[1,1]= 1а[1,2]= 2a[1,3]= 4а[2,1]= 6а[2,2]= 3а[2,3]= 7а[3,1]= 8а[3,2]= 5а[3,3]= 9а[3,2]= 5а[3,1]= 8а[2,3]= 7а[2,2]= 3а[2,1]= 6а[1,3]= 4а[1,2]= 2а[1,1]= 1

СУММА45 Для продолжения нажмите любую клавишу.

Рекурсия

Значение суммы

значения i , j

НисходящаяВход 1Вход 2Вход 3Вход 4Вход 5Вход 6Вход 7Вход 8Терм, ветвьВыход 8Выход 7Выход 6Выход 5Выход 4Выход 3Выход 2Выход 1

0000000091422293238424345

а[1,1]= 1а[1,2]= 2a[1,3]= 4а[2,1]= 6а[2,2]= 3а[2,3]= 7а[3,1]= 8а[3,2]= 5а[3,3]= 9а[3,2]= 5а[3,1]= 8а[2,3]= 7а[2,2]= 3а[2,1]= 6а[1,3]= 4а[1,2]= 2а[1,1]= 1

СУММА45 Ввести еще одну матрицу? (Y/N):n



Интересная статья: Основы написания курсовой работы