Размещено на http://www.allbest.ru/

Министерство образования Республики Беларусь

УО "Полоцкий государственный университет"

Радиотехнический факультет

Курсовая работа

по дисциплине "Информатика"

Выполнил

студент группы 10ЭС-1

Цыганков К.Д.

Руководитель

преподаватель Деканова М.В.

Новополоцк 2011

Содержание

Введение

1. Решение задачи №1

1.1 Постановка задачи

1.2 Математическая формулировка задачи

1.3 Форма представления исходных данных

1.4 Разработка алгоритма и его описание

1.5 Описание программы

1.5.1 Структура

1.5.2 Описание переменных

1.6 Инструкция по эксплуатации программы

1.7 Результаты проведенных расчетов и их анализ

1.8 Исходный код программы

2. Решение задачи №2

2.1 Постановка задачи и выбор метода обработки информации

2.2 Математическая постановка задачи

2.3 Форма представления исходных данных

2.4 Разработка алгоритма и его описание

2.5 Описание программы

2.5.1 Структура

2.5.2 Описание переменных

2.6 Инструкция по эксплуатации программы

2.7 Результаты проведенных расчетов и их анализ

2.8 Исходный код программы

3. Решение задачи №3

3.1 Постановка задачи

3.2 Математическая постановка задачи и выбор метода обработки информации

3.3 Форма представления исходных данных

3.4 Разработка алгоритма и его описание

3.5 Описание программы

3.5.1 Структура

3.5.2 Описание подпрограмм

3.5.3 Описание переменных

3.6 Инструкция по эксплуатации программы

3.7 Результаты проведенных расчетов и их анализ

3.8 Исходный код программы

4. Решение задачи №4

4.1 Постановка задачи

4.2 Форма представления исходных данных

4.3 Разработка алгоритма и его описание

4.4 Описание программы

4.4.1 Структура

4.4.2 Описание переменных

4.5 Результаты проведенных расчетов и их анализ

4.6 Исходный код программы

5. Решение задачи №5

5.1 Постановка задачи

5.2 Математическая постановка задачи и выбор метода обработки информации

5.3 Форма представления исходных данных

5.4 Разработка алгоритма и его описание

5.5 Результаты проведенных расчетов и их анализ

5.6 Исходный код программы

Заключение и выводы

Список литературы



Введение

программирование pascal массив алгоритм

С каждым днём программирование становиться всё более популярно среди обычных пользователей, что связано с интенсивным развитием информационных технологий. В начале компьютерной эры программисты были рабами вычислительных машин. Разработчики программного обеспечения должны были писать свои команды на единственном языке, который понимали компьютеры, -- в двоичном коде, и программы выглядели как последовательность нулей и единиц. По мере того как время шло, и алгоритмы усложнялись, программирование требовало все больше времени, а внесение изменений в программы и их модернизация становились практически невозможными.

Язык Паскаль относится к процедурно-ориентированным языкам высокого уровня

Достоинства языка Паскаль:

1. относительная простота (т.к. разрабатывался с целью обучения программированию);

2. идеология языка Паскаль близка к современным методикам и технологиям программирования, в частности, к структурному программированию и нисходящему проектированию (метод пошаговой детализации) программ. Паскаль может использоваться для записи программы на различных уровнях ее детализации, не прибегая к помощи схем алгоритмов;

3. гибкие возможности в отношении используемых структур данных;

4. высокая эффективность программ;

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

В связи с этим язык Паскаль в настоящее время находит самое широкое распространение для решения большого круга разнообразных практических и научных задач.

В рамках курсовой работы необходимо разработать пять программ на различную тематику согласно заданию курсовой работы.

Цели курсовой работы:

? разработка программ согласно заданию курсовой работы;

? систематизация и закрепление теоретических знаний и практических умений, полученных за время обучения дисциплины "Информатика".



1. Решение задачи №1

1.1 Постановка задачи

