Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Рабочая тетрадь "Язык программирования Турбо Паскаль"

Рабочая тетрадь "Язык программирования Турбо Паскаль"

  • Информатика

Поделитесь материалом с коллегами:



ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

ФГОУ СПО «ПЕНЗЕНСКИЙ АГРАРНЫЙ - ТЕХНИКУМ»















Р А Б О Ч А Я Т Е Т Р А Д Ь


ПО ИНФОРМАТИКЕ


Язык программирования Турбо Паскаль,
система программирования Турбо Паскаль






















г. Пенза, 2008 г.

ТЕМА ««Язык программирования Турбо Паскаль,
система программирования Турбо Паскаль».


ПРАКТИЧЕСКАЯ РАБОТА №1.


Наименование работы: «Разработка и программирование задач с линейной структурой».


ЗАДАНИЕ 1.


Цель задания: получить навыки программирования задач с линейной структурой, а также навыки работы в среде программирования Турбо Паскаль.

Задача 1: заданы длины 3-х сторон треугольника, вычислить его площадь и периметр.

Решение: пусть а, b, с – длины сторон треугольника. Необходимо найти S – площадь, Р – периметр треугольника. Воспользуемся формулой Герона:


hello_html_m5072490d.gif, где r – полупериметр.


Исходными данными являются величины а, b, с, результатом – S и P.

Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:

hello_html_m125b14e3.gif

Program Ex1;

Var a,b,c,r,P,S:real;

Begin

Writeln (‘a= ’);

Read (a);

Writeln (‘b= ’);

Read (b);

Writeln (‘c= ’);

Read (c);

r:=(a+b+c)/2;

P:=a+b+c;

S:=SQRT(r*(r-a)*(r-b)*(r-c));

Writeln (‘Периметр =’,P);

Writeln (’Площадь =’,S);

end.



hello_html_57aed7ff.gif


hello_html_19e8edc.gif

hello_html_599091a.gifhello_html_42877eb.gifhello_html_3b885229.gifhello_html_m5121a545.gifhello_html_57aed7ff.gifhello_html_m2df47aa7.gifhello_html_57aed7ff.gifhello_html_57aed7ff.gifhello_html_57aed7ff.gif
















hello_html_m48c34217.gif



Задача 2: заданы длины 2-х катетов в прямоугольном треугольнике. Найти длину гипотенузы и площадь треугольника.

Решение: пусть a, b– катеты треугольника, а с – гипотенуза. Необходимо найти S – площадь и С - длину гипотенузы. Воспользуемся следующими формулами:


hello_html_m12049a31.gif,

hello_html_m4d6e75e2.gif


Исходными данными являются величины а, в, результатом – S и С.

Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:


hello_html_m125b14e3.gif

Program Ex2;

Var a,b,c,S:real;

Begin

Writeln (‘a=’);

Read (a);

Writeln (’b=’);

Read (b);

С:=SQRT(a*а+b*b);

S:=(a+b)/2;

Writeln (‘Гипотенуза =’,С);

Writeln (’Площадь =’,S);

end.



hello_html_57aed7ff.gif


hello_html_310a46c6.gif

hello_html_57aed7ff.gifhello_html_57aed7ff.gif


hello_html_m5216350b.gif



hello_html_4641c3ba.gif

hello_html_m514e5eb0.gif



hello_html_4641c3ba.gif


hello_html_m64bd2f2f.gif


hello_html_57aed7ff.gif

hello_html_m48c34217.gif




ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЙ НА КОМПЬЮТЕРЕ.

1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.

2. В окне редактора введите текст первой программы.

3. Сохранить текст программы под именем zadacha1 (zadacha2), для чего выбрать команду FileSave as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.

4. Выполнить компилирование программы с помощью команды CompileCompile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.

