Статическая обработка экспериментальных данных

МИНОБРНАУКИ РОССИИ

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

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

Кафедра: «Стрелковое оружие»

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

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

Тема работы: «Статическая обработка экспериментальных данных»

Выполнил

студент группы 335                                                                                                    Р.Ф. Гизатов

Проверил                                                                                                                      А.В. Бородин

Ижевск 2011

Содержание

Формулировка задания……………………………………….1

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

Блок-схема……………………………………………………...4

Словарь обозначений…………………………………………..6

Список используемой литературы…………………………….7

Задание №17

Разработать алгоритм и программу для вычисления произведения и суммы любых указанных строки и столбца двумерного массива размером [nxm]. Значения m и n должны вводится с клавиатуры (принять 4 <= n <= 10, 3 <= m <= 8). Ввод номера строки или номера столбца с клавиатуры. Предусмотреть вывод исходного массива в виде таблицы.

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

program ren2;

var a:array[1..10,1..10] of integer;

i,j,n,m,s,s1,n1,z,v:integer;

        p,p1:longint;

begin

    s:=0;

    p:=1;

    s1:=0;

    p1:=1;

    writeln('Введите значения n и m такие, что 4<=n>=10, 3<=m>=8');

    readln(n,m);

    for i:=1 to n do

     begin

      for j:=1 to m do

       a[i,j]:=random(10);

     end;

    for i:=1 to n do

     begin

      for j:=1 to m do

       write(' ',a[i,j]);

       writeln;

     end;

   begin

     writeln('Введите номер строки');

     readln(v);

      begin

       for j:=1 to m do

        s:=s+a[v,j];

        writeln('s=',s);

      end;

      begin

       for j:=1 to m do

        p:=p*a[v,j];

        writeln('p=',p);

      end;

    end;

     begin

      writeln('Введите номер столбца');

      readln(z);

       begin

        for i:=1 to n do

         s1:=s1+a[i,z];

         writeln('s1=',s1);

        end;

       begin

        for i:=1 to n do

         p1:=p1*a[i,z];

         writeln('p1=',p1);

       end;

     end;

end.

Блок-схема

Словарь обозначений

Список использованной литературы

1. Фигурнов В.Э. IBMPC для пользователя. Краткий курс. - М.: ИНФОРА-М, 1997г.

2. Зуев Е.А. Язык программирования TurboPascal 6.0,7.0- М.:
Веста, Радио и связь, 1997 г.

3. Джонс Ж., Харроу К. Решение задач в системе TurboPascal/Пер с
англ. – М.: Финансы и статистика, 1991 г.

4. Информатика. Базовый курс. 2-е издание / Под редакцией С. В. Симоновича. – СПб.: Питер, 2004. -640 с.: ил.

5. Немнюгин С. А. Turbo Pascal. Программирование на языке высокого уровня: Учебник для вузов. 2-е издание.- СПб.: Питер, 2004. -544с.: ил.

6. Окулов С. М. Основы программирования.- М.: ЮНИМЕДИАСТАЙЛ, 2002.- 424 с.: ил.

7. Окулов С.М. Программирование в алгоритмах / С. М. Окулов. – М.: БИНОМ. Лаборатория знаний, 2002.- 341 с.: ил.

8. Острейковский В. А. Информатика: Учебник для вузов / В. А. Острейковский. - 2-е издание, стер. – М.: Высшая школа, 2004. -511 с.: ил.

9. Дьяконов В. П. Справочник по алгоритмам и программам на языке Бейсик для персональных ЭВМ. – М.: Наука, 1987.

10. Демидович Б.П., Марон И. А. Основы вычислительной математики. – М.: Наука, 1970.