2-17_Введение в вычислительную технику

Министерство образования Российской Федерации (РФ)

Томский Государственный Университет Систем Управления и

Радиоэлектроники (ТУСУР).

Текстовая контрольная работа №2 по дисциплине “Введение в вычислительную технику”.

Контрольная работа № 2, вариант 17

1. Даны натуральное число n, действительные числа a₁,...,a_n. Выяснить, является ли последовательность a₁,...,a_n упорядоченной по убыванию.

Необходимо определить случайное число n, затем занести случайные числа в массив A[1..n], организовать цикл по сравнению текущего числа с последующим, начиная с первого элемента последовательности. При нахождении убывающей последовательности вывести на экран сообщение и завершить программу.

начало

j:=random(10)

i=1

False True

i>j

A[i]:=

Random(5)

i:=i+1

i:=1

True False

i>j

a=A[i]

b=A[i+1] i:=i+1

Write(‘Последовательность убывающая’)

True False

b>a

конец

Write (‘Последовательность не убывающ.’)

Конец

2. Даны действительные числа х, у. Получить:

а) max(x,y);

б) min(x,y);

в) max(x,y),min(x,y).

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

Начало

a:=random(100)

b:=random(100)

True False

a>b

Write(‘Max=a,Min=b’) Write(‘Max=b,Min=a’)

Конец

3. Даны натуральное число n, символы s₁,...,s_n. Выяснить, имеются ли в последовательности s₁,...,s_n такие члены последовательности s_i, s_i+1, что s_i-это запятая, а s_i+1 - тире.

Необходимо составить массив из случайных символов, где путём сравнения [i] и [i+1] элементов массива А, определить, существует ли последовательность, содержащая последовательно ‘,’ и ’-’ элементы массива

Начало

i:=1

False True

i>50

t:=60-random(20) i:=1

A[i]:=chr(t) i>50

i:=i+1

j:=A[i]

Write(‘Последовательности , и - нет’)

i:=i+1

Конец

True False

J:=’,’

h:=h+1

g:=A[h]

True False

g:=’-’

Write(‘Есть последовательность , и -’)

Конец

Ниже приведён текст программы на языке Turbo Pascal

{Вариант 17 задание №3

Программа позволяем найти в заданной последовательности последовательность

символов ',' и '-'.}

Program Prim3;

Uses Crt; {Подключение модуля}

{Описание констант массивов}

Var {Описание переменных}

t,h,i: Integer;

j,g: Char;

A:array[1..50] of char;

Begin

ClrScr; {Очистка экрана}

Randomize; {Загрузка процедуры Randomize}

textcolor(15);

For i:=1 to 50 Do

Begin

t:=60-random(20);

A[i]:=chr(t);

Write(A[i]:2);

End;

For i:=1 to 50 Do {Поиск последовательности символов , и -}

Begin

j:=A[i];

If j=#44 then

Begin

h:=h+1;

g:=A[h];

If g=#45 then {Если обнаруженна нужная последовательность,то выход}

Begin {из программы}

writeln;

Write('Имеется последовательность , и -');

Repeat

Until Keypressed;

Halt(1);

End;

End;

End;

Writeln;

Writeln('Последовательности , и _ не имеется');

Repeat

Until Keypressed;

End.