Расчетно – графическая работа №1.
Тема: «Программирование на языке Delphi».
План выполнения РГР.
1. Титульный лист.
2. Содержание.
3. Задания.
a. формулировка задания;
b. блок-схема алгоритма;
c. программа;
d. результаты с экрана;
e. выполнение тестового примера.
При оформлении документа установить параметры:
a. Шрифт: TimesNewRoman, 14.
b. Межстрочный интервал: полуторный.
c. Отступ абзаца 1,27 см.
d. Номера страниц вверху по центру.
e. Новый лист в документ добавляется через разрыв страницы.
f. Верхний коллонтитул “Ф.И.О., группа” (кроме титульной страницы)
g. Параметры страницы:
i. Ориентация: книжная.
ii. Поля: верхнее, нижнее, правое – 2 см, левое – 3 см.
Представить печатный (формат А4) и электронный варианты выполнения работы.
Задания.
Задание 1. Составить блок-схему алгоритма и программу для вычисления значений выражения. Запишите исходные данные и результаты с экрана.
| Номер варианта | Функция |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|
Задание №2. Составить блок-схему алгоритма и программу для вычисления значений выражения, используя оператор выбора. Запишите исходные данные и результаты с экрана.
| Номер варианта | Функция |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|
Задание №3. Используя операторы цикла(while, repeat) составить программу вычисления таблицы значений функции в указанном диапазоне значений.
| Номер варианта | Функция | Диапазон, шаг |
 , где 
| 
| |
 , где 
|  
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
|
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
|
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
| |
 , где 
| 
|
Задание №4. Составить алгоритм и написать программу на алгоритмическом языке Паскаль для обработки массивов.
| Номер варианта | Задание |
Задан массив c={ci}, i=1, 2, …, n; n-число элементов массива (n  40). Вычислить сумму нечетных элементов массивов c по формуле S=  .
| |
Задан массив a={ai}, i=1, 2, …, n; n-число элементов массива (n 30). Вычислить сумму четных элементов массива a по формуле S=  .
| |
Задан массив a={ai}, i=1, 2, …, n; n- число элементов массива (n 20).
Вычислить сумму квадратов четных элементов массива a по формуле S=  .
| |
Задан массив a={ai}, i=1, 2, …, n; n-число элементов массива (n 30). Вычислить произведение четных элементов массива x по формуле P=  .
| |
Задан массив y={yj}. j=1, 2, …, m; m- число элементов массива y (m 15). Вычислить произведение элементов массива y по формуле P=  .
| |
Задан массив x={xi}, I=1, 2,…, n; n- число элементов массива x (n 20). Вычислить сумму элементов массива x по формуле S=  .
| |
Заданы массив x={xi}, i=1, 2, …, m; m- число элементов массива (m 15). Вычислить произведение нечетных элементов массива х по формуле Q=  .
| |
| Задан массив y={yj}. j=1, 2, …, m; m- число элементов массива y (m 15). Определить элемент массива y, имеющий максимальное значение, и присвоить это значение переменной ymax (ymax=max(yi)), а номер элемента- переменной K.
| |
| Задан массив x={xi}, i=1, 2, …, n; n- число элементов массива (n 40). Определить минимальное значение элементов массива x и присвоить это значение переменной xmin (xmin=min (xi)), а номер элемента- переменной K.
| |
Задан массив x={xi}, i=1, 2, …, n; n- число элементов массива (n 40). Вычислить среднее арифметическое xср массива x по формуле xср=  .
| |
| Задан массив a={ai}, i=1, 2, …, n; n-число элементов массива (n 30). Вычислить сумму кубов отрицательных элементов массива.
| |
| Заданы массив a={ai}, I=1, 2, …, n; n- число элементов массива (n 28). Определить и присвоить переменной KP значение, равное числу положительных элементов массива a.
| |
| Задан массив a={ai}, i=1, 2, …, n; n-число элементов массива (n 30). Вычислить сумму всех абсолютных значений элементов массива.
| |
| Задан массив c={ci}, i=1, 2, …, n; n-число элементов массива (n 40). Вычислить сумму всех квадратов элементов массива.
| |
Заданы массив d={di}, i=1, 2, …, k; k- число элементов массива (k 18). Вычислить произведение положительных элементов массива d по формуле P=  .
| |
Заданы массив b={bi}, i=1, 2, …,k; k- число элементов массива (k 30). Вычислить сумму квадратов отрицательных элементов массива b по формуле S=  .
| |
Заданы массив b={bi}, i=1, 2, …,k; k- число элементов массива (k 30); rн и  r. Вычислить сумму квадратов положительных элементов массива b по формуле S=  .
| |
Заданы массив d={di}, i=1, 2, …, k; k- число элементов массива (k 18). Вычислить произведение отрицательных элементов массива d по формуле P=  .
| |
| Вычислить значения функции z=sqrt((xi+ai)/2), если xi и a i- элементы массивов, состоящих из десяти элементов каждый. | |
| Задан массив a={ai}, i=1, 2, …, n; n-число элементов массива (n 30). Подсчитать количество положительных и количество отрицательных элементов массива.
| |
| Дан массив X(14). Заменить все элементы массива, значения которых меньше 2, нулями. | |
| Определить количество нулевых элементов массива целых чисел К={kj}, j=1,m, m - число элементов в массиве К (m£300). | |
Задан массив y={yj}. j=1, 2, …, m; m- число элементов массива y (m 15). Вычислить произведение абсолютных значений элементов массива y по формуле P=  .
| |
| Дан массив P(N), состоящий из N вещественных чисел. Заменить его отрицательные элементы нулями, и новый массив переписать в S(N). | |
| Дан массив P(N), состоящий из N вещественных чисел. Найти сумму элементов массива, превышающих число 5,89. | |
| Дан массив P(N), состоящий из N вещественных чисел. Найти элементы массива, удовлетворяющие условию a<P(i)<b, где a и b – числа, и переписать их в массив X(M). | |
| Дан массив P(N), состоящий из N вещественных чисел. Переписать в массив X(K) подряд положительные элементы массива P(N), а в массив Y(L) –отрицательные элементы. | |
| Дан массив P(N), состоящий из N вещественных чисел. Найти сумму всех элементов массива, имеющих четные индексы. | |
| Дан массив P(N), состоящий из N вещественных чисел. Найти сумму всех элементов массива, имеющих нечетные индексы. |
Задание №5. Составить алгоритм и написать программу на алгоритмическом языке Паскаль для обработки матриц.
| Номер варианта | Задание |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|
|
Задание №6. Составить алгоритм и написать программу на алгоритмическом языке Паскаль для работы с подпрограммами
| Номер варианта | Функция |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
| Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE.
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION. 
| |
| Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа FUNCTION.
| |
Составить программу, максимально используя для вычисления заданных выражений, подпрограммы типа PROCEDURE. 
|
Образец оформления практической части работы.
ЗАДАНИЕ№1.Составить блок – схему алгоритма и программу для вычисления значений выражения. Запишите исходные данные и результаты с экрана.
Y=(x-a)3(arctg(b+x)- 
+ln(ax2+1));
а=2; b=0.5; при x=4 и x=1.
Блок - схема программы
 |
Алгоритм программы
procedure TForm1.Button1Click(Sender: TObject);
const a=5;
b=2;
var x,y:real;
begin
x:=strtofloat(edit1.text);
y:=(sqr(x-a))*(x-a)*(arctan(b+x)-sqrt(sqr(x-a))+ln(a*sqr(x)+1));
label3.Caption:=floattostr(y);
end;
end.
Результаты с экрана
Форма:
Результат для x=5:
Результат для x=1:
