2. Наберите программу, которая выводит на экран окно с изменяющимся цветом фона и цветом текста.

Program АВС25;

Uses CRT;

Var I, J: integer;

Begin

TextBackGround (1); {выбор фона}

ClrScr;

TextColor (14); {установить цвет текста}

GoTOXY (15,3);

Writeln (¹ Пример окна с изменяющимся цветом фона и текста ’);

For I : = 0 to 7 do

и ! | м ; i| i I ,

Begin

Window (5,5,75,20); { раскрыть окно}

TextBackGround (I);

ForJ: = 0to15do

Begin

ClrScr;

TextColor (14);

GoToXY (25,3);

Writeln (‘ Цвет фона I);

TextColor(J);

GoToXY (25,7);

Writeln (‘ Цвет текста J);

TextColor (14);

GoToXY (15,12);

Writeln (‘Для продолжения работы нажмите клавишу <ENTER> ’);

Readln;

End;

End;

End.

Откомпилируйте программу, запустте ее на выполнение. Просмотрите результат работы, сохраните и создайте .ехе - файл.

Задачи для контрольной работы

Задача 1

Найт среднее арифметическое общей совокупности элементов тех строк заданной матрицы, последний элемент которых равен 1.

Задача 2

Получить массив Х(п) по правилу: Xj=1, если в i-м столбце заданной матрицы есть хотя бы один элемент превышающий заданное значение С, иначе ХрО. Найт общее число элементов, больших С.

Задача 3 '

Дан массив А(5,5). Изменить часть матрицы, находящуюся под главной диагональю следующим образом: если элемент A[i,j] этой част матрицы больше элемента А [ j,i], то задать элементу A [i,j] новое значение, равное полу сумме двух этих элементов.

Определить самую длинную последовательность подряд идущих нулей в заданном одномерном массиве.

Задача 5

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

Задача 6

Написать программу, подсчитывающую в каждой из заданных строк количество слов 'мама'.

Задача 7

Дан массив из 7 строк, в каждой из которых не более 50 элементов. Удалить из каждой строки все пробелы и записать количество удалённых пробелов в конец этой строки.

Задача 8

В текстовом файле отсортировать строки по возрастанию их длин. j

Задача 9

В файле из вещественных чисел переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом все нули.

Задача 10

Записать в конец каждой строки текстового файла количество слов в этой строки.

5. Выполните компиляцию программы АВС1, нажав клавиши Alt F9.

2. Запустите программу на выполнение Ctrl F9.

3. Просмотрите результат выполнения программы Alt F5.

4. Сохраните программу под именем АВС6:

F10 / File / Save as... E(F): \ ABC6.

3. Составьте программу для вычисления значений функции у = sinx на отрезке

[0; 3.14] с шагом 0,1.

Откомпилируйте программу, запустте ее на выполнение. Введте данные через пробел: 3 - 2 9 7 -1 61, после чего нажмите клавишу <ENTER>. Просмотрите результат. Сохранте на носителе, создайте .ехе - файл.

2. Нахождение наибольшего элемента массива - это задача невычислительного характера.

Program АВС8;

Const n = 7;

Var а: array [ 1.. n ] of integer;

Max, I: integer;

Begin

For I: = 1 to n do Begin

Write (‘ a [ ‘, I, ‘ ;

Readln (a [I]);

End;

Max: = a [ 1 ];

For I: = 2 to n do IF max < a [ i ]

Then max: = a [ i ];

Writeln (‘ наибольший элемент массива max = ‘, max); Readln;

End.

Откомпилируйте программу, запустте ее на выполнение. Введите данные:

5 15 25 35 155 105 55, нажимая после каждой цифры клавишу <ENTER>. Просмотрите результат. Сохраните программу на носителе и создайте .ехе - файл.