5. Запустить программу на выполнение, для чего выбрать команду RunRun (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные (для Задачи 1: а = 125.7; b = 63.8; с = 123.5; для Задачи 2: a = 74.5; b =56.9). Для возврата к окну с текстом программы используется клавиша Esc.

6. Выполнить команду DebugOutput и в нижней части экрана появится пользовательский экран с исходными данными и результатом.

7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


ЗАДАНИЕ 2 (для самостоятельного выполнения)


Цель задания: закрепить навыки программирования задач с линейной структурой, а также навыки работы в среде программирования Турбо Паскаль.


Составить алгоритм и программу на языке программирования Турбо Паскаль для решения следующих задач:

  1. Рассчитать объем и площадь полной поверхности конуса по формулам:
    V = 1/3PR2H; S = RL + PR2.

  2. Рассчитать объем и площадь полной поверхности цилиндра по формулам:
    V = PR2H; S = 2RH + 2PR2.

  3. Вычислить сумму и произведение трех чисел A, B, C (целого типа).


Показать результаты выполнения программ преподавателю, записать результаты в тетрадь.



Контрольные вопросы

  1. Какой алгоритм называется линейным?

  2. Назовите основные символы алфавита языка программирования Турбо Паскаль?

  3. Каковы приоритеты выполнения операций?

  4. Какие правила следует соблюдать при записи математических выражений на языке программирования Турбо Паскаль?

  5. Для чего необходимо компилировать программу?

  6. Как запустить программу на выполнение?

  7. Как увидеть результаты выполнения программы на экране?

  8. Можно ли копировать фрагменты программы?

  9. Какое расширение имеют файлы, созданные в среде программирования Турбо Паскаль?

  10. Как открыть файл в среде программирования Турбо Паскаль?

  11. Как создать файл в среде программирования Турбо Паскаль?

ПРАКТИЧЕСКАЯ РАБОТА №2.


Наименование работы: «Разработка и программирование задач с разветвляющейся структурой».


ЗАДАНИЕ 1.


Цель задания: получить навыки программирования задач с разветвляющейся структурой, а также навыки работы в среде программирования Турбо Паскаль.


Задача 1: решить квадратное уравнение ax2 + bx + c, если известны коэффициенты а, b, с.

Решение: чтобы решить квадратное уравнение (т.е. определить значение х), необходимо воспользоваться следующими формулами:

hello_html_m20983690.gif


Исходными данными являются величины а, b, c, результатом – x1 и x2.

Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:

hello_html_m3b9f0bd8.gif

Program Ex6;

Var a,b,c,d,x1,x2:real;

Begin

Writeln (‘введите коэффициенты
уравнения’);

Read (a);

Read (b);

Read (c);

D:=b*b-4*a*c;

if D<0 then writeln (‘корней нет’)

else

begin

x1:=(-b+sqrt(D))/2*a;

x2:=(-b-sqrt(D))/2*a;

writeln (‘X1 = ’,x1,’X2 = ‘,x2);

end;

end.


hello_html_m2a7690f7.gif










hello_html_m682e3b13.gif


hello_html_m3739ee32.gif






hello_html_4641c3ba.gif






Задача 2: заданы числа a и b. Найти значение х по формулам:

hello_html_3d014607.gif


Исходными данными являются величины а, в, результатом – х.

Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:

hello_html_m2390bce9.gif

Program Ex7;

Var a,b,x:real;

Begin

Writeln (‘a= ‘);

Read (a);

Writeln (‘b= ‘);

Read (b);

if a>b then x:=a/b else x:=b/a;

writeln (‘X = ’,x:2:2);

end.



hello_html_m2738eab6.gifhello_html_57aed7ff.gifhello_html_4641c3ba.gifhello_html_277bff2e.gifhello_html_4641c3ba.gifhello_html_m333e9a93.gifhello_html_m2df47aa7.gifhello_html_m333e9a93.gifhello_html_m2df47aa7.gifhello_html_2d2985a9.gifhello_html_30e01fe4.gifhello_html_2d2985a9.gifhello_html_57aed7ff.gif

+

-






hello_html_m69b48436.gif



hello_html_m1c5501c7.gif




hello_html_m7b03c20a.gif




hello_html_m71c4b508.gif




ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЙ НА КОМПЬЮТЕРЕ.

1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.

2. В окне редактора введите текст первой программы.

3. Сохранить текст программы под именем zadacha6 (zadacha7), для чего выбрать команду FileSave as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.

4. Выполнить компилирование программы с помощью команды CompileCompile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.

5. Запустить программу на выполнение, для чего выбрать команду RunRun (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные (для Задачи 6: а = 125; b = 68; с = 15; для Задачи 7: a = 75; b =69). Для возврата к окну с текстом программы используется клавиша Esc.

6. Выполнить команду DebugOutput и в нижней части экрана появится пользовательский экран с исходными данными и результатом.

7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.



ЗАДАНИЕ 2 (для самостоятельного выполнения)


Цель задания: закрепить навыки программирования задач с разветвляющейся структурой, а также навыки работы в среде программирования Турбо Паскаль.


Составить алгоритм и программу на языке программирования Турбо Паскаль для решения следующих задач:

  1. Найти максимальное из двух чисел a и b.

  2. Найти минимальное из трех чисел a, b, c.


Показать результаты выполнения программ преподавателю.


Контрольные вопросы

  1. Какой алгоритм называется разветвляющимся?

  2. Какой оператор служит для организации вычислительного процесса в зависимости от какого-либо логического условия?

  3. Назовите полную форму условного оператора?

  4. Назовите сокращенную форму условного оператора?

  5. Чем отличается оператор Writeln от оператора Write?

  6. Как выполняется оператор Read?

  7. Как удалить строку из текста программы?

  8. Как войти в главное меню программы?

  9. Из каких разделов состоит программа на Турбо Паскале?

  10. Как выйти из среды программирования Турбо Паскаль?




ПРАКТИЧЕСКИЕ РАБОТЫ №3,4 .


Наименование работы: «Разработка и программирование задач с циклической структурой».


ЗАДАНИЕ 1.


Цель задания: получить навыки программирования задач с циклической структурой, а также навыки работы в среде программирования Турбо Паскаль.

Задача 1: найти сумму квадратов всех натуральных чисел от 1 до 100, используя 3 вида циклов (Repeat - «До», While – «Пока», For – цикл с параметрами)


Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:


Цикл «До» (оператор Repeat)

hello_html_m2390bce9.gif

hello_html_4641c3ba.gif


Program DO;

Var A:integer;

S:longint;

Begin

A:=1;

S:=0;

Repeat

S:=S+A*A;

A:=A+1;

Until A>100;

Writeln (‘S =’, S);

end.





hello_html_m183df0f2.gif


hello_html_4641c3ba.gif

hello_html_57cb3db9.gif


hello_html_4641c3ba.gif

hello_html_m2f3eb00d.gifhello_html_394de20f.gif

hello_html_27a247ba.gif

hello_html_m7b03c20a.gifhello_html_m6a6be7a6.gifhello_html_52ec794.gifhello_html_57aed7ff.gif

-

+


hello_html_57ae547.gifhello_html_m333e9a93.gifhello_html_mb60b119.gifhello_html_m2fb83a6a.gif





hello_html_m5ee0d1.gif

hello_html_354d07c6.gifhello_html_57aed7ff.gif

hello_html_m1e64da32.gifhello_html_m559dfc87.gif

hello_html_m2df47aa7.gif



hello_html_a4c1510.gif

Цикл «Пока» (оператор While)


hello_html_m3abd1ef8.gif

+

-

hello_html_7488a81e.gifhello_html_m183df0f2.gifhello_html_m4b1567f7.gifhello_html_381608d5.gifhello_html_44be47cd.gifhello_html_52ec794.gifhello_html_m1e64da32.gifhello_html_57aed7ff.gifhello_html_4641c3ba.gifhello_html_4641c3ba.gifhello_html_4641c3ba.gifhello_html_57aed7ff.gifhello_html_5d7bd719.gifhello_html_m77627340.gifhello_html_22a72a6c.gifhello_html_2d2985a9.gifhello_html_4c7416ad.gifhello_html_23013921.gif

hello_html_57aed7ff.gif

Program POKA;

Var A:integer;

S:longint;

Begin

A:=1; S:=0;

While A≤100 do

begin

S:=S+A*A;

A:=A+1;

end;

Writeln (‘S =’, S);

end.



























hello_html_57aed7ff.gif

hello_html_a4c1510.gif



Цикл с заранее известным числом повторений (цикл с параметром)

(оператор For)

hello_html_m2390bce9.gif

Phello_html_57aed7ff.gifrogram PARAMETR;

Vhello_html_940ca1b.gifar A:integer;

S:longint;

Bhello_html_m2fd3af.gifegin

hello_html_46eb01cc.gifS:=0;

for A:=1 to 100 do S:=S+A*A;

hello_html_m2fd3af.gifWriteln (‘S =’, S);

end.

hello_html_e5aa63d.gif

hello_html_m1e64da32.gif


hello_html_6218adf9.gifhello_html_m2fd3af.gif

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЙ НА КОМПЬЮТЕРЕ.

1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.

2. В окне редактора введите текст первой программы.

3. Сохранить текст программы, для чего выбрать команду FileSave as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.

4. Выполнить компилирование программы с помощью команды CompileCompile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.

5. Запустить программу на выполнение, для чего выбрать команду RunRun (или нажать одновременно клавиши Ctrl и F9).

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

7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.

ЗАДАНИЕ 2 (для самостоятельного выполнения)


Цель задания: закрепить навыки программирования задач с циклической структурой, а также навыки работы в среде программирования Турбо Паскаль.


Составить алгоритм и программу на языке программирования Турбо Паскаль для решения следующих задач:

  1. Вычислить hello_html_m2565046b.gif при n = 8.

  2. Вычислить hello_html_m55457b00.gif при m = 3, n = 17.

  3. Вычислить F = 1*2* … *m = m! если m = 6.

  4. Вычислить hello_html_42f11dee.gif, при n = 10.

Указание: для решения задач можно использовать любой оператор цикла.

Показать результаты выполнения программ преподавателю, записать результаты в тетрадь.






Контрольные вопросы

  1. Какой алгоритм называется циклическим?

  2. Что такое «тело» цикла?

  3. Какие операторы цикла вы знаете?

  4. Чем отличается цикл «До» от цикла «Пока»?

  5. Опишите структуру оператора For?

  6. Что называется переменной- счетчиком?


ПРАКТИЧЕСКИЕ РАБОТЫ №5, 6


Наименование работы: «Разработка и программирование задач с массивами».


ЗАДАНИЕ 1.


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


Задача 1: дан массив Х, состоящий из n элементов. Найти сумму элементов этого массива.

Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:

Program SUMMA;

Var

X:array [1..7] of real;

I,N:integer;

S:real;

Begin

N:=7;

S:=0;

For i:=1 to N do

begin

writeln (‘X[’,i,’]=’);

readln(X[i]);

S:=S+X[i];

end;

writeln (‘S =’, S);

end.


hello_html_446971e3.gif




hello_html_3bda2f76.gif



hello_html_m2fd3af.gif


hello_html_m7eaa7d36.gif









ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.

1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.

2. В окне редактора введите текст программы.

3. Сохранить текст программы, для чего выбрать команду FileSave as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.

4. Выполнить компилирование программы с помощью команды CompileCompile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.

5. Запустить программу на выполнение, для чего выбрать команду RunRun (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:


Х[1]=5; X[2]=7; X[3]=3; X[4]=-2; X[5]=4; X[6]=1; X[7]=9.


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

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

7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 2: дан массив Х, состоящий из n элементов. Найти произведение элементов этого массива.


ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ

1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.

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

2. Ввести текст программы, сохранить программу.

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

4. Показать результат выполнения программы преподавателю, записать результат в тетрадь.



ЗАДАНИЕ 2.


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


Задача 3: дан массив Х, состоящий из n элементов. Найти максимальный элемент массива и номер, под которым он хранится в массиве.

Алгоритм решения задачи следующий: предположим, что первый элемент массива является максимальным и запишем его в переменной MAX, а в NMAX – его номер (т.е. 1). Затем в цикле сравниваем все элементы, начиная со 2-го с максимальным. Если текущий элемент массива оказывается больше максимального, то записываем его в переменную MAX, а в переменную NMAX – текущее значение индекса i (номера).

Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:


Program MAXIMUM;

Const

N:=10;

Var

X:array [1..N] of real; i:integer;

MAX,NMAX:real;

Begin

For i:=1 to N do

begin

writeln (‘X[’,i,’]=’);

readln(X[i]);

end;

MAX:=X[1]; NMAX:=1;

For i:=2 to N do

If X[i]>MAX then

Begin

MAX:=X[i]; NMAX:=I;

end;

writeln (‘MAX = ‘, MAX:1:3,
‘NMAX =’, NMAX);

end.


hello_html_57aed7ff.gif

. . .

-

+

hello_html_57aed7ff.gif



hello_html_m1bb8593f.gif




hello_html_22a72a6c.gifhello_html_m36e66edc.gifhello_html_49e4e19f.gifhello_html_m262ea49d.gifhello_html_m689f4151.gif



hello_html_m29b5a1f1.gifhello_html_m2da0f3fb.gif

hello_html_33181db6.gif

hello_html_m294b5e27.gif

hello_html_57aed7ff.gif

hello_html_4a413055.gif


hello_html_6c8e2f49.gif


. . .

hello_html_354d07c6.gif








ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.

1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.

2. В окне редактора введите текст программы.

3. Сохранить текст программы, для чего выбрать команду FileSave as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.

4. Выполнить компилирование программы с помощью команды CompileCompile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.

5. Запустить программу на выполнение, для чего выбрать команду RunRun (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:


Х[1]=-5; X[2]=7; X[3]=12; X[4]=0; X[5]=3;

X[6]=127; X[7]=31; Х[8]=8; X[9]=-4; X[10]=9;


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

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

7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 4: дан массив Х, состоящий из n элементов. Найти минимальный элемент массива и номер, под которым он хранится в массиве.


ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ

1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.

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

2. Ввести текст программы, сохранить программу.

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

4. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 5: дан массив Х, состоящий из n целых чисел. Расположить элементы массива в порядке возрастания их значения.

Алгоритм решения задачи следующий: сравним первый элемент массива со вторым, если первый окажется больше второго, то поменяем их местами. Те же действия выполним для второго и третьего, третьего и четвертого, i-го и (i+1)-го, (n-1)-го и n-го элементов. В результате этих действий самый большой элемент станет на последнее (n-е) место. Теперь повторим данный алгоритм сначала, но последний (n-й) элемент, рассматривать не будем, т.к. он уже занял свое место. После проведения данной операции самый большой элемент оставшегося массива станет на (n-1)-е место. Так повторяем до тех пор, пока не упорядочим весь массив.

Составим блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль:


Program PORADOK;

Const

N:=5;

Var

X:array [1..N] of word;
i,j:integer; b:word;

Begin

For i:=1 to N do

begin

writeln (‘X[’,i,’]=’);

readln(X[i]);

end;

writeln (‘Массив Х’);

For i:=1 to N do write (X[i], ‘ ‘);

Writeln;

For j:=1 to N-1 do

For i:=1 to N-j do

If X[i]>X[i+1] then

begin

b:=X[i];

X[i]:=X[i+1];

X[i+1]:=b;

end;

writeln (‘Упорядоченный массив’);

For i:=1 to N do

write (X[i], ‘ ‘);

writeln;

end.


. . .



hello_html_6a8dfbe2.gifhello_html_57aed7ff.gifhello_html_57aed7ff.gifhello_html_33181db6.gifhello_html_57aed7ff.gifhello_html_m333e9a93.gifhello_html_m262ea49d.gifhello_html_33181db6.gifhello_html_m689f4151.gifhello_html_m559dfc87.gifhello_html_1821a9a.gifhello_html_d1ded8e.gifhello_html_m2a7690f7.gifhello_html_m2a7690f7.gif

-

hello_html_m4dd4d9ee.gif



hello_html_m3f6f5290.gif

. . .

hello_html_2c0b1c92.gifhello_html_m6c117d57.gifhello_html_1aa9deb3.gifhello_html_m5ee0d1.gifhello_html_34d6af70.gif

+
























ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.

1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.

2. В окне редактора введите текст программы.

3. Сохранить текст программы, для чего выбрать команду FileSave as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.

4. Выполнить компилирование программы с помощью команды CompileCompile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.

5. Запустить программу на выполнение, для чего выбрать команду RunRun (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:


Х[1]=7; X[2]=3; X[3]=5; X[4]=4; X[5]=2.


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

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

7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 6: дан массив Х, состоящий из n целых чисел. Расположить элементы массива в порядке убывания их значения.


ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ

1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.

2. Ввести текст программы, сохранить программу.

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

4. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 7: дан массив Х, состоящий из n элементов. Найти сумму всех положительных элементов массива.


ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ

1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.

2. Ввести текст программы, сохранить программу.

3. Выполнить программу, введя следующие исходные данные:


Х[1]=-5; X[2]=17; X[3]=-3; X[4]=-22; X[5]=14; X[6]=-1; X[7]=9.



  1. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 8: дан массив Х, состоящий из n элементов. Найти произведение всех отрицательных элементов массива.


ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ

1. Самостоятельно составить блок-схему алгоритма и программу решения данной задачи на языке программирования Турбо Паскаль.

2. Ввести текст программы, сохранить программу.

3. Выполнить программу, введя следующие исходные данные:


Х[1]=-5; X[2]=17; X[3]=-3; X[4]=-22; X[5]=14; X[6]=-1; X[7]=9.



  1. Показать результат выполнения программы преподавателю, записать результат в тетрадь.



Контрольные вопросы

  1. Какие данные называются массивом?

  2. Какой оператор служит для описания массивов?

  3. Как организовать ввод-вывод элементов массива?

  4. Опишите алгоритм нахождения суммы элементов массива?

  5. Опишите алгоритм нахождения произведения элементов массива?

  6. Опишите алгоритм поиска максимального элемента массива и его номера?

  7. Опишите алгоритм поиска минимального элемента массива и его номера?

  8. Опишите алгоритм упорядочивания элементов в массиве по возрастанию?

  9. Опишите алгоритм упорядочивания элементов в массиве по убыванию?

























ПРАКТИЧЕСКАЯ РАБОТА №7


Наименование работы: «Разработка процедур (подпрограмм) и функций.


ЗАДАНИЕ 1.


Цель задания: получить навыки разработки подпрограмм и функций.

Задача 1: составить процедуру (подпрограмму) вычисления степени числа a:

an, где а, nцелые числа.


Составим программу вычисления степени числа а на языке программирования Турбо Паскаль:


Program STEPEN;

Var p,a,n,i:integer;

Begin

p:=1; n:=7;

writeln (‘a=’);

read (a)

for i:=1 to n do p:=p*a;

write (‘степень числа а = ’,р);

end.


Пояснения

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

Подпрограмма – именованная, логически законченная группа операторов языка, которую можно вызвать для выполнения любое количество раз из различных мест программы. В языке Турбо Паскаль существует 2 вида подпрограмм: процедуры и функции.

Главное отличие процедур от функций заключается в том, что результатом последних является одно единственное значение.

Каждая новая процедура или функция должна быть предварительно описана в разделе описаний процедур и функций. Для использования процедуры необходимо написать оператор вызова. Описание процедуры состоит из заголовка процедуры и ее тела. Заголовок процедуры включает служебное слово procedure, имя процедуры и заключенный в круглые скобки список формальных параметров с указанием их типов:

Procedure <имя> (<список формальных параметров>);

Например:

Procedure a17 (a:real; b,c:real; var x1,x2:real: var k:integer);

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

Для обращения к процедуре необходимо использовать оператор вызова процедуры. Он имеет вид:

<имя процедуры> (<список_фактических_параметров>);

Например:

STEPEN (b, m, j, h);


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

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

Пример использования процедуры в программе приведен ниже:


Program PROCED1;

Var b, m, j, h:integer;

Procedure s (a,n,i:integer; var p:integer);

Begin

p:=1; n:=7;

for i:=1 to n do p:=p*a;

end;

begin

writeln (‘b=’);

read (b)

s (b, m, j, h)

write (‘степень числа b = ’, h);

end.

Функции. В Турбо Паскале есть стандартные функции (sin, ln, exp . . .), кроме них программист может воспользоваться собственными функциями, предварительно описав их в программе.

Формат описания функции:


function<имя функции> (<имя формального параметра 1>:<Тип>;
<имя формального параметра 2>:<Тип>):тип результата;


Обращение к функции осуществляется по имени с указанием списка фактических параметров. Количество, типы и порядок следования формальных и фактических параметров должны совпадать:


<имя функции> (<список_фактических_параметров>);


Пример описания функций: function tan (x:real):real;

function max (x,y:real):real;


ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.

1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.

2. В окне редактора введите текст программы PROCED1.

3. Сохранить текст программы, для чего выбрать команду FileSave as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.

4. Выполнить компилирование программы с помощью команды CompileCompile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.

5. Запустить программу на выполнение, для чего выбрать команду RunRun (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:


1). B = 2; 2). B = 5; 3). B = 12.


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

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

7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 2: составить процедуру (подпрограмму) вычисления суммы двух чисел a и b:

c = a + b, где а, b, c – вещественные числа.


Составим на языке программирования Турбо Паскаль программу вычисления суммы двух чисел с использованием процедуры:


Program PROCED2;

Var x,y,z:real;

Procedure SUM(a,b:real;var c:real);

Begin

c:=a=b;

end;

begin

writeln (‘x=’);

read (x)

writeln (‘y=’);

read (y);

SUM(x,y,z);

writeln (‘z = ’,z);

end.

ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ НА КОМПЬЮТЕРЕ.

1. Запустить среду программирования Турбо Паскаль, щелкнув 2 раза ЛКМ на ярлыке.

2. В окне редактора введите текст программы.

3. Сохранить текст программы, для чего выбрать команду FileSave as и в открывшемся окне ввести имя файла (не более 8 символов), расширение .pas добавиться автоматически. Нажать кнопку ОК.

4. Выполнить компилирование программы с помощью команды CompileCompile (или нажать одновременно клавиши Alt и F9). Если программа не содержит ошибок, то появится сообщение об успешной компиляции. Если в программе есть ошибки, то появится сообщение об ошибке, код ошибки, а текстовый курсор покажет место ошибки.

5. Запустить программу на выполнение, для чего выбрать команду RunRun (или нажать одновременно клавиши Ctrl и F9). Откроется пользовательский экран (User Screen), в котором нужно ввести исходные данные:


х = 457; y = 525.


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

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

7. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 3: разработать на языке программирования Турбо Паскаль функцию вычисления суммы двух чисел a и b:

c = a + b, где а, b, cвещественные числа.


Составим программу вычисления функции суммирования двух чисел на языке программирования Турбо Паскаль:


Program FUNC1;

Var x,y:real;

Function SUM(a,b:real):real;

Begin

SUM:=a+b;

end;

begin

writeln (‘x=’);

read (x)

writeln (‘y=’);

read (y);

writeln (SUM(x,y));

end.



ЗАДАНИЕ 2 (для самостоятельного выполнения)


Цель задания: закрепить навыки программирования задач с использованием процедур и функций, а также навыки работы в среде программирования Турбо Паскаль.


Задача 4: составить процедуру (подпрограмму) вычисления произведения трех чисел a, b, с:

z = a * b * c, где а, b, c – вещественные числа.


ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ

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

2. Ввести текст программы, сохранить программу.

3. Выполнить программу, введя следующие исходные данные:


a (k) = 25.7; b (m) = 12.5; c (n)= 33.


4. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 5: разработать на языке программирования Турбо Паскаль функцию вычисления произведения трех чисел a, b, с:

z = a * b * c, где а, b, cвещественные числа.


ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ

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

2. Ввести текст программы, сохранить программу.

3. Выполнить программу, введя следующие исходные данные:


a (k) = 25.7; b (m) = 12.5; c (n)= 33.


  1. Показать результат выполнения программы преподавателю, записать результат в тетрадь.


Задача 6: разработать на языке программирования Турбо Паскаль функцию вычисления ctg(x).


ПОРЯДОК ВЫПОЛНЕНИЯ ЗАДАНИЯ

1. Самостоятельно составить на языке программирования Турбо Паскаль программу вычисления ctg(x) с использованием функции.

2. Ввести текст программы, сохранить программу.

3. Выполнить программу, введя следующие исходные данные:


c (х) = 30.


  1. Показать результат выполнения программы преподавателю, записать результат в тетрадь.



Контрольные вопросы

  1. Что называется подпрограммой?

  2. Какие виды подпрограмм используются в языке программирования Турбо Паскаль?

  3. Чем отличается процедура от функции?

  4. Как описывается процедура?

  5. Как описывается функция?

  6. Опишите оператор вызова процедуры?

  7. Опишите оператор вызова функции?







РЕКОМЕНДУЕМАЯ ЛИТЕРАТУРА

  1. Алексеев Е.Р., Чеснокова О.В., Павлыш В.Н., Славинская Л.В. Турбо Паскаль 7.0. – М.: НТ Пресс, 2006.

  2. Лысенко К.Н. Информатика. (курс лекций) – Пенза: Изд-во Пензенского технологического института, 2003.

  3. Шипунова А.В. Информатика: учеб.-справ. пособие. – М.: АСТ: Астрель: Транзиткнига, 2006.


Выберите курс повышения квалификации со скидкой 50%:

Краткое описание документа:

Основной формой практического освоения учебного материала в компьютерном классе является практическая  работа. Использование рабочей тетради на уроках информатики позволяет более эффективно распорядиться урочным  временем, обеспечить более высокую результативность. Рабочая тетрадь может быть использована студентами и преподавателями, как на уроках, так и для домашней подготовки к занятиям. Материал в рабочей тетради изложен следующим образом: задание; порядок выполнения задания; задания для самостоятельного выполнения; контрольные вопросы.

Такая структура рабочей тетради позволяет значительно повысить эффективность усвоения материала, а также в случае пропуска студентом занятий самостоятельно выполнять практические работы во внеурочное время. Кроме того, в рабочей тетради приведено достаточное количество заданий. Таким  образом, любой преподаватель при изучении любой темы может воспользоваться одним или   несколькими заданиями в зависимости от количества часов, предусмотренных   программой предмета, и от уровня подготовки студентов. При выполнении заданий предпочтительнее индивидуальная работа студентов за компьютером. Именно такая форма работы даёт  оптимальный результат. Кроме того, студенты, успешно выполнившие задание, могут оказать помощь студентам, испытывающим некоторые затруднения при работе с ПК. В разделе «Порядок   выполнения   задания» даётся подробное описание способа его выполнения. В рабочей тетради приведены дополнительные задания для студентов, успешно и быстро выполнивших основные задания. В разделе «Контрольные вопросы» приведены вопросы для контроля знаний студентов.

        

В основу рабочей тетради положены многолетний опыт ведения профессиональной и преподавательской деятельности на ЭВМ, конспекты лекций, инструкционные карты, рабочие тетради автора по предметам «Информатика и ВТ», «Информатика», «Информационные технологии в профессиональной деятельности».

Автор
Дата добавления 06.06.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров395
Номер материала 557597
Получить свидетельство о публикации
Похожие материалы

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