Document 129865

Министерство образования и науки Российской Федерации
Федеральное агентство по образованию
Государственное образовательное учреждение среднего профессионального образования
УФИМСКИЙ
ГОСУДАРСТВЕННЫЙ КОЛЛЕДЖ РАДИОЭЛЕКТРОНИКИ
Методические указания
для студентов по проведению
практических работ
для специальности
2201 «Вычислительные машины, комплексы, системы и сети»
по дисциплине
«Программирование на языке высокого уровня»
Уфа 2004
Методические указания для студентов по проведению практических работ для
специальности 2201 «Вычислительные машины, комплексы, системы и
сети» по дисциплине «Программирование на языке высокого уровня»
Содержание
Предисловие
Правила выполнения практических работ
Практическая работа №1
Практическая работа №2
Практическая работа №3
Практическая работа №4
Практическая работа №5
Практическая работа №6
Практическая работа №7
Практическая работа №8
Практическая работа №9
Практическая работа №10
Практическая работа №11
Практическая работа №12
Составитель:
Рецензенты:
М.Е. Бронштейн
Преподаватель УГКР
(Фамилия И.О.)
(Занимаемая должность и место работы)
И.В. Нуйкин
(Фамилия И.О.)
Зам.директора по УПР,
преподаватель УГКР
(Занимаемая должность и место работы)
М.А. Николаева
(Фамилия И.О.)
К.т.н, доцент кафедры
УГАТУ
ВМ и К
(Занимаемая должность и место работы)
51
3
4
5
8
12
16
19
22
26
29
32
34
39
45
3. Что называется подпрограммой?
4. В чем состоит сходство и различие подпрограмм-процедур и подпрограммфункций в языке Турбо Паскаль?
5. В чем различие между стандартными и определенными пользователем
подпрограммами?
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
Предисловие
Назначение методических указаний
Данные методические указания для студентов по выполнению практических
работ согласно программе дисциплины "Программирование на языке высокого
уровня" предназначены для реализации государственных требований к минимуму
содержания и уровню подготовки выпускников специальности 2201
«Вычислительные машины, комплексы, системы и сети» с целью закрепления
теоретических знаний и практических умений.
В сборнике содержатся методические указания по выполнению следующих
практических работ:
№1 Простейшая (линейная) программа.
№2 Условный и составной операторы. Программы с ветвлением.
№3 Условный и составной операторы. Программы с ветвлением
№4 Оператор цикла с предусловием.
№5 Оператор цикла с постусловием.
№6 Оператор цикла с параметром.
№7 Массивы.
№8 Двумерные массивы. Матрицы.
№9 Множественный тип.
№10 Комбинированный тип (записи).
№11 Файловый тип.
№12 Подпрограммы. (Процедуры и функции).
Требования к
практических работ
знаниям
и
умениям
при
выполнении
При выполнении практических работ студент должен
-
50
знать:
способы конструирования программ;
типы данных Pascal;
основные операторы Pascal;
основные структуры Pascal;
основные принципы программирования на Pascal;
уметь:
работать в среде Turbo Pascal;
программировать с применением типов данных, операторов и структур
языка Pascal.
3
Правила выполнения практических работ
1.
Студент должен придти на практическое занятие подготовленным
к выполнению практической работы.
2.
После проведения практической работы студент должен
представить отчет о проделанной работе.
3.
Отчет о проделанной работе следует выполнять в журнале
практических работ на листах формата А4 с одной стороны листа.
Содержание отчета указано в описании практической работы.
4.
Оценку по практической работе студент получает, если:
- студентом работа выполнена в полном объеме;
- студент может пояснить выполнение любого этапа работы;
- отчет выполнен в соответствии с требованиями к выполнению
работы,
- студент отвечает на контрольные вопросы на
удовлетворительную оценку и выше.
Зачет по выполнению практических работ студент получает при
условии
выполнения всех предусмотренных программой практических работ после
сдачи журнала с отчетами по работам и оценками по каждой из них.
№ 22 Заменить данное натуральное число на число, которое получается из
исходного записью его цифр в обратном порядке (например, дано число 156,
нужно получить 651).
№ 23 Даны натуральные числа К и N. Составить программу формирования
массива А, элементами которого являются числа, сумма цифр которых равна К
и которые не больше N.
№ 24 Даны три квадратных матрицы А, В, С n-го порядка. Вывести на печать
ту из них, норма которой наименьшая. Нормой матрицы считать максимум из
абсолютных величин ее элементов.
№ 25 Два натуральных числа называются «дружественными», если каждое из
них равно сумме другого (например, числа 220 и 284). Найти все пары
«дружественных чисел», которые не больше данного числа N.
№ 26 Два простых числа называются «близнецами», если они отличаются друг
от друга на 2 (например, 41 и 43). Напечатать все пары «близнецов» из отрезка
[n, 2n], где n - заданное натуральное число больше 2.
№ 27 Написать программу вычисления суммы Error! = 1 - Error! +
Error! - ... + Error!
для заданного числа n. Дробь Error! должна быть несократимой {р, q натуральные)
№ 28 Написать программу вычисления суммы 1 + Error! + Error! + ... +
Error! для заданного числа n.
Результат представить в виде несократимой дроби Error! (р, q натуральные).
№ 29 Натуральное число, в записи которого л цифр, называется числом
Амстронга, если сумма его цифр, возведенная в степень n, равна самому
числу. Найти все эти числа от 1 до k.
№ 30 Написать программу, которая находит и выводит на печать все
четырехзначные числа вида abcd, для которых выполняется: а, b, с, d - разные
цифры; б) ab - cd = а + b + с + d.
Контрольные вопросы:
1. Что понимают под структурным программированием?
применяется?
2. В чем заключается метод нисходящего программирования?
49
сложения этих дробей.
Ответ должен быть несократимой дробью.

