«Решение задач на языке программирования Паскаль» - Курсовая работа

Содержание

Сортировка вставками.

Дана последовательность 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.

---