Семестровая работа по "Информатике"
Автор: Eduard Shmidt • Ноябрь 14, 2018 • Контрольная работа • 1,171 Слов (5 Страниц) • 471 Просмотры
Федеральное агентство по образованию
Волгоградский государственный технический университет
Кафедра «Вычислительная техника»
Семестровая работа по информатике за 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);
...