Essays.club - Получите бесплатные рефераты, курсовые работы и научные статьи
Поиск

Семестровая работа по "Информатике"

Автор:   •  Ноябрь 14, 2018  •  Контрольная работа  •  1,171 Слов (5 Страниц)  •  406 Просмотры

Страница 1 из 5

Федеральное агентство по образованию

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

Кафедра «Вычислительная техника»

Семестровая работа по информатике за 2-й семестр

Вариант №24

Выполнил: ст. гр. МВ-131

Шмидт Э.С.

Проверил: ст. преп. каф ВТ

Павлова Е.С.

Волгоград, 2018

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

Ввести символ с клавиатуры.

  • Если символ есть «А», то вычислить и отпечатать Z - сумму положительных элементов заданной матрицы С(N, N), расположенных над главной диагональю.
  • Если символ есть «В», то вычислить и отпечатать значения функции:                Y = C•x2 + D при х изменяющемся от 0 до 1 с шагом 0,1. С - след матрицы А, а D - след матрицы В (Следом матрицы называется сумма элементов главной диагонали). Матрицы А(M, M) и В(K, K) заданы.
  • Если символ есть «Е», то создать целочисленный файл. Преобразовать элементы этого файла по формуле:  а = 2•а - 5 и занести эти значения в другой файл. Оба файла вывести на экран.

Тестовые примеры к задаче

Входные данные:

Если символ «A»:

        N=4

        Матрица C:

7

9

-8

1

-7

8

0

2

3

-4

3

5

0

1

1

1

        

Если символ «B»

        M = 4 K = 3

3

6

7

9

0

5

0

10

2

1

8

2

3

4

5

9

        A(M):

        

B(K):

5

6

8

0

3

1

9

4

2

        

Если символ «E»

F1 =        5        3        8        9        1        0        7        6

Выходные данные:

Если символ «A»

Z = 17

Если символ «B»

Y= 10 при х= 0

Y= 10.25 при х= 0.1

Y= 11 при х= 0.2

Y= 12.25 при х= 0.3

Y= 14 при х= 0.4

Y= 16.25 при х= 0.5

Y= 19 при х= 0.6

Y= 22.25 при х= 0.7

Y= 26 при х= 0.8

Y= 30.25 при х= 0.9

Y= 35 при х= 1

Если символ «E»

F2 =        5        1        11        13        -3        -5        9        7

Листинг программы на Pascal к задаче

program sema;

type

  vector = array[1..999] of integer;

  files = file of integer;

  mat = array [1..9999, 1..999] of Integer;

var

  C, B: mat;

  f1, f2: files;

  y, x, a: real;

  sim: char;

  n, k, z, cc, d, buf: integer;

  i, j: Byte;

begin

  writeLn('введите символ');

  read(sim);

  if sim = 'A' then

  begin

    writeLn('введите N');

    read(n);

    for i := 1 to n do

      for j := 1 to n do

      begin

        write('C[', i, ',', j, ']=');

        readln(C[i, j]);

      end;

       writeln('Массив C:');

    for i := 1 to N do

    begin

      for j := 1 to n do

        write(C[i, j]:5);

...

Скачать:   txt (5.3 Kb)   pdf (253.3 Kb)   docx (15.9 Kb)  
Продолжить читать еще 4 страниц(ы) »
Доступно только на Essays.club