1. Новые контрольные / Контр.№1 ОА

Томский межвузовский центр дистанционного образования

Томский государственный университет

систем управления и радиоэлектроники (ТУСУР)

Основы алгоритмизации и программирование

Контрольная работа № 1

Вариант № 8

Выполнил:

студент ТМЦДО

гр.:

специальности 030501

06 октября 2008 г.

г. Белово

2008г

Контрольная работа № 1

Задан массив чисел Х [1..15].

Определить значение переменной у.

Текст программы выглядит следующим образом:

Uses CRT;

Vsr

X: array [0..25] of integer;

I: M2 : integer;

y, A8 : real;

begin

M2: =0; A8: = 0

clrscr;

writeln< ́Введите массив чисел ; ́>;

writeln< ́ ́ >;

for i : =0 to 14 do

reading<x[i]> ;

if xp[i] – 1 then

A8: = A8 + x[i]

Else

M2: = M2 + x[i]

End;

A8: = sqrt <A8>;

If A 8 < = 16,7 then

Y: = sqrt < A8 + 1,79>;

writeln < ́ ́>

writeln< ́ y : 6 :6 >;

writeln < ́ ́>

writeln < ́Введите любое значение , чтобы выйти… ́>;

readln;

end.

Вывод результатов

Введите массив чисел:

X [1] = 12

X [2] = 15

X [3] = 24

X [4] = 35

X [5] = 86

X [6] = 79

X [7] = 91

X [8] = 45

X [9] = 38

X [10] =76

X [11] = 11

X [12] = 39

X [13] = 49

X [14] =84

X [15] = 21

У=5,323705