СКАЧАТЬ:  33-variant.zip [257,09 Kb] (cкачиваний: 34)

КУРСОВАЯ РАБОТА

ПО ДИСЦИПЛИНЕ «ИНФОРМАТИКА»

РАЗДЕЛ: АЛГОРИТМИЧЕСКИЙ ЯЗЫК PASCAL

НА ТЕМУ:

Разработка в среде Turbo Pascal программы, реализующей транспонирование матрицы

Содержание

Условие задачи. 3

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

Программа на языке Pascal 5

Описание используемых модулей и операторов. 7

Упражнения. 8

Приложение. 12

Приложение к упражнениям.. 13

Список литературы.. 16

Условие задачи

Разработка в среде Turbo Pascal программы, реализующей транспонирование матрицы.

 Проверьте свойство (А^Т)^Т = А, где А – исходная квадратная матрица (Т означает транспонирование). Исходный массив сформировать с помощью генератора случайных чисел.

КОНТРОЛЬНАЯ ЗАДАЧА

Программа на языке Pascal

Uses Crt;

Const n=4; m=5;

Var a: array[1..n,1..m] of byte; b: array[1..m,1..n] of byte;

    i,j: byte;

Begin ClrScr; Randomize;

      For i:=1 to n do

        Begin

        For j:=1 to m do

          Begin

          a[i,j]:=Random(20)+1;

          Write(a[i,j]:3)

          End;

        Writeln

        End;

      Writeln;

      For i:=1 to n do

        For j:=1 to m do b[j,i]:=a[i,j];

      For i:=1 to m do

        Begin

        For j:=1 to n do Write(b[i,j]:3);

        Writeln

        End;

      Writeln;

      For i:=1 to m do

        For j:=1 to n do a[j,i]:=b[i,j];

      For i:=1 to n do

        Begin

        For j:=1 to m do Write(a[i,j]:3);

        Writeln

        End;

      Readln

End.

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

Crt – библиотека, в которой находятся такие операторы, как ClrScr, Random и некоторые другие.

ClrScr – оператор очистки экрана.

Const – раздел констант.

:= – оператор присваивания, переменная слева получает значение, находящееся справа.

Write() – выводит данные на экран.

ReadLn() – читает данные и переводит курсор на новую строку.

Begin End – составной оператор, позволяет обрабатывать группу операторов как один.

For i:=a to b do – цикл с параметром, применяется, когда заранее известно количество выполняемых действий. Пробегает значения от a до b с шагом 1. Если a>b, то оператор принимает вид For i:=a downto b do.

Randomize – данная процедура выдаёт разные наборы случайных чисел.

Random() – выдаёт случайное число из диапазона. Если диапазон не указан, выдаёт действительное число от 0 до 1.

ЗАДАЧА 7

Uses Crt;

Const n=20;

Var i: byte; a: array[1..n] of byte; s: Word; k,k2,k3,k4,k5,max,min: byte;

Begin ClrScr; Randomize; s:=0; max:=0; min:=100; k2:=0; k3:=0; k4:=0; k5:=0;

      For i:=1 to n do

        Begin

        a[i]:=Random(4)+2;

        Write(a[i]:3)

        End;

      WriteLn;

      For i:=1 to n do s:=s+a[i];

      Writeln(Round(s/n));

      For i:=1 to n do

        Begin

        If a[i]>max then max:=a[i];

        If a[i]<min then min:=a[i]

        End;

      WriteLn(max);

      WriteLn(min);

      For i:=1 to n do

        Case a[i] of

        2: Inc(k2);

        3: Inc(k3);

        4: Inc(k4);

        5: Inc(k5)

        End;

      WriteLn(Round(k2/n*100));

      WriteLn(Round(k3/n*100));

      WriteLn(Round(k4/n*100));

      WriteLn(Round(k5/n*100));

      For i:=1 to n do If a[i]>s/n then Inc(k);

      WriteLn(k);

      Readln

End.

ЗАДАЧА 11

Uses Crt;

Const n=20;

Var a: array[1..n] of byte; i: byte; k0,k1,k2: byte;

Begin ClrScr; Randomize; k0:=0; k1:=0; k2:=0;

      For i:=1 to n do

        Begin

        a[i]:=Random(3);

        Write(a[i]:3)

        End;

      WriteLn;

      For i:=1 to n do

        Case a[i] of

        0: Inc(k0);

        1: Inc(k1);

        2: Inc(k2)

        End;

      For i:=1 to k0 do a[i]:=0;

      For i:=k0+1 to k0+k1 do a[i]:=1;

      For i:=k0+k1+1 to k0+k1+k2 do a[i]:=2;

      For i:=1 to n do Write(a[i]:3);

      ReadLn

End.

ЗАДАЧА 25 

Uses Crt;

Var a,n: longint; k: byte;

Begin ClrScr;

      WriteLn('n=?'); ReadLn(n);

      a:=1; k:=0;

      While a<=n do

        Begin

        a:=a*2;

        Inc(k)

        End;

      WriteLn(a);

      Write('k=',k);

      Readln

End.

Приложение     

ПРИЛОЖЕНИЕ К ЗАДАЧЕ 7

ПРИЛОЖЕНИЕ К ЗАДАЧЕ 11

ПРИЛОЖЕНИЕ К ЗАДАЧЕ 25

Список литературы 

1. Иванов А.С., Потапова О.Н., Салихова Г.Л. «Word для начинающих», Альметьевск: АлНи, 2003 г.
2. Немнюгин С.А. «TURBO PASCAL. Практикум», Санкт-Петербург, «Питер» 2001 г.
3. Немнюгин С.А. «TURBO PASCAL. Учебник», Санкт-Петербург, «Питер» 2001 г.
4. Смирнов А. А. «Задачник по TURBO PASCAL», Москва, «Правда», 2004 г.
5. Петренко У. Ф. «Задачи по PASCAL», Н. Новгород, «Корнезия», 2006 г.
6. Коварков Х. С. «Учебник по TURBO PASCAL», Москва, «Правда», 2004 г.