Написать программу для вычисления по указанной формуле. Проверить полученный ответ с помощью программы MathCAD.

1.2 Математическая формулировка задачи

Для решения данной задачи будет использована формула, приведённая ниже

y:=1.8+ln(abs(4-2/7-(sin(sin(5*x/3)/cos(sin(5*x/3))*(sin(5*x/3))))));

1.3 Форма представления исходных данных

При разработке программного продукта используются переменные вещественного типа (real): x, y

1.4 Разработка алгоритма и его описание

Программа работает по следующему алгоритму:

1 вводим X

2 переменная Y - решение данного уравнения

3 вводим данное уравнение

4 выводим результат



1.5 Описание программы

1.5.1 Структура

Название программы;

Раздел объявления переменных;

Основной блок программы.

1.5.2 Описание переменных

В процессе написания программы используются переменные

вещественного типа (real):

x - неизвестная в формуле, вводимая с клавиатуры;

y - решение уравнения

1.6 Инструкция по эксплуатации программы

При запуске программы под названием odin появляется запрос на введение значения х. После введения получаем значение выражения.



1.7 Результаты проведенных расчетов и их анализ

Введите X:

0.6

Полученное значение:

2.84403919098297

Результат проведенных расчетов верен

1.8 Исходный код программы

program odin;

var x,y: real;

begin

writeln('ВВЕДИТЕ Х');

readln(x);

y:=1.8+ln(abs(4-2/7-(sin(sin(5*x/3)/cos(sin(5*x/3))*(sin(5*x/3))))));

writeln(y);

end.



2. Решение задачи №2

2.1 Постановка задачи и выбор метода обработки информации

Вычислить сумму ряда с точностью =10-4

2.2 Математическая постановка задачи

Для решения данной задачи будем использовать формулу

Сумму необходимо вычислять до тех пор пока сумма ряда не станет меньше чем =10-4.

2.3 Форма представления исходных данных

Исходные данные вводятся с клавиатуры.

Используются переменные целочисленного типа (integer): i и вещественного типа (real): e, sum, a, x

2.4 Разработка алгоритма и его описание

Пользователь вводит значение X с клавиатуры. После производятся вычисления до значения с точностью, равной 10-4. После нахождения результата сумма выводится на экран.



2.5 Описание программы

2.5.1 Структура

Название программы;

Раздел объявления переменных;

Основной блок программы.

2.5.2 Описание переменных

В процессе написания программы используются переменные целочисленного типа (integer): i вещественного типа (real): e, sum, a, x



2.6 Инструкция по эксплуатации программы

После запуска появится строка "Введите Х=". После необходимо ввести значение переменной Х. Далее производятся необходимые вычисления и выводится результат "Сумма=".

2.7 Результаты проведенных расчетов и их анализ

Для проведения тестирования выполним программу для некоторого значения Х.

Введем число 9. Сумма = 18;

В результате тестирования ошибок в работе программы не обнаружено.

2.8 Исходный код программы

program z126;

var i:integer;

e,sum,a,x:real;

function fact(n : integer) : longint;

begin

if n <= 1 then

fact := 1

else

fact := n * fact(n - 1)

end;

begin

writeln('Введите х= ');

read(x);

e:=0.0001;

sum:=0;

i:=1;

a:=0;

while abs(a)<=e do begin

a:=power(-1,i+1)*(power(x,2*i-1)*(2*i+x+1))/fact(2*i+1);

sum:=sum+a;

i:=i+1;

end;

writeln('сумма=', sum:6:10);

end.



3. Решение задачи №3

3.1 Постановка задачи

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

3.2 Математическая постановка задачи и выбор метода обработки информации

Для решения данной задачи необходимо найти максимальное число, встречающееся в данном массиве более одного раза.

3.3 Форма представления исходных данных

При разработке программы исходные данные представлены переменными целочисленного типа (Integer): i, j, z, x, c, n, max; двумерный массив a:array[1..q,1..w] of integer