4
Зачем оно
№ 11 На плоскости заданы своими координатами л точек. Создать матрицу,
элементами которой являются расстояние между каждой парой точек.
№ 12 Даны числа X, Y, Z, Т — длины сторон четырехугольника. Вычислить
его площадь, если угол между сторонами длиной Х и Y — прямой.
№ 13 Сформировать массив X(N), N-й член которого определяется формулой
Х(N)= Error!
№ 14 Составить программу вычисления суммы факториалов всех четных
чисел от m до n.
№ 15 Заменить отрицательные элементы линейного массива их модулями, не
пользуясь стандартной функцией вычисления модуля. Подсчитать количество
произведенных замен.
№ 16 Дан массив А(N). Сформировать массив В(М), элементами которого
являются большие из двух рядом стоящих в массиве А чисел. (Например,
массив А состоит из элементов 1, 3, 5, -2, 0, 4, 0. Элементами массива В будут
3, 5, 4.)
№ 17 Дан массив А(N) (N - четное). Сформировать массив В(М), элементами
которого являются средние арифметические соседних пар рядом стоящих в
массиве А чисел. (Например, массив А состоит из элементов 1, 3, 5, -2, 0, 4, 0,
3. Элементами массива В будут 2; 1,5; 2; 1,5.)
1. Цель работы: Ознакомиться с простейшей программой и научиться
составлять простейшие программы
2. Краткие теоретические сведения.
Во всех приведенных примерах переменные могут быть типа REAL
или INTEGER.
Кроме операторов, программа содержит описания переменных:
X: REAL;
Y, Z, T: INTEGER;
Каждая переменная, используемая в программе должна быть вписана
в разделе описаний
VAR
X: REAL;
Z, Y: INTEGER;
Схематически программа в Паскале выглядит следующим образом:
(PROGRAM N) – в стандартном Паскале
VAR A1;…; Ak;
BEGIN – начало
P1;…; Pn;
END. – конец – операционные скобки (служебные слова)
N – имя программы (идентификатор);
A1;…; Ak – описание переменных;
P1;…; Pn – операторы; выписываются в порядке следования друг за другом.
; - необходимо.
№ 19 Составить функцию для нахождения наименьшего нечетного
натурального делителя k (k≠1) любого заданного натурального числа n.
3. Пример. Программа ROOT1 вычисления корней квадратного уравнения ax2
+ bx + c = 0, заданного коэффициентами a, b, c (предполагая, что a ≠ 0и что
корни действительные)
VAR a, b, c, x1, x2: REAL;
BEGIN READ (a, b, c);
x1: = (- b + sqrt (sqr (b) – 4 * a * c) / (2 * a);
x2: = (- b – sqrt (sqr (b) – 4 * a * c) / (2 * a);
WRITE (x1, x2)
END.
№ 20 Дано натуральное число N. Составить программу формирования
массива, элементами которого являются цифры числа N.
4. Задание1. Найти значение переменной d:
Var a, b, c: integer; d: real;
№ 21 Составить программу, определяющую, в каком из данных двух чисел
больше цифр.
Begin
№ 18 Дано простое число. Составить функцию, которая будет находить
следующее за ним простое число.
Read (a);
B: = a*a;
5
48
Практическая работа № 1
Тема: Простейшая (линейная) программа.
C: = a+b;
D: = c/a;
End.
B1
B2
B3
B4
B5
B6
a
d
2
3
4
5
6
№ 3 Составить программу нахождения наибольшего общего делителя четырех
натуральных чисел.
7
№ 4 Составить программу нахождения наименьшего общего кратного трех
натуральных чисел.
№ 5 Написать программу нахождения суммы большего и меньшего из 3
чисел.
Задание2. Разработать программу нахождения следующего значения:
№1 Error!-a c+b-2
x tg xy
№2 Error!Error! * Error! - Error!
3
№4 Error! - Error!
№5 Error!
№3 Error!
№6 x - Error!+ Error!
№7 ln| (y - ;|x| )(x - Error!) №8 (1 – tg x)-2 + cos(x – y) №9 Error!
№10 ( Error!) + 18xy
3
2
№11 (1 + Error!) - 12x y
4
2
№13 Error! + 16x cos(xy) – 2 №14 x – cosx + sin(2xy)
-3
№16 |x2 – x3| - Error!
;x-1 ;
№19 ex - Error!
№17 x  ln x + Error!
№20 Error!
№12 Error!
№15 2ctg(3x) - Error!
№18 sinError! - sinError!
№21 2ctg(3x) - Error!
6
If Е=0 then writeln (Е) { Результат получается }
else begin { в переменной G
Nod (abs (Е) , F, G) ;
Е:=Е div G;
F:=F div G;
writeln ('Ответ: ' , Е ,' /', F)
end
еnd.
}
4. Задание. Разработать программу, выполняющую следующие действия:
№ 1 Треугольник задан координатами своих вершин. Составить программу
вычисления его площади.
№ 2 Составить программу нахождения наибольшего общего делителя и
наименьшего общего кратного двух натуральных чисел
(НОК(А, В) = Error!
№ 6 Вычислить площадь правильного шестиугольника со стороной а,
используя подпрограмму вычисления площади треугольника.
№ 7
На плоскости заданы своими координатами га точек Составить
программу, определяющую между какими из пар точек самое большое
расстояние. Указание. Координаты точек занести в массив.
№ 8 Проверить, являются ли данные три числа взаимно простыми.
№ 9 Написать программу вычисления суммы факториалов всех нечетных
чисел от 1 до 9.
№ 10 Даны две дроби Error! и Error! (А, В, С, D — натуральные
числа). Составить программу:
 деления дроби на дробь;
 умножения дроби на дробь;
47
Error! - Error! (а, b, c, d – натуральные числа). Результат получить в виде
простой несократимой дроби е/f.
Решение. Следует вычислить числитель и знаменатель по правилам
вычитания дробей, и сократить их на наибольший общий делитель (НОД).
Вычисление НОД двух чисел оформим
в виде подпрограммы, используя известный в математике алгоритм Евклида.
Составим два варианта программы решения этой задачи: с подпрограммойфункцией и подпрограммой-процедурой.
Решение 1
Program subl;
Var А,В,С,D,G,E,F: integer;
Function Nod (М,N: integer):integer; {Описание функции }
begin { вычисления НОД
while M<>N do { двух натуральных чисел по
}
if М>N then М: = М-N {алгоритму Евклида
}
else N: = N-М;
Nod := М
еnd;
begin write (' Введите числители и знаменатели дробей:') ;
rеаdln (А,В,С,D);
Е:=А*D-В*С; {основная программа вычитания
F:=B*D; {дробей и сокращения результата
If Е=0 then writeln (Е) {Обращение к функции
Else begin {производится дважды
Е:=Е div Nod (Abs (Е) , F) ;
F:=F div Nod (Abs (Е) ,F);
writeln ('Ответ: ' , Е ,' /', F)
end
еnd.
Решение 2
Program Sub2;
Var А, В, С, D, G, F, E: integer;
Procedure Nod(М, N: integer; Vаг К : integer);
begin while M<>N do { процедура вычисления НОД
}
if М>N then М: = М-N {двух натуральных чисел }
else N: = N-М; {по алгоритму Евклида }
К:=M
end;
begin write (' Введите числители и знаменатели дробей:') ;
rеаdln (А,В,С,D); {Основная программа
}
Е:=А*D-В*С; {Обращение к процедуре
}
F:=B*D; { происходит один раз
}
}
}
}
}
№23 3 – 4x + (y -
;|x| )
№ 33.Найти сумму членов арифметической прогрессии, если известны ее
первый член, знаменатель и число членов прогрессии,
№ 34.Найти все углы треугольника со сторонами а, b, с. Предусмотреть в
программе перевод радианной меры угла в градусы, минуты и секунды.
№ 35.Три сопротивления R1 ,R2, R3 соединены параллельно. Найдите
сопротивление соединения.
№ 36.Составить программу для вычисления пути, пройденного лодкой, если
ее скорость в стоячей воде υ км/ч, скорость течения реки и км/ч, время
движения по озеру t1 ч, а против течения реки — t2 ч.
Контрольные вопросы:
1.
2.
Для чего используется указание типа данных величины?
Как описывается тип величины в языке Паскаль?
3.
Охарактеризуйте целочисленные типы данных: какие они могут
принимать значения, в каких операциях могут принимать участие,
сколько места занимают в памяти.
Какие типы отношений определены над данными целого типа? Какие
стандартные функции определены для целых чисел?
Чем отличаются вещественные числа от целых?
7
46
№22 ex – x – 2 + (1 + x)x
x5|
№ 32.Дано число а. Не используя никаких функций и никаких операций,
кроме умножения, получить а8 за три операции; а10 и а16 за четыре операции.
№24 x- 10sinx + |x4 –
№25 x – 10 + cos(x – y) №26 Error! + x
№ 27.Найти площадь равнобедренной трапеции с основаниями а и b и
углом а при большем основании а.
4.
sinx
№ 28. Вычислить корни квадратного уравнения ах2 + bх + с = 0, заданного
коэффициентами a, b и с (предполагается, что а ≠ 0 и что дискриминант
уравнения неотрицателен).
№ 29.Дано действительное число х. Не пользуясь никакими другими
арифметическими операциями, кроме умножения, сложения и вычитания,
вычислить за минимальное число операций
2x4 - Зх3 + 4x2 - 5х + 6.
№ 30.Дано х. Получить значения -2х + Зх 2 - 4х 3 и
1 + 2х + 3x2 + 4х3. Позаботиться об экономии операций,
№ 31.Найти площадь треугольника, две стороны которого равны а и b, а
угол между этими сторонами равен g.
5.
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
Практическая работа № 2
Тема: Условный и составной операторы.
1. Цель работы: Ознакомиться с составным и условным операторами Паскаля
и научиться составлять программы с их использованием.
2. Краткие теоретические сведения.
Если мы хотим, чтобы переменной max присвоилось наибольшее из
значений переменных x1 и x2, то надо сравнить значения x1 и x2 и в
зависимости от результата сравнения выполнить либо оператор max : = x1,
либо max : = x2. Действия такого рода задаются условным оператором:
if B then P1 else P2,
где В – условие, P1 и P2 – операторы, if – если, then – то, else – иначе. Если В
соблюдается, то выполняется P1, иначе выполняется P2.
В качестве условий используются отношения. Отношения представляют
собой записи равенств и неравенств. Примеры отношений: a = b; d ≠ 0; sqr (b)
– 4 * a * c > 0.
В общем случае отношение – это два выражения, разделенные одним из
знаков =, <, >, ≠, ≤, ≥ (<>, >=, <=)
3. Пример. Написать программу нахождения наибольшего значения из двух
заданных целых чисел.
VAR x1, x2, max: INTEGER;
BEGIN
WRITE ('x1, x2');
READ (x1, x2);
IF x1>x2 THEN max: = a1
ELSE max: = x2;
8
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
Практическая работа №12
Тема: Подпрограммы. Процедуры и функции.
1. Цель работы: Научиться составлять программы с использованием
подпрограмм.
2. Краткие теоретические сведения:
Подпрограмма — программа, реализующая вспомогательный
алгоритм. Основная программа — программа, реализующая основной
алгоритм решения задачи и содержащая в себе обращения к подпрограммам. В
Паскале существуют два типа подпрограмм: подпрограммы-функции и
подпрограммы-процедуры. Используемые в программе нестандартные
подпрограммы должны быть описаны в разделе описания подпрограмм.
Подпрограмма-функция имеет следующий формат описания:
Function <имя функции>(<параметры-аргументы>):<тип функции> ;
<блок>;
Тип функции может быть только простым типом (в Турбо-Паскале
исключением из этого правила является тип string). Блок содержит локальные
для функции описания и раздел
операторов. Обращение к функции является операндом в выражении.
Подпрограмма-процедура имеет следующий формат описания:
Procedure <имя процедуры> (<параметры>); <блок>;
В качестве результата процедура может возвращать в вызывающую
программу множество простых или структурированных величин или не
возвращать никаких значений. Среди параметров процедуры указываются как
аргументы, так и результаты. Параметры-результаты должны быть
обязательно параметрами-переменными (описанными после служебного слова
Var). Обращение к процедуре — отдельный оператор.
Обмен данными между вызывающей программой и подпрограммой
может происходить не только через параметры, но и через глобальные
переменные.
3. Пример 1.
Вычислить разность двух простых дробей:
45
Описать логическую функцию relation(f,v), проверяющую, ли содержимое
файла f
правильной записью отношения» (см. ниже), и, если является,
присваивающую
логическому параметру v значение этого отношения.
<отношение>::=<число> <знак отношения) <число>
<знак отношения):: =< | = | > | <= | <>| >=
<число>::==<цифра> | <цифры>
<цифры> ;;= <неноль> <цифра> | <цифры> <цифра>
<неноль>::=1 |2|3|4|5|6|7|8|9
<цифра>::=0| <неноль>
№24. Описать процедуру triangle(t), формирующую текстовый файл t из 9
строк, в первой из которых - одна литера `1`, во второй - две литеры '2', ..., в
девятой - девять литер '9'.
№25. Описать процедуру line40(t), которая считывает из входного файла
литеры до первой точки и записывает их (без точки) в текстовый файл t,
формируя в нем строки по 40 литер (в последней строке литер может быть и
меньше).
№26. Описать функцию, которая:
а) подсчитывает количество пустых строк в текстовом файле t;
б) находит максимальную длину строк текстового файла t.
№27. Описать процедуру printlines(t), печатающую построчно содержимое
текстового
файла t.
№28.Пусть текстовый файл t разбит на непустые строки. Описать функцию
count(t) для подсчета числа строк, которые:
а) начинаются с буквы d;
б) оканчиваются буквой z;
в) начинаются и оканчиваются одной и той же литерой;
г) состоят из одинаковых литер.
№29.Описать процедуру присв(t1, t2), переписывающую содержимое
текстового файла t2 в текстовый файл t2 (с сохранением деления на строки).
№30.Описать процедуру присв(t1, t2), переписывающую в текстовый файл f
содержимое текстового файла t2, но без пустых строк.
Контрольные вопросы:
Что такое файл? Для каких целей используются файлы?
Каковы требования к именам файлов?
Назовите общие и отличительные черты текстовых, типизированных и
нетипизированных файлов.
Что общего у процедуры Reset и Rewrite и чем они отличаются?
Какие отличия существуют в использовании процедуры Reset при
открытии различных типов файлов (текстовых, нетипизированных)?
1.
2.
3.
4.
5.
№ 1 Даны три действительные числа. Возвести в квадрат те из них,
значения которых неотрицательны, и в четвертую степень —
отрицательные.
№ 2 Даны две точки A(x1 ,у1) и B(х2, y2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат.
№ 3 Даны два угла треугольника (в градусах). Определить, существует ли
такой треугольник. Если да, то будет ли он прямоугольным.
№ 4 Даны действительные числа х и у, не равные друг другу. Меньшее из
этих двух чисел заменить половиной их суммы, а большее — их
удвоенным произведением.
№ 5 На плоскости XOY задана своими координатами точка А. Указать,
где она расположена: на какой оси или в каком координатном углу.
№ 6 Даны целые числа т, п. Если числа не равны, то заменить каждое из
них одним и тем же числом, равным большему из исходных, а если
равны, то заменить числа нулями.
№ 7 Дано трехзначное число N. Проверить, будет ли сумма его
цифр четным числом.
44
WRITE (max);
END.
Оператор, расположенный после ELSE, может быть любым
оператором; оператор, расположенный между THEN ELSE не может быть
условным.
4. Задание1. Найти значение переменной c:
If a>b them c: = (a+b)/2
Else
If a<b then c: = a*a + b*b
Else c: = a-b;
a
b
c
B1
5
3
B2
2
3
B3
3
3
B4
6
2
B5
1
4
B6
5
5
Задание 2. Разработать программу, выполняющую следующие действия:
9
№ 8 Определить, равен ли квадрат заданного трехзначного числа
кубу суммы цифр этого числа.
№ 9 Определить, является ли целое число N четным двузначным
числом.
№ 10 Определить, является ли треугольник со сторонами а, b, с равносторонним.
№11 Определить, является ли треугольник со сторонами а, b, с равнобедренным.
№ 12 Определить, имеется ли среди чисел а, b, с хотя бы одна пара
взаимно противоположных чисел.
№ 13 Подсчитать количество отрицательных среди чисел а, b, с.
№ 14 Подсчитать количество положительных среди чисел а, b, с.
№ 15 Подсчитать количество целых чисел среди чисел а, b, с.
№ 16Определить, делителем каких чисел а, b, с является число k.
№ 17 Услуги телефонной сети оплачиваются по следующему
правилу: за разговоры до А минут в месяц оплачиваются В р., а
разговоры сверх установленной нормы оплачиваются из расчета С
р. в минуту. Написать программу, вычисляющую плату за
пользование телефоном для введенного времени разговоров за
месяц.
№ 18 Даны три стороны одного и три стороны другого треугольника.
Определить, будут ли эти треугольники равновеликими, т.е. имеют
ли они равные площади.
№ 19 Программа-льстец. На экране появляется вопрос «Кто ты:
мальчик или девочка? Введи Д иди М». В зависимости от ответа на
экране должен появиться текст «Мне нравятся девочки!» или «Мне
нравятся мальчики!».
№ 20 Грузовой автомобиль выехал из одного города в другой со
скоростью υ1 км/ч. Через t ч в этом же направлении выехал легковой
автомобиль со скоростью υ2 км/ч. Составить программу,
определяющую, догонит ли легковой автомобиль грузовой через
t1 ч после своего выезда.
10
Описать функцию less(f) от непустого файла f типа reals, которая
подсчитывает
количество элементов файла f, меньших среднего арифметического всех
элементов
этого файла.
№17. tуре человек = rесоrd
имя:раскеd аrrау [1..9] оf char;
возраст:1...99
еnd;
группа =filе оf человек;
Описать процедуру Самые Молодые (ГР), печатающую имена всех людей из
непустой
группы ГР, имеющих наименьший возраст.
№18. Дана непустая последовательность слов, содержащих от 1 до 8 букв;
между соседними словами - запятая, за последним словом – точка.
Напечатать все
слова, от последнего слова,
№19. Дана непустая последовательность слов, содержащих от 1 до 8 букв;
между соседними словами—запятая, за последним словом—точка.
Напечатать все
слова наименьшей длины.
№20. tуре текст =filе оf сhаr; Описать процедуру;
а) аdd1(t,с), добавляющую литеру с в начало текста t;
б) addlast(t,с), добавляющую литеру с в конец текста t;
в) double(t,c), удваивающую в тексте 1 каждую цифру;
г) гер1асе(1,с), заменяющую последнюю литеру непустого текста t на
литеру с;
д) next(t), заменяющую в тексте t каждую цифру ва следующую по
величине цифру ('9' заменять на '0');
е) delete(t), удаляющую из текста t все литеры '+' и '-';
ж) del(t), удаляющую из текста t предпоследний элемент, если такой
есть;
з) firsts(t), оставляющую в тексте t только первые вхождения каждой
литеры.
№21. При условии, что известен тип (Ф) файлов f и g, но не известен тип их
элементов,
описать процедуру присв(f,g), присваивающую файлу f содержимое файла
g.
№22. tуре FR=file оf rеа1;
Описать функцию incr(f), определяющую количество элементов в наиболее
длинной
возрастающей последователь файла f.
№23. tуре файл=file of char;
43
Описать логическую функцию еq(f, g), проверяющую на равенство файлы f и g
типа
ФВ.
№8. tуре слово=file of char;
Описать логическую функцию less(w1, w2), проверяющую, предшествует
ли
лексикографически слово w1 слову w2.
№9. tуре FR=filе of real;
Описать функцию предпосл(f), значением которой является предпоследний
элемент
файла f, имеющего тип FR и содержащего не менее двух элементов.
№10. var f:file of integer; i:integer;
Определить содержимое файла f после выполнения следующих операторов:
а) rewrite(f);
if eof(f) then write(f,1) else write(f,2);
if eof(f) then write(f,3) else write(f,4);
б) rewrite(f);
for i:=3 downto 1 do write(f, sqr(i));
№11. tуре строка =расcked аrrау [1...100] оf сhаr;
текст = filе оf сhаr;
Описать процедуру цифры(s,t), которая записывает в текст t все цифры из
строки s.
№12. tуре ряд=filе оf 1..mахint;
Описать процедуру fib(f,n), записывающую в ряд f все числа Фибоначчи
(1, 1, 2, 3, 5 ...), не превосходящие целого положительного числа n.
№13. tуре FВ=filе оf bооlеаn;
Описать процедуру присв(f,g) от двух файлов типа FВ, которая файлу f
присваивает
содержимое файла g.
№14. tуре lеttег=filе оf 'a'...'z`;
Описать процедуру арреnd(f,g,h) от трех файлов типа letters, которая
записывает в
файл f сначала все элементы файла g, а затем все элементы файла h.
№15.
tуре
дата
=
rесоrd
месяц:
(янв,фев,мар,апр,май,июн,июя,авг,сен,окт,ноя,дек);
число:1...31
еnd;
ФД= file оf дата;
Описать процедуру зап(d,s,w) от трех файлов типа ФД, которая из файла d
переписывает в файл s все летние даты, а в файл w- все зимние даты.
№16. tуре геаls=filе оf rеаl;
№ 25 Написать программу, распознающую по длинам сторон среди
всех треугольников прямоугольные. Если таковых нет, то вычислить
величину угла С.
Контрольные вопросы:
1.
2.
3.
Что такое оператор? Чем отличаются простые и структурные операторы?
Что представляет собой составной оператор? Как ограничиваются
операторы, объединенные в составной оператор?
Назначение, формы записи и порядок выполнения оператора условия if?
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
42
№ 21 Перераспределить значения переменных х и у так, чтобы в х
оказалось большее из этих значений, а в у — меньшее.
№ 22 Определить правильность даты, введенной с клавиатуры
(число — от 1 до 31, месяц — от 1 до 12). Если введены некорректные
данные, то сообщить об этом.
№ 23 Составить программу, определяющую результат гадания на
ромашке — «любит — не любит», взяв за исходное данное количество лепестков п.
№ 24 Написать программу нахождения суммы большего и меньшего из 3 чисел.
11
Практическая работа №3
Тема: Условный и составной операторы.
1. Краткие теоретические сведения.
Если мы хотим, чтобы переменной max присвоилось наибольшее из
значений переменных x1 и x2, то надо сравнить значения x1 и x2 и в
зависимости от результата сравнения выполнить либо оператор max : = x1,
либо max : = x2. Действия такого рода задаются условным оператором:
if B then P1 else P2,
где В – условие, P1 и P2 – операторы, if – если, then – то, else – иначе. Если В
соблюдается, то выполняется P1, иначе выполняется P2.
В качестве условий используются отношения. Отношения представляют
собой записи равенств и неравенств. Примеры отношений:
a=b
d ≠0
sqr (b) – 4 * a * c > 0
В общем случае отношение – это два выражения, разделенные одним из
знаков =, <, >, ≠, ≤, ≥ (<>, >=, <=)
2. Пример. Для решения задачи о max достаточно:
VAR x1, x2, max: INTEGER;
BEGIN
WRITE ('x1, x2');
READ (x1, x2);
IF x1>x2 THEN max: = a1
ELSE max: = x2;
WRITE (max);
END.
Оператор, расположенный после ELSE, может быть любым
оператором; оператор, расположенный между THEN ELSE не может быть
условным.
3. Задание1. Найти значение переменной c:
If (a<b) and (b<c) then d:= c-a+b
Else
12
3. Задание. Разработать программу, выполняющую следующие действия:
№1. var f:file of integer; x,y:integer;Пусть файл f содержит два элемента – 3
и 7. Определить, какое значение будет иметь переменная y после
выполнения, следующих операторов:
а) reset(f); read(f,у);
if nit eof(f) then read(f,у);
if not eof(f) then read(f,у);
б) reset(f) then read(f,у);
while not eof(f) do
begin read(f,x);
у:=у+х end;
в) reset(f); у:=1;
rереat rеаd(f,х); у:=y*х until eof(f)
№2. tуре слово = file of char;
Найти ошибки в приведенном ниже описании функции длина(w), которая
должна
определять
количество элементов в произвольном слове w:
function длина (w:слово):integer;
var k:integer; с:сhar;
begin reset(w); k:=0;
rереаt rеаd(w, с); k:=k+1 until еоf(w);
длина;=k
еnd
№3. tуре серия =file of rеаl;
Описать функцию отриц(s), подсчитывающую сумму отрицательных
элементов в
серии s.
№4. tуре цена = rесоrd руб:0..maxint; коп;0..99 end;
прейскурант =file of цена;
Описать процедуру min(П, Ц), присваивающую параметру Ц
наименьшую цену
из непустого прейскуранта П.
№5. tуре ряд=file of 0...999;
Описать логическую функцию упор(r), проверяющую, упорядочены ли по
возрастанию элементы непустого ряда r.
№6. tуре текст=file of char;
Описать логическую функцию еq{t1 ,t2), проверяющую тексты t1 и t2 на
равенство.
№7. tуре время == record час:0..23;мин, сек:0...59 end;
ФВ=file оf время;
41
Типы файлов:
Текстовый файл – последовательность символов, разбитую на строки длиной
от 0 до 256 символов. Описание: var
F: text; {F – файловая переменная}
Процедуры:
Append( var F: text); открывает уже существующий файл и ставит указатель
на конец файла;
Readln – то же, что и Read, и дополнительно – чтение маркера конца строки и
переход к новой строке; Readln(var F: text; V1 [,V2,…Vn]; V1…Vn –
переменные разных типов.
Writeln – запись всех величин с установкой маркера конца строки в файл;
Writeln(var F: text; V1 [,V2,…Vn]; V1…Vn – переменные разных типов.
Функции:
Eoln(var F: text) возвращает булевское значение True, если текущая
файловая позиция находится на маркере конца строки или вызов Eof(F)
возвратил значение Truе. Во всех других случаях значение функции будет
False.
Eof(var F:text) возвращает булевское значение True, если указатель конца
файла находится сразу за последним компонентом, и False – в противном
случае.
Типизированные файлы – файлы строго определенного типа. Применяются для
создания баз данных.
type
FileRec=record
…
end;
var
F: file of FileRec
Нетипизированные файлы – эти файлы не имеют определенного типа
(UntypedFile: File;)
Для таких файлов самым важным параметром служит длина записи в
байтах. Открытие нетипизированного файла с длиной записи в 1 байт можно
выполнить следующим образом: Rewrite(UntypedFile, 1); или
Reset(UntypedFile, 1);
Для более быстрого ввода-вывода: BlockRead(var F: file ; var Buf ; Count :
word
BlockWrite(var F: file ; var Buf ; Count :
word
Buf – любая переменная, используемая для накопления информации из файла
F.
Count – число считываемых блоков.
40
C
d
№ 3 Даны четыре точки А1(х1,у1), А2(х2,у2), АЗ(х3,у3), А4(х4,,у4).
Определить, будут ли они вершинами параллелограмма.
№ 4 Даны три точки А(х1 ,y,), В(х2, у2 )и С(х3, у3). Определить, будут ли
они расположены на одной прямой.
№ 5 Даны действительные числа а, b, с. Удвоить эти числа, если а<b<с, и
заменить их абсолютными значениями, если это не так.
№ 6 На оси ОХ расположены три точки а, b, с. Определить, какая из точек
b, с расположена ближе к а.
№ 7 Даны три положительных числа а, b, с. Проверить, могут ли они быть
длинами сторон треугольника. Если да, то вычислить площадь этого
треугольника.
№ 8 Написать программу решения уравнения ах3 + bх = 0 для
произвольных а, b.
13
If (a>b) and (b>c) then d:= a-b+c
Else
If (a>b) and (b<c) then d:= a-c+b
A
B
№ 2 Даны три числа а, b, с. Определить, какое из них равно d.
Если ни одно не равно d, то найти max(d-a, d-b, d-c).
№ 9 Дан круг радиуса R. Определить, поместится ли правильный
треугольник со стороной а в этом круге.
B1
2
3
B2
5
3
B3
5
2
B4
4
3
B5
6
3
B6
2
5
4
1
4
5
1
7
№ 10 Даны числа х, у, z. Найти значение выражения:
max 2 (х, у, z) - 2 х • min (x, у, z)
№ 11 Дано число х. Напечатать в порядке возрастания числа: sin х, cos х,
In х. Если при каком-либо х некоторые из выражений не имеют смысла,
вывести сообщение об этом и сравнивать значения только тех, которые
имеют смысл.
№ 12 Заданы размеры А, В прямоугольного отверстия и размеры X, Y, Z
кирпича. Определить, пройдет ли кирпич через отверстие.
Задание2. Разработать программу, выполняющую следующие действия:
№ 1 Найти max{min(a, b), min(c, d)}.
№ 13 Составить программу, осуществляющую перевод величин из
радианной меры в
градусную или наоборот. Программа должна
запрашивать, какой перевод нужно осуществить, и выполнять указанное
действие.
№ 14 Два прямоугольника, расположенные в первом квадранте, со
сторонами, параллельными осям координат, заданы координатами своих
левого верхнего и правого нижнего углов. Для первого прямоугольника это
точки (xl ,y1) и (х2, 0), для второго — (x3, y3), (х4 ,0). Составить программу,
определяющую, пересекаются ли данные прямоугольники, и вычисляющую
площадь общей части, если они пересекаются.
№ 15 В небоскребе N этажей и всего один подъезд; на каждом этаже по 3
квартиры; лифт может останавливаться только на нечетных этажах. Человек
садится в лифт и набирает номер нужной ему квартиры М. На какой этаж
должен доставить лифт пассажира?
№ 16 Написать программу, которая по заданным трем числам определяет,
является ли сумма каких-либо двух из них положительной.
№ 17 Известно, что из четырех чисел а1 а2, а3 и а4 одно отлично от трех
других, равных между собой; присвоить номер этого числа переменной n.
№ 18 Составить программу, которая проверяла бы, не приводит ли
суммирование двух целых чисел А и B к переполнению (т.е. к результату
большему, чем 32767). Если будет переполнение, то сообщить об этом, иначе
вывести сумму этих чисел.
14
Для доступа к файлу описывается специальная файловая переменная и
обозначается как F, если файл состоит из записей, то описывается ещё
переменная для доступа к полям записи R.
type
<имя типа> = <тип компонентов>;
var
<F>: file of <имя типа>;
<R>: <имя типа>;
Каждому файлу в языке ставится в соответствии файловая переменная
определенного типа, поэтому для работы с файлом надо установить данное
соответствие. Для этого используется процедура Assign (var F; Name: string); F
– переменная любого типа.
Способы открытия файла:
Reset( var F: file); - открывает существующий файл;
Rewrite( var F: file); - создает и открывает новый файл.
Для нетипизированных файлов добавляется параметр RecSize типа Word,
который
устанавливает длину записи для функций обмена с файлом:
Reset( var F: file; RecSize: word);
Закрытие файла: Close (var F);
Переименование неоткрытого файла: Rename (var F; NewName: string);
Удаление неоткрытого файла: Erase (var F);
39
№23. Вывести на экран фамилии, имена, номера групп иногородних
студентов (не проживающих в Уфе). Найти их количество.
Практическая работа № 11
Тема: Файловый тип.
1. Цель работы: ознакомиться с файловым типом.
2. Краткие теоретические сведения:
Файлом называется совокупность данных, записанная во внешней
памяти под определенным именем. Имя файла – это любое выражение
строкового типа, содержит до 8 разрешенных символов (латинские буквы,
цифры и символы: ! @ # % ^ & ( ) ' ~ - _ ), за именем может быть разрешение –
последовательность до 3-х разрешенных символов, отделяется от имени
точкой.
В большинстве случаев файлы состоят из текстовых строк, или записей.
Для описания файла используется сочетание file of:
of
file
ТИП
№24. Вывести на экран список старост групп колледжа: указать фамилию,
имя, номер группы.
№25. Найти процент мужчин и процент женщин, работающих на
предприятии. Сделать вывод о том, кого больше.
№26. Найти количество и вывести на экран фамилии, имена и номера
групп студентов, имеющих задолженность хотя бы по одной дисциплине.
№27. Среди студентов колледжа найти процент студентов, имеющих
«хорошие» и «отличные» оценки по итогам сессии.
№28. Среди студентов колледжа найти процент студентов мужского пола
призывного возраста.
№ 23 Написать программу решения системы линейных уравнений
№29. Среди студентов колледжа найти процент иногородних и
«уфимских» студентов. Сделать выводы о том, кого больше.
№30. Среди сотрудников предприятия найти фамилию, имя, должность
сотрудника, имеющего максимальный стаж.
Контрольные вопросы:
1.
2.
3.
4.
5.
Почему запись называют комбинированным типом данных?
Как определяется тип записи? Что называется полем записи?
Чем определяется объем памяти, требуемый для размещения записи?
Что такое составное имя поля записи? Из каких частей оно состоит и как
записывается.
Зачем применяются записи с вариантами? Из каких частей состоит запись
с вариантами?
№ 24 Даны три положительных числа. Определить, можно ли построить
треугольник с длинами сторон, равным этим числам. Если можно, то
ответить на вопрос, является ли он остроугольным.
№ 25 Найти координаты точек пересечения прямой у = kx + b и окружности
радиуса R с центром в начале координат. В каких координатных четвертях
находятся точки пересечения? Если точек пересечения нет или прямая
касается окружности, выдать соответствующее сообщение.
№ 26 Заданы координаты вершин прямоугольника: (x1, у1), (х2, у2), (x3, y3), (x4,
у4). Определить площадь части прямоугольника, расположенной в 1-й
координатной четверти.
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
Контрольные вопросы:
1.
2.
3.
Что представляет собой составной оператор? Как ограничиваются
операторы, объединенные в составной оператор?
Назначение, формы записи и порядок выполнения оператора условия if?
Особенности использования вложенных условных операторов?
38
№ 19 Даны действительные числа а, b, с (а > 0). Полностью исследовать
биквадратное уравнение аx4 + bх2 + с = 0, т.е. если действительных корней нет,
то должно быть выдано сообщение об этом, иначе найти действительные
корни, сообщив, сколько из них являются различными.
15
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
№ 20 Дана точка А(х, у). Определить, принадлежит ли она треугольнику с
вершинами в точках (х1, у1), (х2 ,у2), (x3, у3).
№ 21 Написать программу, определяющую, будут ли прямые А1x + B1y
+ С1 = 0 и А2х + В2у + С2=0 перпендикулярны. Если нет, то найти угол между
ними.
№ 22 Если сумма трех попарно различных действительных чисел X, Y, Z
меньше единицы, то наименьшее из этих трех чисел заменить полусуммой
двух других; в противном случае заменить меньшее из X, Y полусуммой двух
оставшихся значений.
Практическая работа №4
Тема: Оператор цикла с предусловием.
1. Краткие теоретические сведения:
Многократно повторяемые действия могут быть заданы операторами
цикла.
while условие do оператор
Выполняется этот оператор цикла так: проверяется условие, и если оно
удовлетворяется, то выполняется оператор, а затем вновь проверяется условие
и т.д. Как только на очередном шаге окажется, что условие не
удовлетворяется, то выполнение оператора цикла прекращается.
while x ≤ 0 do x :=х+ 1, если значения х положительно, то выполнение
оператора цикла прекратится после первой же проверки условия x ≤ 0, и
значение переменной х не измениться. Если же значение х не положительно,
то к этому значению будет добавляться по единице до тех пор, пока значение
не станет положительным.
2. Пример:
Пусть даны числа a, b (a > 1) и надо получить все члены бесконечной
последовательности a, a2, a3, … меньше числа b.
var a, b, c : real;
begin
read (a, b); c := a;
while c < b do
begin
writeln (c); c := c * a
end
end.
Если a ≥ b, то не будет выведено ни одного члена последовательности
a, a2, a3.
16
№9. Найти среди сотрудников предприятия фамилию, имя, отчество и
должность самого старшего.
№10. Найти среди сотрудников предприятия фамилию, имя, отчество и
должность самого младшего.
№11. Найти среди сотрудников предприятия количество человек,
проработавших на этом предприятии более 10 лет и вывести на экран их
фамилии, имена и должности.
№12. Найти среди сотрудников предприятия количество ветеранов,
проработавших на этом предприятии более 20 лет и вывести на экран их
фамилии, имена и должности.
№13. Найти и вывести на экран фамилии, имена и номера групп
студентов, имеющих наибольший средний балл по итогам сессии.
№14. Найти и вывести на экран фамилии, имена и номера групп
студентов, имеющих наименьший средний балл по итогам сессии.
№15. Вывести на экран данные о днях рождения студентов по месяцам.
№16. Среди студентов группы найти имя и фамилию самого старшего.
№17. Среди студентов группы найти имя и фамилию самого младшего.
№18. Вывести на экран фамилии, имена, отчества сотрудников
предприятия, имеющих детей младше 15 лет. Найти их количество.
№19. Вывести на экран фамилии, имена, отчества и должности
незамужних женщин в возрасте старше 18 лет. Найти их количество.
№20. Вывести на экран фамилии, имена, отчества и должности холостых
мужчин в возрасте старше 18 лет. Найти их количество.
№21. Вывести на экран фамилии, имена, номера групп студентов,
проживающих в Уфе. Найти их количество.
№22. Вывести на экран фамилии, имена, номера групп студентов,
имеющих право по возрасту принять участие в выборах. Найти их
количество.
37
Вариант 5.
Создать комбинированный тип HOSPITAL (больница), полями
которого являются:
фамилия больного, его инициалы, его возраст, диагноз, фамилия лечащего
врача.
Вариант 6.
Создать комбинированный тип SUPERMARKET, полями которого
являются: наименование товара, дата его поставки, цена, наименование
поставщика.
Задание 2. Разработать программу, выполняющую следующие действия:
№1. Найти количество и вывести на экран фамилии, имена и номера групп
студентов, подлежащих отчислению по итогам сессии, состоящей из трех
экзаменов.
№2. Вывести на экран названия экзаменационных дисциплин и средний
балл за экзамен по каждой из дисциплин.
№3. Найти количество и вывести на экран фамилии, имена и номера групп
студентов, имеющих средний балл > 4.2 по итогам сессии, состоящей из
трех экзаменов.
Задание 2. Разработать программу, выполняющую следующие действия:
№1 Имеется серия измерений элементов треугольника. Группы элементов
пронумерованы. В серии в произвольном порядке могут встречаться такие
группы элементов треугольника:
* основание и высота;
* две стороны и угол между ними (угол задан в радианах);
* три стороны.
Разработать программу, которая запрашивает номер группы элементов,
вводит соответствующие элементы и вычисляет площадь треугольника.
Вычисления прекратить, если в качестве номера группы введен 0.
№4. Найти и вывести на экран фамилию преподавателя и название
дисциплины, по которой больше всего хороших и отличных оценок за
экзамен.
№ 2 Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый
день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой
суммарный путь пробежит спортсмен за 7 дней?
№5. Найти и вывести на экран средний балл по итогам сессии по каждой
группе.
№ 3 Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить,
сколько амеб будет через 3, 6, 9, 12, ..., 24 часа.
№6. Найти и вывести на экран фамилию преподавателя и название
дисциплины, по которой больше всего неудовлетворительных оценок за
экзамен.
№7. Найти среди сотрудников предприятия количество мужчин
призывного возраста и вывести на экран их фамилии, имена и должности.
№8. Найти среди сотрудников предприятия количество мужчин и женщин
пенсионного возраста и вывести на экран их фамилии, имена и должности
(сначала мужчин, затем женщин).
36
3. Задание 1. Найти значение переменной c:
While a<b do
Begin
C:= c+a*b;
A:= a+1;
End;
B1
B2
B3
B4
B5
B6
a
2
1
3
-1
0
-2
b
4
3
5
2
3
1
c
3
2
1
5
4
3
c
№ 4 Около стены наклонно стоит палка длиной х м. Один ее конец находится
на расстоянии у м от стены. Определить значение угла а между палкой и
полом для значений х = k м и у, изменяющегося от 2 до 3 м с шагом h м.
№ 5 У гусей и кроликов вместе 64 лапы. Сколько могло быть кроликов и
гусей (указать все сочетания, которые возможны)?
№ 6 Составить алгоритм решения задачи: сколько можно купить быков,
коров и телят,
платя за быка 10 р., за корову — 5 р., а за теленка — 0,5 р.,
если на 100 р. надо купить 100 голов скота?
17
№ 7 Доказать (путем перебора возможных значений), что для любых
величин А, В, С типа Boolean следующие пары логических выражений имеют
одинаковые значения (эквивалентны):
1) A OR В и В OR A;
2) A AND В и В AND А;
3) (A OR Б) OR С и A OR С;
4) (A AND В) AND С и A AND (В AND С);
5) A AND (A OR В) и А;
6) A OR (A AND В) и А;
7) A AND (Б OR С) и (A AND Б) OR (A AND С);
8) A OR (Б AND С) и (A OR В) AND (A OR С).
№ 8 Составить программу для проверки утверждения: «Результатами
вычислений по формуле х2 + х + 17 при О ≤ х ≤15 являются простые числа».
Все результаты вывести на экран.
№ 9 Составить программу для проверки утверждения: «Результатами
вычислений по формуле х2 + х + 41 при 0 ≤ х ≤ 40 являются простые числа».
Все результаты вывести на экран.
№ 10 Составить программу-генератор чисел Пифагора а, b, с (с2 = а2 +
b2). В основу положить формулы: а = m2 - n2, b = 2т • п, с = т2 + п2 (т, п —
натуральные, 1 < т < k, 1 < п < k, k — данное число). Результат вывести
на экран в виде таблицы из пяти столбцов: т, п, а, b, с.
№ 11Покупатель должен заплатить в кассу S р, У него имеются 1, 2, 5, 10,
50, 100, 500 р. Сколько купюр разного достоинства отдаст покупатель, если
он начинает платить с самых крупных?
№ 12 Ежемесячная стипендия студента составляет А р., а расходы на
проживание превышают стипендию и составляют Б р. в месяц. Рост цен
ежемесячно увеличивает расходы на 3%. Составьте программу расчета
необходимой суммы денег, которую надо единовременно попросить у
родителей, чтобы можно было прожить учебный год (10 месяцев),
используя только эти деньги и стипендию.
№ 13 Составить программу, которая печатает таблицу умножения и
сложения натуральных чисел в десятичной системе счисления.
№ 14 Составить программу, которая печатает таблицу умножения и
сложения натуральных чисел в шестнадцатеричной системе счисления.
№ 15 Найти сумму всех n-злачных чисел (1 ≤ n ≤ 4).
№ 16 Найти сумму всех n-значных чисел, кратных k (1 ≤ n ≤ 4).
3. Пример: Создать комбинированный тип student, полями которого являются:
фамилия, имя,
номер группы, год рождения, пол студента.
Type STUDENT = record
Name: string [10];
Full name: string [15];
Gr_Num: string [3];
Year: integer;
Sex: char;
End;
4. Задание1:
Вариант 1.
Создать комбинированный тип LIBRARY (библиотека), полями
которого являются: фамилия писателя, его инициалы, название книги, год ее
издания.
Вариант 2.
Создать комбинированный тип SESSION (сессия), полями которого
являются: фамилия студента, его инициалы, название дисциплин, оценки за
экзамены.
Вариант 3.
Создать комбинированный тип VIDEO, полями которого являются:
название фильма, год его выхода, фамилия режиссера.
Вариант 4.
Создать комбинированный тип PERSONAL, полями которого
являются: фамилия
сотрудника, его инициалы, название должности, номер отдела, размер оклада.
18
пол – логически (boolean), мужской – true, женский – false.
Ни один из рассмотренных ранее типов не позволяет манипулировать
с такой
совокупностью данных. В частности, такие структуры необходимы при
создании базы данных.
В Паскале реализован такой тип данных, который позволяет работать
с такой
совокупностью, он называется комбинированным типом, значения которого
называются
записями.
Записи состоят из полей. Каждое поле имеет уникальное имя и тип.
35
3. Задание:
A-множество букв имени студента
B-множество букв фамилии студента
Var c:char, A,B: set of char;
For C:= 'a' to 'z' do
If in A+B then write (c);
Какая последовательность символов будет выведена на экран?
Контрольные вопросы:
1.
2.
3.
4.
5.
Что такое множество? Каким требованиям должны удовлетворять
все элементы множества?
Что такое базовый тип множества? Как он задается?
Как задается описание множественного типа?
Что называется объединением множеств?
Что называется пересечением множеств?
Список литературы:
1.
2.
3.
Каково назначение операторов повтора (цикла)?
Какие требования предъявляются к выражениям, управляющим
повторениями?
В чём отличия операторов повтора while и repeat?
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
Практическая работа №5
Тема: Оператор цикла с постусловием.
Практическая работа № 10.
Тема: Комбинированные типы (записи).
1. Цель работы: Ознакомится с основными приемами действий с записями.
2. Краткие теоретические сведения:
Понятие комбинированного типа (для чего нужен?).
Рассмотрим следующую ситуацию: необходимо хранить сведенья о группе
учащихся. Нас будет интересовать: Ф. И. О., год рождения, номер группы, пол
и т.д.
Каждая из характеристик имеет свой тип:
Ф. И. О. – строки, - string (array [ ] of char);
год рождения – число – integer;
номер группы – строка – string;
34
№ 17 Покажите, что для всех n = 1, 2, 3, N
(1 2 + 25+ ... + n5) + (17+2 7 + ... + n7) = 2 (1 + 2+ ... + n) 4.
№ 18 Замените буквы цифрами так, чтобы соотношение оказалось верным
(одинаковым буквам соответствуют одинаковые цифры, разным —
разные):
ХРУСТ • ГРОХОТ = РРРРРРРРРРР.
Контрольные вопросы:
1. Краткие теоретические сведения:
repeat оператор while условие
Выполняется этот оператор так: выполняются операторы, проверяются
условие, если оно не выполняется, то вновь выполняются операторы, если
условие выполняются, – цикл заканчивается. Если условие выполняется с
самого начала, то операторы выполняются один раз. Если условие никогда не
выполняется, то группа операторов выполняется бесконечное число раз,
происходит "зацикливание".
repeat c := c + 1/ x; x := x – 1
until x = 0;
Сначала выполняется оператор c := c + 1/ x; x := x – 1, затем проверяется
условие х = 0. Если х ≠ 0, то проверяется выполнение указанных операторов,
если х = 0, то управление передается на оператор, следующий за строкой until x
= 0.
19
2. Пример:
Вычислить сумму: 1 + 1/2+ 1/3 + …
использованием repeat …until.
var S : real; N : integer;
begin
S := Ø; N := 1;
repeat S := S + 1 / N; N := N + 1;
until N > 50;
write (S)
end.
Результат S = 4,499…
+ 1/50 с
3. Задание1.
Repeat
B:= b+1;
A:= a-b;
C:= a+b;
Until a≤0;
B1
Найти значение переменной с:
end.
B2
B3
B4
B6
В5
A
B
С
10
5
s5 := [4, 5];
s6 := [3..9];
.....
9
4
8
3
7
3
6
2
5
1
Задание 2. Разработать программу, выполняющую следующие действия:
№ 1 Дано натуральное число N. Вычислить:
S = Error! + Error! + … + Error!
№ 2 Дано натуральное число N. Вычислить произведение первых N
сомножителей
В этом примере множества S1 и S2 эквивалентны, а множество S3
включено в S2, но не эквивалентно ему.
Описание типа множества имеет вид:
<имя типа> = set of <баз.тип>
Здесь <имя типа> - правильный идентификатор;
Set, of – зарезервированные слова (множество, из);
<баз.тип> - базовый тип элементов множества, в качестве которого может
использоваться любой порядковый тип, кроме WORD, INTEGER, LONGIT.
Для задания множества используется так называемый конструктор
множества: список спецификаций элементов множества, отделяемых друг от
друга запятыми; список обрамляется квадратными скобками. Спецификациями
элементов могут быть константы или выражения базового типа, а также – типдиапазон того же базового типа.
P = Error!  Error!  Error!  …  Error!
№ 3 Дано натуральное число N. Вычислить:
Error! Error!  …  Error!
20
Пример определения и задания множеств:
Type
DigitChar = set of '0' .. '9' ;
Digit
= set of 0 .. 9 ;
Var
S1,s2,s3 : digitChar;
S4,s5,s6 : digit;
Begin
.....
s1 := ['1' , '2' , '3'];
s2 := ['3' , '2' , '1'];
s3 := ['2' , '3'];
s4 := [0..3, 6];
33
№29. В целочисленной матрице размерностью 10*10 определить, каких
элементов: положительных или отрицательных больше.
№30. В целочисленной матрице размерностью 10*10 определить, каких
элементов: четных или нечетных больше.
Контрольные вопросы:
1.Что такое матрица?
2.Как определить местоположение элемента в матрице?
3.Что такое индекс? Каким требованиям он должен удовлетворять?
4.Особенности расположения в памяти элементов многомерных массивов.
5.Каким образом задаётся описание матрицы, что в нём указывается?
Р = а (а + 1) х … х (а + n- 1)
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
№ 7 Дандействительное число а, натуральное число n. Вычислить:
Р = а (а - n)(а – 2n) х ... х (а - n 2 ).
№ 8 Даны действительное число а, натуральное число n. Вычислить:
S = Error! + Error! + Error! + … + Error!
Практическая работа №9
Тема: Множественный тип.
1. Цель работы: Ознакомится с основными приемами действий с
множествами.
2. Краткие теоретические сведения:
Множества – это наборы однотипных логически связанных друг с
другом объектов. Характер связей между объектами лишь подразумевается
программистом и не как не контролируется Турбо Паскалем. Количество
элементов, входящих в множество, может меняться в пределах от 0 до 256
(множество, не содержащее элементов, называется пустым). Именно
непостоянством количества своих элементов множества отличаются от
массивов и записей.
Два множества считаются эквивалентными тогда и только тогда, когда
все их элементы одинаковы, причем порядок следования элементов в
множестве безразличен. Если все элементы одного множества входят также и
в другое, говорят о включении первого множества во второе. Пустое
множество включается в любое другое.
№ 9 Даны натуральное n действительное х. Вычислить:
sinx + sinx2 +...+ sinn.
№ 10 Дано натуральное n. Вычислить:
S - 1 • 2 +2 - 3 • 4 + ... + n •(n + 1) х ... х 2n.
№ 11 Дано натуральное число n. Вычислить:
P = (1 - Error!)(1 - Error!)*…*(1 - Error!), где n>2
№ 142 Дано натуральное число n. Вычислить:
P = (1 - Error!)(1 - Error!)(1 - Error!)*…*(1 - Error!)
№ 13 Дано натуральное число n. Вычислить:
S= 1! + 2! + 3! + ... + n! (n>1).
21
№ 14 Дано натуральное число n. Вычислить:
S = Error! + Error! + Error!+ … + Error!
32
№ 4 Дано действительное число х. Вычислить:
№ 15 Дано натуральное n. Вычислить: у - 1 • 3 • 5 х ... х (2n - 1).
№ 16 Дано натуральное n. Вычислить: у - 2 • 4 • 6 x ... х (2n).
x - Error! + Error! - Error! + Error! - Error! + Error!
№ 5 Даны натуральное n, действительное х. Вычислить:
№ 17 Вычислить: у = cosx + cosx2 + cosx3 + ... + cosxn.
№ 18 Вычислить: у = sinl + sinl,l + sinl,2 + ... sin2.
S = sinx + sinsinx + … sinsin…sinx
Контрольные вопросы:
n раз
1.
2.
№ 6 Даны действительное число а, натуральное число n. Вычислить:
3.
Каково назначение операторов повтора (цикла)?
Какие требования предъявляются к выражениям, управляющим
повторениями?
В чём отличия операторов повтора while и repeat?
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
№21. В целочисленной матрице размерностью 10*10 найти сумму элементов
четных столбцов.
№22. В целочисленной матрице размерностью 10*10 найти произведение
элементов четных столбцов.
№23. В целочисленной матрице размерностью 10*10 найти сумму
положительных элементов четных строк.
Практическая работа №6
Тема: Оператор цикла с параметром.
1. Краткие теоретические сведения:
for i := число 1 to число 2 do оператор
i – переменная типа integer, которая называется параметром цикла. Такой
оператор цикла
заставляет i принимать значения число 1, число 1 + 1, число 1 + 2, …, число 2.
Для каждого из
значения выполняется оператор. Если число 1 > число 2, оператор не будет
выполнен не разу.
S=Ø
for i := 1 to n do S := S + i * i * i
После выполнения S = 13 + 23 + … + n3.
№24. В целочисленной матрице размерностью 10*10 найти сумму
положительных элементов нечетных строк.
№25. В целочисленной матрице размерностью 10*10 найти сумму
отрицательных элементов четных строк.
№26. В целочисленной матрице размерностью 10*10 найти сумму
отрицательных элементов нечетных строк.
№27. В целочисленной матрице размерностью 10*10 найти произведение
положительных элементов четных столбцов.
№28. В целочисленной матрице размерностью 10*10 найти произведение
отрицательных элементов нечетных столбцов.
22
№15. В целочисленной матрице размерностью 10*10 найти сумму
элементов четных строк.
№16. В целочисленной матрице размерностью 10*10 найти произведение
элементов четных строк.
№17. В целочисленной матрице размерностью 10*10 найти сумму
элементов нечетных строк.
№18. В целочисленной матрице размерностью 10*10 найти произведение
элементов нечетных строк.
№19. В целочисленной матрице размерностью 10*10 найти произведение
элементов нечетных столбцов.
№20. В целочисленной матрице размерностью 10*10 найти сумму элементов
нечетных столбцов.
31
3.Задание: Разработать программу, выполняющую следующие действия:
№1. В целочисленной матрице размерностью 10*10 найти наибольший
элемент и номер строки, в которой он находится.
№2. В целочисленной матрице размерностью 10*10 найти наименьший
элемент и номер столбца, в которой он находится.
№3. В целочисленной матрице размерностью 10*10 найти номер столбца
содержащего максимальный элемент матрицы.
№4. В целочисленной матрице размерностью 10*10 найти номер строки,
содержащей минимальный элемент матрицы.
№5. В целочисленной матрице размерностью 10*10 найти номер строки,
содержащей наибольшее среднее значение.
№6. В целочисленной матрице размерностью 10*10 найти номер столбца,
содержащего наибольшее среднее значение.
№7. В целочисленной матрице размерностью 10*10 найти номер строки,
содержащей наименьшее среднее значение.
№8. В целочисленной матрице размерностью 10*10 найти номер столбца,
содержащего наименьшее среднее значение.
№9. В целочисленной матрице размерностью 10*10 найти разность между
наибольшим и наименьшим элементами матрицы.
№10. В целочисленной матрице размерностью 10*10 поменять местами
наибольшие и наименьшие элементы матрицы.
№11. В целочисленной матрице размерностью 10*10 найти номер строки,
содержащей наибольшее произведение её элементов.
№12. В целочисленной матрице размерностью 10*10 найти номер строки,
содержащей наименьшее произведение её элементов.
№13. В целочисленной матрице размерностью 10*10 найти номер столбца,
содержащего наибольшее произведение элементов.
№14. В целочисленной матрице размерностью 10*10 найти номер столбца,
содержащего наибольшее произведение его элементов.
Задание 2. Разработать программу, выполняющую следующие действия:
№1 Имеется серия измерений элементов треугольника. Группы элементов
пронумерованы. В серии в произвольном порядке могут встречаться такие
группы элементов треугольника:
* основание и высота;
* две стороны и угол между ними (угол задан в радианах);
* три стороны.
Разработать программу, которая запрашивает номер группы элементов,
вводит соответствующие элементы и вычисляет площадь треугольника.
Вычисления прекратить, если в качестве номера группы введен 0.
№ 2 У гусей и кроликов вместе 64 лапы. Сколько могло быть кроликов и
гусей (указать все сочетания, которые возможны)?
№ 3 Составить алгоритм решения задачи: сколько можно купить быков,
коров и телят, платя за быка 10 р., за корову — 5 р., а за теленка — 0,5 р.,
если на 100 р. надо купить 100 голов скота?
№ 4Составить программу для проверки утверждения: «Результатами
вычислений по формуле х2 + х + 17 при О ≤ х ≤15 являются простые числа».
Все результаты вывести на экран.
30
2. Пример:
Программа вычисления n!. Применяется, когда число шагов легко
определить по исходным данным.
var n, i, p : integer;
begin read (n); p := 1;
for i := 1 to n do p := p * i;
write (n'! = ', p)
end.
3. Задание 1. Найти значение переменной с:
For I:1 to n do
C:= c+a*b;
B1
B2
B3
B4
B5
B6
A
2
3
2
5
2
1
B
4
2
3
2
5
2
C
3
4
4
1
1
5
n
3
4
3
4
3
4
23
№ 5Составить программу для проверки утверждения: «Результатами
вычислений по формуле х2 + х + 41 при 0 ≤ х ≤ 40 являются простые числа».
Все результаты вывести на экран.
№ 6 Составить программу-генератор чисел Пифагора а, b, с (с2 = а2 +
b2). В основу положить формулы: а = m2 - n2, b = 2т • п, с = т2 + п2 (т, п —
натуральные, 1 < т < k, 1 < п < k, k — данное число). Результат вывести
на экран в виде таблицы из пяти столбцов: т, п, а, b, с.
№ 7 Покупатель должен заплатить в кассу S р, У него имеются 1, 2, 5, 10,
50, 100, 500 р. Сколько купюр разного достоинства отдаст покупатель, если
он начинает платить с самых крупных?
№ 8 Найти сумму всех n-значных чисел, кратных k (1 ≤ n ≤ 4).
№ 9 Покажите, что для всех n = 1, 2, 3, N(1 2 + 2 5+ ... + n5) + (1 7+2 7 + ... + n7)
= 2 (1 + 2+ ... + n) 4.
№ 10 Замените буквы цифрами так, чтобы соотношение оказалось верным
(одинаковым буквам соответствуют одинаковые цифры, разным — разные):
№11Составить программу, которая запрашивает пароль (например,
четырехзначное число) до тех пор, пока он не будет правильно введен.
№ 12Дано натуральное число N. Вычислить:
S = 1 - Error! + Error! - Error! + … + (-1) n * Error!
№ 13Дано натуральное число N. Вычислить:
S = Error! + Error! +…+Error!
№ 14Дано натуральное число N. Вычислить произведение первых N
сомножителей
P = Error!  Error!  Error!  …  Error!
№ 15Дано натуральное число N. Вычислить:
Error! Error!  …  Error!
Объявление двумерных массивов пишется аналогично одномерным,
но для прямоугольной таблицы надо указать границы изменения индексов как
по горизонтали, так и по вертикали. Например, объявим таблицу А,
содержащую целые числа и состоящую из 9 строк и 10 столбцов. Вот это
объявление:
Var А: array [1..9, 1..10] of integer;
Пример: Дана квадратная матрица размерностью 10х10, состоящая из
целых чисел. Найти произведение элементов главной диагонали
матрицы.
Var A: fray[1..10,1..10] of integer; i,j,P: integer;
Begin
{‘Ввод матрицы’}
for i:=1 to 10 do
for j:=1 to 10 do read(A[i,j]);
{‘ Нахождение
произведения элементов главной диагонали матрицы’ }
,
P:=1;
for i:=1 to 10 do
for j:=1 to 10 do
if i=j then P:=P*A[i,j];
write(P);
end.
2.
24
Практическая работа №8.
Тема: Двумерные массивы. Матрицы.
1. Цель работы: Ознакомится с основными приемами действий с матрицами и
научиться составлять программы с использованием матриц..
2. Краткие теоретические сведения:
Объектами обработки некоторых алгоритмов нередко являются
прямоугольные таблицы данных, называемые иначе двумерными массивами.
Примером такого массива может быть таблица Пифагора – квадратная таблица
А из 10 строк и 10 столбцов, каждый элемент которой определяется формулой
аij = i*j (i,j=1,2,…,10). Положение элемента аij в таблице задаётся двойным
индексом: первый (i) обозначает номер строки элемента, а второй (j) – номер
его столбца, на пересечении которых стоит элемент (нумерация строк
производится сверху вниз, а столбцов –
слева на право). К двумерным массивам относятся также таблицы
соревнований, коэффициенты систем уравнений, шахматные доски, таблицы
распределения температур некоторого тела и т.д. Реже на практике
встречаются массивы, содержащие три и более измерений.
29
№13. Дан массив из 100 целых чисел. Поменять местами наибольший и
наименьший элементы массива.
№14. Дан массив из 100 целых чисел. Написать программу замены всех
положительных элементов средним значением массива.
№15. Дан массив из 100 целых чисел. Написать программу нахождения суммы
элементов массива с четными индексами.
№16. Дан массив из 100 целых чисел. Написать программу нахождения
произведения элементов массива с четными индексами.
№17. Дан массив из 100 целых чисел. Написать программу нахождения суммы
элементов массива с нечетными индексами.
№18. Дан массив из 100 целых чисел. Написать программу нахождения
произведения элементов массива с нечетными индексами.
№19. Дан массив из 100 целых чисел. Написать программу нахождения
среднего значения среди положительных элементов массива
№ 20 Вычислить: (1 + sin0,l)(l + sin0,2) х ... х (1 + sinl0).
№20. Дан массив из 100 целых чисел. Написать программу замены всех
отрицательных элементов значением их произведения.
Контрольные вопросы:
1.
Контрольные вопросы:
1.
2.
3.
4.
5.
Что такое массив?
Как определить местоположение элемента в массиве?
Что такое индекс? Каким требованиям он должен удовлетворять?
Особенности расположения элементов массива в памяти ЭВМ.
Особенности расположения в памяти элементов многомерных массивов.
Каким образом задаётся описание массива, что в нём указывается?
2.
3.
В каких случаях предпочтительнее использовать для организации циклов
оператор повтора for? Что записывается в заголовке этого оператора?
Каким образом в операторе цикла for описывается направление изменения
значения параметра цикла?
Какие ограничения налагаются на использование управляющей
переменной (параметра цикла) в цикле for?
Список литературы:
Список литературы:
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
1. В.Б. Попов «Турбо Паскаль», М. «Финансы и статистика», 2002
2. В.В. Фаронов «Турбо Паскаль 7.0» М. «ОМД Групп», 2003
25
Практическая работа №7
Тема: Массивы.
28
№ 16Дано действительное число х. Вычислить:
x - Error! + Error! - Error! + Error! - Error! + Error!
№ 17 Даны натуральное n, действительное х. Вычислить:
S = sinx + sinsinx + … sinsin…sinx
n раз
№ 18 Даны действительное число а, натуральное число n. Вычислить:
S = Error! + Error! + Error! + … + Error!
№ 19Дано действительное х. Вычислить:
Error!
1. Цель работы: ознакомиться с основными приемами действий над
массивами.
2. Краткие теоретические сведения:
В Турбо Паскале могут использоваться объекты, содержащие
множество однотипных элементов. Это массивы -формальное объединение
нескольких однотипных объектов (чисел, символов, строк и т.п.),
рассматриваемое как единое целое. К необходимости применения массивов
мы приходим всякий раз, когда требуется связать и использовать целый ряд
родственных величин. Например, результаты многократных замеров
температуры воздуха в течение года удобно рассматривать как совокупность
вещественных чисел, объединенных в один сложный объект - массив
измерений.
При описании массива необходимо указать общее число входящих в
массив элементов и тип этих элементов. Например:
Var А : array [1..10] of Real; b : array [0..50] of Char; с : array [-3..4] of Boolean;
При описании массива используются зарезервированные слова ARRAY
и OF (массив, из). За словом ARRAY в квадратных скобках указывается типдиапазон, с помощью которого компилятор определяет общее число элементов
массива. Тип-диапазон задается левой и правой границами изменения индекса
массива, так что массив А состоит из 10 элементов, массив В - из 51, а массив
С - из 8 элементов. За словом ОF указывается тип элементов, образующих
массив.
3. Пример. В массиве хранятся данные о выпавших осадках за последние 20
лет. Найти среднее значение и отклонения от среднего для каждого года.
Var А : array [1..20] of Real; I: integer; S: real;
Begin
{‘Ввод массива”}
for I:=1 to 20 do read(A[I]);
{‘Нахождение среднего значения”}
for I:=1 to 20 do S:=S+A[I];
S:=S/20;
{‘Нахождение отклонения от среднего ”}
for I:=1 to 20 do write(abs(A[I]-S));
end.
4. Задание1. Найти значение переменной S:
For i:=1 to n do
Begin
A [i]:=I;
S:=S+A [i];
End;
26
n
i
Результат
B1
5
0
B2
3
5
B3
4
10
B4
5
5
№6. Дан массив из 100 целых чисел. Написать программу нахождения
произведения отрицательных элементов массива
№7. Дан массив из 100 целых чисел. Написать программу нахождения
количества положительных элементов массива.
№8. Дан массив из 100 целых чисел. Написать программу нахождения
количества отрицательных элементов массива.
№9. Дан массив из 100 целых чисел. Написать программу нахождения
количества четных элементов массива.
№10. Дан массив из 100 целых чисел. Написать программу замены всех
отрицательных элементов средним значением массива.
№11. Дан массив из 100 целых чисел. Написать программу нахождения суммы
нечетных элементов массива.
№12. Дан массив из 100 целых чисел. Написать программу нахождения
произведения нечетных элементов массива.
27
B5
8
0
B6
6
1
Задание 2. Разработать программу, выполняющую следующие действия:
№1. Дан массив из 100 целых чисел. Написать программу нахождения суммы
положительных элементов массива.
№2. Дан массив из 100 целых чисел. Написать программу нахождения
произведения положительных элементов массива.
№3. Дан массив из 100 целых чисел. Написать программу нахождения суммы
четных элементов массива.
№4. Дан массив из 100 целых чисел. Написать программу нахождения
произведения четных элементов массива.
№5. Дан массив из 100 целых чисел. Написать программу нахождения
абсолютного значения суммы отрицательных элементов массива.