Сортировка вставками.
Дана последовательность a1,a2,…, an. Требуется переставить числа в порядке возрастания. Делается это следующем образом. Пусть a1,a2,…,ai- упорядоченная последовательность, т.е. a1<=а2<=…<=аi.
Берется следующее число а(i+1) и вставляется в посследовательность так, чтобы новая последовательность была тоже возрастающей. Процесс производится до тех пор, пока все элементы от i+1 до n не будут перебраны. Примечание. Место помещения очередного элемента в отсортированную часть производить с помощью двоичного поиска. Двоичный поиск оформить в виде отдельной функции.
Задача на формирование массивов.
Сформировать квадратную матрицу порядка n по заданному образцу:
1 1 1 … 1 1 1
1 0 0 … 0 0 1
1 0 0 … 0 0 1
….
1 0 0 … 0 0 1
1 1 1 … 1 1 1
Операции с элементами массивов.
Дана целая киадратная матрица n-го порядка. Определить, является ли она магическим квадратом, т. е. такой, в которой суммы элементов во всех строках и столбцах одинаковы.
Работа со строками.
Дана строка, содержащая текст. Найти длину самого короткого и самого длинного слова.
Задача по теме «Множества».
Имеем множество, содержащее натуральные числа из некоторого диапазона. Сформировать два множества, первое из которых содержит все простые числа из данного множества, а второе- все составные.
Задача по теме «Записи(структуры)».
Из ассортимента конфет, выпускаемых пермской кондитерской фабрикой, выбрать те, стоимость которых от 30 до 55 рублей за 1 кг.
Указать срок их годности и номер магазина, в которых они имеются в продаже.
Текстовые файлы.
Дан файл содержащий текст, набранный заглавными русскими буквами. Провести частотный анализ текста, т. е. указать (в процентах) сколько раз встречается та или иная буква.
program zadacha1;
uses crt;
var i,j,s,r,m,k: 1.5;
x: integer;
massiv: array[1.10] of integer;
begin
clrscr;
for k:=1 to 5 do
read(massiv[k]);
for i:=2 to 5 do
begin
x:=massiv[i];
s:=1;
r:=i-1;
while s<=r do
begin
m:=(s+r) div 2;
if x< massiv[m] then r:=m-1 else s:=m+1
end;
for j:=i-1 downto s do
massiv[j+1]:=massiv[j];
massiv[s]:=x;
end;
for k:=1 to 5 do
write(massiv[k],' ');
readln; readln;
end.
Результат: Введите последовательность: 9 1 2 4 7
1 2 4 7 9
program zadacha2;
uses crt;
const n=5;
var
i,k: integer;
matrix: array[1.n, 1.n] of integer;
begin
clrscr;
writeln;
for i:=1 to n do
begin writeln;
for k:=1 to n do
begin
if (i=1) or (k=1) or (i=n) or (k=n) then
begin writ(1,' ');
matrix[i,k]:=1 end
else begin write(0,' '); matr5[i,k]:=0
end
end;
end; readln
end.
Результат: 1 1 1 1 1
1 0 0 0 1
1 0 0 0 1
1 0 0 0 1
1 1 1 1 1
Вывод: Во время этой вычислительной практики мы решали задачи по следующим темам: «Сортировки вставками», «Задачи на формирование массивов», «Операции с элементами массивов», «Множества», «Записи(структуры)», «Работа со строками», «Текстовые файлы». Из данных тем до этого было изучены: «Сортировки вставками», «Задачи на формирование массивов», «Операции с элементами массивов», «Работа со строками». Темы изученные самостоятельно: «Множества», «Записи(структуры)», «Текстовые файлы».
1. Практикум по информатике. Хенер.
2. Методическое указания к курсу ЭВМ и Программирование с лабораторными работами(часть первая) . Уфа-1994.
3. Программирование на языке Паскаль (задачник). Под редакцией О. Ф. Усковской.
4. Программирование на Турбо Паскаль. Р. С. Юлмухаметов.
5. Язык программирования Turbo Pascal. Болотнов А. М., Ишбульдин З. М. Уфа-1994.
Контрольная работа:
История и перспективы развития языков программирования
Курсовая работа:
Языки программирования
Тест:
Ответы на тест Основы искусственного интеллекта
Курсовая работа:
Создание сайта на тему: «Языки программирования интерактивных Html-документов