3.4 Разработка алгоритма и его описание

1. Запускаем программу.

2. На экране дисплея задаётся массив.

3. С помощью операции сравнения элементов в двумерном массиве, выявить число.



3.5 Описание программы

3.5.1 Структура

Название программы;

Раздел объявления переменных;

3.5.2 Описание переменных

max - максимальное число, которое встречается в массиве более одного раза.

a:array[1..q,1..w] of integer - массив элементов

3.6 Инструкция по эксплуатации программы

При запуске программы под названием задание3-28 выводится двумерный массив и максимальное число, которое встречается в нём более одного раза.

3.7 Результаты проведенных расчетов и их анализ

Ввод массива:

19 18 18

0 7 3

12 19 7

5 9 9

19 18 2

Результат:

19

Результат проведенных расчетов верен.



3.8 Исходный код программы

const q=5;

w=3;

var a:array[1..q,1..w] of integer;

i,j,z,x,c,n,max:integer;

begin

for i:=1 to q do begin

for j:=1 to w do begin

a[i,j]:=random(20);

write(a[i,j],' ');

end;

writeln;

end;

max:=a[1,1];

n:=1;

for i:=1 to q do begin

for j:=1 to w do begin

if a[i,j]>max then begin

for z:=1 to q do begin

for x:=1 to w do begin

if (a[i,j]=a[z,x])and(z<>i)and(x<>j) then n:=n+1;

end;

end;

if n>c then begin c:=n; max:=a[i,j]; end;

n:=1;

end;

end;

end;

writeln(max);

end.



4. Решение задачи №4

4.1 Постановка задачи

Дана матрица. Упорядочить элементы строк матрицы по неубыванию, а сами строки по неубыванию модуля произведения нечетных элементов строк. Использовать сортировку простыми вставками, реализовав метод в виде подпрограммы.

4.2 Форма представления исходных данных

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

4.3 Разработка алгоритма и его описание

1. Вызываем процедуру сортировки;

2. Первый элемент записать "не раздумывая".

3. Пока не закончится последовательность вводимых данных, для каждого нового ее

элемента выполнять следующие действия:

- начав с конца уже существующей упорядоченной последовательности, все ее

элементы, которые больше, чем вновь вводимый элемент, сдвинуть на 1 шаг назад;

- записать новый элемент на освободившееся место.

4. Выводим на экран дисплея отсортированный массив.



4.4 Описание программы

4.4.1 Структура

Название программы;

Раздел объявления переменных;

Основной блок программы.

4.4.2 Описание переменных

a:array[1..q,1..w] of integer - массив элементов

s:array[1..q] of integer - массив для произведения нечетных

4.5 Результаты проведенных расчетов и их анализ

В ходе выполнения программы ошибок не обнаружено.

4.6 Исходный код программы

uses crt;

const q=5;

w=5;

var a:array[1..q,1..w] of integer;

s:array[1..q] of integer;

j,i:integer;

procedure PrVst(i:integer; var s:array[1..q] of integer);

var g,x:integer;

begin

for i:= 2 to w do

if s[i-1]>s[i] then

begin x:= s[i];

g:= i-1;

while (g>0)and(s[g]>x) do

begin s[g+1]:= s[g];

g:= g-1;

end;

s[g+1]:= x;

end;

end;

procedure swap(i,j:integer; var a:array[1..q,1..w] of integer);

var e,v:integer;

begin

for e:=1 to q do begin

v:=a[i,e];

a[i,e]:=a[j,e];

a[j,e]:=v;

end;

end;

begin

for i:=1 to q do begin

for j:=1 to w do begin

a[i,j]:=random(100);

write(a[i,j],' ');

end;

writeln;

end;

for i:=1 to q do begin

for j:=1 to w do s[j]:=a[i,j];

PrVst(i,s);

for j:=1 to w do begin a[i,j]:=s[j]; s[j]:=1; end;

end;

for i:=1 to q do begin

