кр2

БЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ИНФОРМАТИКИ И РАДИОЭЛЕКТРОНИКИ

Кафедра программного обеспечения информационных технологий

Факультет ФНиДО

Специальность ПОИТ

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

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

часть 1

Вариант № 23

Выполнил студент: Батура Анастасия Владимировна

группа 001021

Зачетная книжка 001021-07

Электронный адрес [e-mail]

Минск 2010

Условие задачи: в массиве из 100 элементов найти первые десять элементов, которые больше 15. Вывести их значения и их номера в исходном массиве. Если их меньше десяти, вывести текст “Таких значений больше нет”. Если их нет вообще, вывести текст “Таких значений нет”.

Диаграмма Насси Шнейдермана:

Листинг:

Program Massive15;

uses crt;

var Mas:array[1..100] of integer; {Описание переменных}

i,k:integer;

begin

clrscr;

randomize;

k:=0; {Сбрасывается счетчик элементов массива > 15}

for i:=1 to 100 do begin {Генерация элементов массива происходит одновременно с проверкой}

Mas[i]:=random(20); {Эл-ту массива присваивается случайное значение}

if Mas[i]>15 then begin

inc(k);

write(i,'<',Mas[i],'> ');{Вывод № эл-та массива и его значения}

end;

end;

Writeln();{Просто перевод строки}

case 10-k of {Проверка количества искомых эл-тов массива}

1..9: write('Takih znachenij bolshe net');

10: write('Takih znachenij net');

end;

end.

Тестовый набор входных данных и результат работы программы:

Input: 11, 12, 1, 2, 3, 16, 3, 0, 6, 11, 6, 3, 8, 11, 4, 0, 13, 2, 2, 3, 7, 10, 0, 9, 8, 17, 10, 1, 0, 2, 8, 9, 12, 6, 13, 7, 17, 7, 3, 7, 12, 1, 17, 17, 5, 13, 2, 6, 5, 8, 8, 10, 16, 14, 4, 10, 2, 2, 6, 3, 12, 10, 12, 0, 6, 8, 7, 13, 2, 5, 9, 1, 9, 13, 13, 3, 10, 7, 11, 8, 7, 11, 2, 12, 17, 1, 7, 13, 9, 2, 6, 11, 0, 11, 17, 20, 15, 13, 4, 5

Output: 6<16> 26<17> 37<17> 43<17> 44<17> 53<16> 85<17> 95<17> 96<20> Takih znachenij bolshe net