- •Программирование в системе Pascal abc
- •Введение
- •1. Система программирования pascal abc
- •1.1. Структура меню среды
- •1.2. Команды редактора Pascal abc
- •Команды удаления и вставки
- •1.3. Правила оформления программ
- •1.4. Компиляция и исправление синтаксических ошибок
- •1.5. Этапы подготовки и решения задач на компьютере
- •1.6. Словарь основных терминов
- •2. Начальные сведения о языке pascal abc
- •2.1. Алфавит языка
- •2.2. Константы
- •2.3. Идентификаторы и типы данных
- •2.4. Переменные и именованные константы
- •2.5. Структура простой программы и комментарий
- •3. Оператор присваивания и числовые данные
- •3.1. Арифметические выражения
- •Приоритеты операций в выражении
- •3.2. Оператор присваивания
- •3.3. Процедуры ввода-вывода
- •3.4. Стандартные функции Pascal abc
- •3.5. Целые типы в Pascal abc
- •3.6. Вещественные типы
- •Переменные комплексного типа
- •3.7. Примеры и задания к самостоятельному выполнению
- •4. Программирование разветвленных алгоритмов
- •4.1. Логические выражения
- •4.2. Условный оператор if
- •4.3. Составной и пустой операторы
- •4.4. Оператор безусловного перехода
- •4.5. Пример и задания с оператором if
- •4.6. Оператор выбора варианта case
- •4.7. Примеры и задания с оператором case
- •5. Программирование алгоритмов циклической структуры
- •5.1. Оператор счётного цикла
- •5.2. Примеры и задания для оператора цикла со счётчиком
- •Задания к самостоятельному выполнению
- •5.3. Оператор цикла с предусловием
- •5.4. Пример и задания для оператора цикла с предусловием
- •5.5. Оператор цикла с постусловием
- •5.6. Процедуры прерываний циклов
- •5.7. Примеры и задания для циклов с постусловием
- •Задания для самостоятельного выполнения
- •6. Структурированные типы данных
- •6.1. Массивы данных
- •Типизированные константы-массивы
- •6.2. Пример и задания для одномерных массивов
- •Задания для самостоятельного выполнения Задание 1
- •Задание 2
- •6.3. Ограниченный тип (диапазон)
- •6.4. Пример и задания для двумерных массивов
- •Задания для самостоятельного выполнения Задание 1
- •Задание 2
- •Задание 3
- •7. Структурное программирование
- •7.1. Структура сложной программы
- •7.2. Подпрограммы. Процедуры и функции
- •7.3. Структура подпрограммы-функции
- •7.4. Примеры и задания с подпрограммой-функцией
- •Задания для самостоятельного выполнения Задание 1
- •Задание 2
- •7.5. Структура подпрограммы-процедуры
- •7.6. Передача в подпрограмму массивов и строк
- •7.7. Рекурсия в программе
- •7.8. Вложенные подпрограммы
- •7.9. Процедуры exit и halt
- •7.10. Пример и задания с подпрограммой-процедурой
- •Задания для самостоятельного выполнения Задание 1
- •Задание 2
- •8. Обработка символьных данных
- •8.1. Символьный тип
- •8.2. Задания для символьных данных
- •9. Обработка строк текста
- •9.1. Строковый тип
- •9.2. Встроенные функции и процедуры для обработки строк
- •9.3. Пример и задания для обработки строк
- •Задания для самостоятельного выполнения
- •10. Файлы
- •10.1. Процедура связывания файлов
- •10.2. Процедуры и функции для работы с файлами
- •10.3. Типизированные файлы
- •10.4. Текстовые файлы
- •10.5. Процедуры ввода
- •10.6. Процедуры вывода
- •10.7. Примеры и задания для работы с файлами
- •Задания для самостоятельного выполнения Задание 1
- •Задание 2
- •11. Комбинированный тип – записи
- •11.1. Структура данных типа записи
- •11.2. Обработка полей записей
- •11.3. Задания с обработкой записей Задание 1
- •Задание 2
- •12. Процедурные типы
- •Библиографический список
- •Обозначения графические в схемах алгоритмов (гост 19.701-90)
- •Содержание
5.4. Пример и задания для оператора цикла с предусловием
Пример. Для трех значений а = 0.1, 0.2, 0.3 протабулировать функцию y = a.tg(x/4) при изменении аргумента x на интервале [0.5,0.9] с шагом, равным a. Для СА (рис. 9) решения данной задачи программа может быть следующей:
Program a5;
var a, x, y: real;а≤0,3;х=0
begin
writeln('-------------------------');
writeln(' a | x | y |');
writeln('-------------------------');
a: = 0.1;
while a<=0.31 do
begin
writeln(a:5:2);
x :=0.5;
while x<=0.91 do
begin
y :=a*sin(x/4) / cos(x/4);
writeln(x:12:2,' | ', y:10:2);
x :=x+a;
end;
writeln('-------------------------');
a:=a+0.1
end; end.
Задания для самостоятельного выполнения (программа_4_1)
Начертите структурную схему алгоритма, напишите и отладьте программу для табуляции следующих функций:
1. S = ae-xsin ax+ при -1 <= x <= 1 с шагом 0.2,
a = 0.75, 1 <= y <= 5 с шагом 1.5.
2. Z = + 1,3 sin(x-a) при 2 <= x <= 5 с шагом 0.5,
a = 1.9, -1 <= y <= 1 с шагом 0.5.
3. S = e2 t ycos(t-a) при 1<= t <= 2 с шагом 0.2,
a = -2.1, 2 <= y <= 3 с шагом 0.3.
4. Z = bx(tx+2.1) при 1 <= x <= 2 с шагом 0.2,
b= 3.5, 0 <= t <= 1 с шагом 0.2.
Z
=
5. , если 2 < x <= 3.6, шаг dx = a/2.
sin ax -,если 0.1 <= x <= 0.4,
6. Y= a cos2(px), если 0.4 < x <= 1.2, a = 1.0; 1.5,
2 - sin ax, если 1.2 < x <= 1.6, шаг dx = a/5.
Z
=
7.
Z
=
2 e2x , если 2 < x <= 3.6, шаг dx = a/4.
Z
=
8. sin x, если x = 0.5, a = 2; 2.1,
a + a cos(x+3a), если 0.5 < x <= 1.5, шаг dx = a/10.
9.
Z
= =
-a(1+ln(x-3a)), если 3 < x <= 4, шаг dx = a/2.
- (x+3a)2 - 2a, если -1 <= x <= 0,
10. Y = a cos(x+3a) - 3a, если 0 < x < 1, a = 0.7; 1,
a ex, если x = 1, dx = (a+0.2)/2.
11.
Z
=
a/2(ex/a+e-x/a), если 2.5 < x <= 4, шаг dx = a/2.
,если 0.5 <= x < 1.5,
12. Y = a cos x, если x = 1.5, a = 0.1;0.2;0.3;
(a x2 + 1)x, если 1.5 < x <= 3, шаг dx = 2a.
13.
Z
= Я=Z
=
tg(x/4), если 0.5 < x <= 0.9, шаг dx = a.
tg(a2 +sin px), если 0 <= x <= 1,
14.Y = a sin(p- cos px), если 1 < x <= 2, a = 0.5; 0.75; 1;
lg x, если 2 < x < 3, шаг dx = a/4.
15.
Z
=
a x2 - cos px, если 1.5 < x <= 2 шаг dx= a/4.
1/x , если 0.1 <= x <= 0.4
16. Y = ln(x2+ ax) , если 0.4 < x <= 1.2 a = 1.0; 1.5,
x2 , если 1.2 < x < 1.6 шаг dx = a/5.
17. Дана непустая последовательность различных натуральных чисел, за которой следует нуль (признак конца последовательности). Определить порядковый номер наименьшего из них и его значение.
18. Найти первый отрицательный член последовательности cos (ctg(n)), где n = 1, 2, 3, ..., x . Напечатать его номер и значение. Распечатать всю последовательность.
19. Вычислить наибольший общий делитель (k) натуральных чисел d и f. Оператор FOR не использовать.
20. Задан ряд неотрицательных вещественных чисел. Определить, сколько из них больше своих «соседей»: предыдущего и последующего чисел. Признаком окончания ряда чисел считать появление отрицательного числа.