Контрольная работа 2: вариант 7

  • ID: 30486 
  • 4 страницы
140 рубСкачать

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

TASK3.exe

TASK3.pas

Отчет.docx

Содержание:


Задача №3

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

Для заданных векторов X, Y, Z вычислить значение:

[image]

Нахождение максимальной компоненты оформить подпрограммой.

Исходные данные:

[image]

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

uses crt;

type

vect=array[1..6] of real;

const

X:vect=(4.1,-1.7,2.3,5.8,-3.7,0);

Y:vect=(0.47,-1.25,0.9,-1.2,0,0);

Z:vect=(-1.9,12,6.5,-15.1,10,-24);

xn=5;

yn=4;

zn=6;

var

i:integer;

A:real;

function max(a:vect; n:integer):real;

var

i:integer;

m:real;

begin

m:=a[1];

for i:=1 to n do

if (a[i]>m) then m:=a[i];

max:=m;

end;

begin

clrscr;

if (max(Z,zn)>=0) then A:=max(X,xn)+max(Y,yn) else A:=1+sqr(max(Z,zn));

writeln('A = ',A:8:3);

readln;

end.

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

[image]

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

1. Информатика: учебное пособие. К.В. Прушковский, Ю.Г. Черный; Сибстрин. – 2-е изд., перераб. и доп. – Новосибирск, 2008. – 108с.