Министерство образования и науки, молодежи н спорта Украины

Донецкий политехнический техникум

Журнал

отчетов по учебной практике №1

Выполнил: студент группы ПЗ-11-2

Ковригин Анатолий Проверил преподаватель Черепахина Е.Н.

Донецк 2013

Оглавление

Занятие №1: Программирование линейных алгоритмов. 3

Занятие №2: Программирование алгоритмов разветвляющейся структуры. 8

Занятие №3: Решение задач на составление программ разветвляющейся структуры. Решение уравнений и неравенств с использованием условного оператора. 13

Занятие №4: Программирование циклических алгоритмов. Вычисление конечных сумм. Вычисление суммы бесконечного ряда. Табулирование функции. 18

Занятие №5: Вычисление полиномов и их производных. Нахождение наибольшего и наименьшего значения функции. 24

Занятие №6: Решение задач на использование комбинации операторов цикла и ветвления. 27

Занятие №7: Программирование вложенных циклов 30

Занятие №8: Организация циклов в программе. Использование реккурентных соотношений 33

Занятие №9: Процедуры и функции 38

Занятие №10: Описание и использование одномерных массивов. Решение задач на обработку одномерных массивов. 46

Занятие №11: Решение задач на обработку одномерных массивов. Использование массивов в качестве параметров в подпрограммах. 52

Занятие №12: Двумерные массивы. 56

Занятие №13: Решение задач на обработку двумерных массивов. Использование матриц в качестве параметров в подпрограммах. 62

Занятие №14: Символьные переменные и строки. Обработка строк. 66

Заняите №15: Решение задач обработки строк 71

Занятие №16: Понятие о файловом типе. Типы файлов. Процедуры и функции для работы с файлами. 73

Занятие №17: Записи. Обработка массива записей. 77

Занятие №18: Работа с файлами. Решение задач. 79

Занятие №19: Модули. Использование стандартных модулей.Работа с модулем Graph. 80

Занятие №20: Вычисление определённого интеграла методом прямоугольников. 85

Занятие №21: Программирование операций с типами множеств 88

Занятие №22: Программирование задач с использованием динамических переменных. 90

Занятие №23: Создание оконного интерфейса 92

Занятие №24: Создание интерфейса в виде меню 94

Занятие №25: Использование процедур и функций в работе с массивами. 97

Занятие №1: Программирование линейных алгоритмов.

1.1 Записать в Турбо Паскале арифметическое выражение:

11

program prac1;

label z;

var x,y,a:real;

begin

readln(x,y);

a:=x-y;

if a>0 then a:=y+exp(1/3*ln(a)) else

if a<0 then a:=y-exp(1/3*ln(abs(a))) else

begin

writeln(sqrt(sqrt(y)));

goto z;

end;

if a>0 then writeln(sqrt(sqrt(a)));

z:

writeln(‘Vipolnil Kovrigin Anatoliy’);readln;

end.

1.2 Записать в виде алгебраической формулы:

11	4aa+x(bbb+x(sqr(c)sqr(c)+x(a-exp(x))))

2. Составить программу для вычисления значений переменных. Вывести значения вводимых исходных данных и результаты вычислений, сопровождая вывод наименованиями выводимых переменных.

11.

program prac2;

var x,a,b,s:real;

begin

write('a=');

read(a);

write('b=');

read(b);

write('x=');

readln(x);

if x<>-1 then writeln('y=',((exp(2*x*ln(a))+exp(- x*ln(b))*cos((a+b)*x))/(x+1)):0:4);

s:=sqr(x)+b;

if (s>=0) and (a<>0) then writeln('R=',(sqrt(s)-sqr(b)*sqr(sin(a/x+1))*(sin(a/x+1))):0:4);

writeln(‘Vipolnil Kovrigin Anatoliy’);readln;

end.

3. Составить программу, реализующую алгоритм следующей задачи из курса математики или физики.Организовать в программе ввод соответствующих данных и вывод результата с поясняющими сообщениями для пользователя.

Вычислить расстояние между двумя точками с координатами x ₁, y₁ и x₂, y₂

program prac3;

var x1,y1,x2,y2:real;

begin

readln(x1,y1,x2,y2);

writeln(sqrt(sqr(x1-x2)+sqr(y1-y2)));

writeln(‘Vipolnil Kovrigin Anatoliy’);readln;

end.

Вопросы к лабораторной работе №1

1. Из каких разделов состоит программа на языке Turbo Pascal?

Раздел описания, раздел выполняемого кода.

2. В чём заключается отличие переменной от константы?

Константу нельзя изменить, а переменную можно.

3. Каков приоритет выполнения операторов в арифметических выражениях?

()

*/ div mod

+-

4. Каковы особенности выполнения оператора присваивания?

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

Занятие №2: Программирование алгоритмов разветвляющейся структуры.

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

11.

x≥5 x<5

b=4,1

program prac1;

const b=4.1;

var x:real;

begin

readln(x);

if x<5 then writeln(pi*sin(b*x)) else writeln(b*exp(-b*x)*sqrt(sqr(x)+b*x));

writeln(‘Vipolnil Kovrigin Anatoliy’);readln;

end.

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

11.

x<10 x=10 x>10

a=2,1 b=9,5

program prac2;

const a=2.1;

const b=9.5;

var x:real;

begin

readln(x);

if x<10 then writeln(a*sqr(sqr(x))+b*x)

else if x>10 then writeln(exp(2*x)+sqrt(sqr(a)+sqr(x)*x))

else writeln(sin(x+0.5)/cos(x+0.5));

writeln(‘Vipolnil Kovrigin Anatoliy’);readln;

end.

3. Цена подписки на газету «Пресс-Курьер» на год определяется следующим образом: льготная подписка (при предъявлении квитанции за предыдущий год) на весь год–15 грн., подписка для тех, кто впервые станет постоянным читателем, – 18 грн., подписка для пенсионеров – 12 грн., подписка обыкновенная – 24 грн. Определить стоимость подписки с учётом приведённых условий.

p rogram prac3;

const A:array[1..4] of byte=(12,15,18,24);

var tip:byte;

begin

writeln('vvedite tip podpiski:');

writeln('1 - l''gotnaya');

writeln('2 - pervaya');

writeln('3 - pensionnaya');

writeln('4 - obichnaya');

readln(tip);

writeln(A[tip]);

writeln(‘Vipolnil Kovrigin Anatoliy’);readln;

end.