2. Программа

Пример программы на языке С++

# include <iostream.h>

# include <iomanip.h>

# include <stdlib.h>

# include <windows.h>

char* Rus(const char* text);

int main () {

int i,j, nr;

float A[7][5];

// cout << "Enter m "; cin >> m;

srand(100000);cout << Rus(" Исходная таблица \n");

for (i=0; i<7; i++) {

for (j=0;j<5; j++) {

// cout << "\n Enter a[i][j] " ; cin >> A[i][j];

A[i][j]=rand()/5000;

A[i][i]=-A[i][i];}}

for (i=0; i<7; i++){

for (j=0;j<5; j++)

cout << setw(5) << A[i][j];

cout << endl; }

cout << endl;

for (i=0; i<7; i++){

nr=0;

for (j=0;j<5; j++){

if(A[i][j]<0) A[i][j]=-A[i][j];

if (A[i][j]==0) nr++;}

cout << Rus(" в строке = ") << i << " zero "<< nr << endl;

}

cout << Rus(" \n Таблица после выполнения программы \n");

for (i=0; i<7; i++){

for (j=0;j<5; j++)

cout << setw(5) << A[i][j];

cout << endl; }

return 0;}

char bufRus[256];

char* Rus(const char* text){

CharToOem(text,bufRus);

return bufRus;

}

Пример программы на языке VBA

Private Sub CommandButton1_Click()

Dim A(1 To 7, 1 To 5) As Single

Dim i As Integer, j As Integer, nr As Integer

For i = 1 To 7

For j = 1 To 5

A(i, j) = Cells(i, j)

Next

Next

For i = 1 To 7

nr = 0

For j = 1 To 5

If A(i, j) < 0 Then A(i, j) = -A(i, j)

If A(i, j) = 0 Then nr = nr + 1

Next

Cells(9 + i, 1) = "Количество нулей в " & i & "строке =" & nr

Next

Cells(18, 1) = "Матица после выполнения программы"

For i = 1 To 7

For j = 1 To 5

Cells(18 + i, j) = A(i, j)

Next

Next

End Sub

5. Результат расчета

Пример результата на языке С++

Пример результата на языке VBA

Приложение 1

Министерство образования и науки Российской Федерации

Иркутский государственный технический университет

Кафедра информатики

Допускаю к защите

Руководитель ________

____________________

Пояснительная записка

к курсовой работе по дисциплине Информатика

Выполнил студент ММ-09-1 Иванов А.А.

группа подпись Ф.И.О.

Преподаватель Попова Е.С.

подпись Ф.И.О.

Курсовой проект защищен

с оценкой______________

Иркутск, 2010

Литература

1. Детали машин. Крайнев А. Ф.: словарь-справочник / Александр Филиппович Крайнев – М.: Машиностроение, 1992. – 480 с.

2. Справочник молодого электросварщика. Каракозов Э. С.: справ. пособие для ПТУ / Э. С. Каракозов, Р. И. Мустафаев . – М.: Высш. шк., 1992. – 304 с

3. Подшипники качения. Перель Л.Я. Справочник. – М.: Машиностроение, 1983.

4. Справочник по муфтам. Ряховский О.А., Иванов С.С. – М: Машиностроение, 1991.

5. Справочник технолога-машиностроителя в 2-х томах. Косилова А.Г., Мещеряков Р.К., Суслов А.Г. /Под ред. А.М. Дальского. – М.: Машиностроение, 2001.

6. Промышленные приборы и средства автоматизации: Справочник/ под ред. В.В.Черенкова. Л.: Машиностроение, 1987. – 847с.

7. Промышленные приборы и средства автоматизации : справочник / под общ. ред. В. В. Черенкова . – Л.: Машиностроение. Ленингр. отд-ние, 1987. – 846 с.

8. Режущий инструмент: Альбом. /под ред. В.А. Гречишинкова. – Ч.1 – М.: изд-во «Станкин», 1996 г. 348 с.

9. Справочник конструктора-инструментальщика. / В.И. Баранчикова, В.А. Гречишникво. Г.Н. Кирсанов и др. / под общей ред. В.И. Баранчикова. – М.: Машиностроение, 1994. – 560 с.

10. Металлообрабатывающий твердосплавный инструмент: Справочник / В.С. Самойлов, Э.Ф. Эйхманс, В.А. Фальковский и др. – М.: Машиностроение, 1988. – 367 с.

11. Прогрессивные режущие инструменты и режимы резания металлов: Справочник / В.И. Баранчиков, А.В. Жирнов, Н.Д. Юдина и др. – М.: Машинсотроение, 1990. – 399с.

12. Справочник машиностроителя в 3-х томах – Москва, 1952 г.

13. Технология машиностроения: учебник для студентов высших учебных заведений / Л.В. Лебедев, В.У. Мнацаканян, А.А. Потонин. – М.: «Академия», 2006 г.

14. Технология машиностроения: проектирование технологий изготовления изделий : учеб. пособие для вузов по направлению "Конструкт.-технол. обеспечение машиностроит. пр-в" / В. А. Лебедев, М. А. Тамаркин, Д. П. Гепта . – Ростов н/Д: Феникс, 2008. – 361 с.

15. Справочник монтажника механического оборудования гидротехнических сооружений / В.Я. Мартенсон, Б.А. Николаев, В.Н. Панин под ред. Мартенсона. – М.: Энергоатомиздат, 1984. – 264с., ил.

16. Физические величины и их единицы: справ. кн. для учителя. – М: Просвещение, 1984 . – 239 с.

17. Справочник паяльщика. – М.: Машиностроение, 1981. – 348 с.

18. Проектирование и производство режущего инструмента : учеб. пособие / П. Р. Родин . – Киев: Машгиз, 1962. – 254 с.

19. Общемашиностроительные нормативы времени и режимов резания для нормирования работ, выполняемых на универсальных и многоцелевых станках с числовым программным управлением : в 2 ч. / Утв. Гос. ком. СССР по труду и соц. вопр. И ВЦСПС 03.02.88. – М.: Экономика, 1990. – 206 с.

20. Металлорежущие станки : альбом общих видов кинемат. схем и узлов / А. М. Кучер, М. М. Киватицкий, А. А. Покровский; под общ. ред. А. М. Кучера – Л.: Машиностроение, Ленингр. отд-ние, 1972. – 306 с.

21. Техническое зрение роботов/В.И. Мошкин, А.А. Петров, В.С. Титов, Ю.Г. Якушенков; Под общ. ред. Ю.Г. Якушенкова. – М.: Машиностроение, 1990. – 272 с.

22. Справочник по пайке. Под ред. С.Н. Лоцманова, И.Е. Петрунин, В.П. Фролова. М., «Машиностроение», 1975.

23. Промышленные роботы: Справочник. – М.: Машиностроение, 1983. – 376 с.

24. Промышленные роботы и их применение: Робототехника для машиностроения. 2-е изд., перераб. и доп. – М.: Машиностроение, 1983. – 311 с.

25. Павловская Т.А. С/C++. Программирование на языке высокого уровня : учеб. для вузов по направлению "Информатика и вычислит. техника" / Т. А. Павловская . - СПб.и др.: Питер:Питер бук, 2001. - 460 с. : a-ил

26. Березин Б. И. Начальный курс C и C++ / Борис Иванович Березин, Сергей Борисович Березин . - М.: Диалог-МИФИ, 1997. - 288 с. : a-ил