Контрольная работа 2: шифр 806001

  • ID: 14778 
  • 8 страниц
200 рубСкачать

антиплагиат в подарок

TASK1.exe

task1.pas

TASK2.exe

task2.pas

TASK3.exe

TASK3.pas

Отчет.docx

Содержание:


Задача №1

Постановка задачи

Составить программу, реализующую алгоритмы обработки всех элементов матрицы. Результаты вычислений выдать на экран, сопроводив пояснительным текстом.

Дана матрица [image]. Вычислить значение B = S2 + P2, где S – сумма положительных элементов; P – произведение тех элементов, которые по модулю больше 0.9.

Исходный текст программы

program task1;

uses crt;

var

a:array[1..4,1..5] of real;

i,j:integer;

s,p:real;

b,b1,b2:real;

begin

clrscr;

randomize;

writeln('Matrix A:');

for i:=1 to 4 do begin

for j:=1 to 5 do begin

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

write(a[i,j]:4:0);

end;

writeln;

end;

s:=0; p:=1; b:=0;

for i:=1 to 4 do begin

for j:=1 to 5 do begin

if (a[i,j]>0) then s:=s+a[i,j];

if (abs(a[i,j])>0.9) then p:=p*a[i,j];

end;

end;

b1:=sqr(s);

b2:=sqr(p);

b:=b1+b2;

writeln('B = ',b:8:3);

readln;

end.

Результат работы программы

[image]

Задача №2

Постановка задачи

Составить программу, реализующую алгоритмы внутри строки матрицы. Результаты вычислений выдать на экран, сопроводив пояснительным текстом.

Дана матрица [image]. Найти среднее арифметическое каждой строки матрицы.

Исходный текст программы

program task2;