for j:=1 to w do

if j mod 2=1 then s[i]:=s[i]*a[i,j];

end;

for i:=1 to q do begin

for j:=1 to q do

if s[i]>s[j] then swap(i,j,a);

end;

writeln;

for i:=1 to q do begin

for j:=1 to w do write(a[i,j],' ');

writeln;

end;

end.



5. Решение задачи №5

5.1 Постановка задачи

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

5.2 Математическая постановка задачи и выбор метода обработки информации

Для решения задачи необходимо разделить все слова запятыми. Потом сравнить в каждом слове количество гласных и вывести слова, в которых более двух гласных.

5.3 Форма представления исходных данных

Текст вводится пользователем с клавиатуры.

5.4 Разработка алгоритма и его описание

1. Вводим с клавиатуры текст.

2. Каждое слово разделяем запятой.

3. Поиск слов, в которых больше двух гласных.

4. Выводим результат.



5.5 Результаты проведенных расчетов и их анализ

Протестируем программу, введя текст - рыбалка, футбол, информатика.

Полученный результат - рыбалка информатика.

Полученный результат сохраняется в файле output.txt

5.6 Исходный код программы

const gl=['у','е','ы','а','о','я','и','ю'];

rz=[',',' ','.'];

var f1:text;

s:array[1..100] of string;

a,d:string;

e,i,w,g:byte;

begin

assign(f1,'output.txt');

rewrite(f1);

readln(a);

e:=1;

for i:=1 to length(a) do begin

if not (a[i] in rz) then s[e]:=s[e]+a[i]

else e:=e+1;

end;

for i:=1 to e do begin

d:=s[i];

for w:=1 to length(s[i]) do

if d[w] in gl then g:=g+1;

if g>2 then begin write(s[i],' '); write(f1,s[i],' '); end;

g:=0;

end;

close(f1);

end.



Заключение и выводы

За время написания курсовой работы я детально изучил функции и возможности среды разработки языка программирования Pascal, приобрел навыки рационального использования программного обеспечения современных персональных компьютеров при решении разнообразных задач. В ходе курсовой работы была подробно рассмотрена работа с одномерными и двумерными массивами, работа со строками, числами.

Задачи были выполнены в соответствии с требования предъявляемыми в учебном заведении "Полоцкий государственный университет", и написаны исключительно в учебных целях.



Список литературы

1. Константайн Л., Локвуд Л. Разработка программного обеспечения. - СПб.: Питер, 2004. - 592 с.: ил.

2. Жарков С.В. Shareware: профессиональная разработка и продвижение программ. - СПб.: БХВ-Петербург, 2003. - 320 с.: ил.

3. Архангельский А.Я. Программирование в Delphi. Учебник по классическим версиям Delphi. - М.:ООО "Бином-Пресс", 2006. - 1152 с.: ил

4. Кораблев В., Турбо Паскаль 7.0. - СПб.: Питер, 2004. -479с.:ил.

5. Turbo Pascal для студентов и школьников - СПб.: БЧВ - Петербург, 2004. - 352 с.: ил. (Г.Г. Рапаков, С.Ю. Ржеуцкая)

6. Turbo Pascal для школьников. Версия 7.0. - М.: Финансы и статистика, 1996. - 446 с. (Попов В.Б.)

7. Turbo Pascal: Учись программировать. 2002. - 448с.: ил. (Меженный О.А.)

8. Аляев Ю.А., Гладков В.П., Козлов О.А. Практикум по алгоритмизации и программированию на языке Паскаль: Учеб. пособие. - М.: Финансы и статистика, 2004.

9. Бородич Ю.С., Вальвачев А.Н., Кузьмич А.И. Паскаль для персональных компьютеров. - Мн.: Выш. шк.; БФ ГИТМ "НИКА", 1991.

10. Информатика, 7-11 класс. Киев, 2004. Гаевский А.Ю.

Размещено на Allbest.ru