1. Начало
2. Определение значения константы Pi.
3. Ввод значений Xn,Xk,h.
4. Вычисление количества шагов и присвоение переменной Z значения Рi.
5. Цикл for , повторяющийся количество раз, равное промежутку от 1 до К.
6. Проверка условия Х<Рi/7. Если условие выполняется, то переход к блоку 7, иначе к блоку 8.
8. Проверка условия Х=Pi/7. Если условие выполняется, то переход к блоку 9, иначе к блоку 10.
7,9,10.Вычисление значения функции для текущего значения аргумента.
11. Вывод на печать значений X и Y.
12. Увеличение аргумента X на величину шага изменения h (последний оператор цикла).
13. Конец.
Текст программы
Program exp1;
Uses crt;
Const Рi= 3.14;
Var Xn, Xk, X, Y,H,Z:real;
k:integer;
begin
clrscr;
writeln(‘Введите через пробел Xn,Xk,h’);
readln(xn,xk,h);
k:=trunc((xk-xn)/h)+1;
x:=xn;
z:=Рi;
for i:=1 to k do begin
if x<pi/7 then y:=sin(z)-cos(X)
else begin
if x=pi/7 then y:=sqrt(cos(x)+z)
else y:=sin(x)+cos(z)
end;
writeln(‘X=’,x:6:2,’ Y=’,y:8:2);
x:=x+h;
end;
ReadKey;
end.
Результат:
Введите через пробел Xn,Xk,h
4.5
5
0.2
X = 4.50 Y = -1.00
Х = 4.70 Y = -2.08
Х = 4.90 Y = 1.46
Задача 2
Для массива D(n) произвести сортировку в порядке возрастания элементов массива. Вывести исходный массив и полученный результат.
Назначение переменных
N - переменная, вводимая с клавиатуры, значение которой используется для указания размерности одномерного массива
d – имя одномерного массива
I - переменная, используемая в цикле for для обозначения элемента массива, который сравнивается со всеми следующими за ним элементами
J - переменная, используемая в цикле for для обозначения элемента массива, с которым сравнивается i –й элемент
С - переменная, применяемая при сортировке для обмена элементов.
Описание алгоритма
1. Начало
2. Определение размерности массива
3,4. Цикл, обеспечивающий ввод значений в массив
5,6. Цикл, обеспечивающий вывод значений массива
7. Цикл, обеспечивающий обращение к элементам массива от первого до предпоследнего (каждое значение переменной в этом цикле определяет элемент, со значением которого будут сравниваться все остальные элементы, следующие за ним).
8. Цикл, обеспечивающий обращение к элементам, начиная со значения I+1 до последнего.
9. Проверка условия d[i]>d[j]. Если условие выполняется, то переход к блоку 10, иначе к блоку 8.
10. Перемещение значений переменных с использования дополнительной переменой.
11,12. Цикл, обеспечивающий вывод значений массива после сортировки
13. Конец
Текст программы
Program D1;
Uses crt ;
Type mas=array[1..100] of real;
Var d:mas;
c:real;
n,i,j:integer;
begin
clrscr;
write(‘Введите количество элементов массива: ’);
readln(N);
writeln(‘Введите элементы массива:);
For i:=1 to N do
Begin
Write(D(‘,i:2,’): ’);
Readln(d[i]);
End;
Writeln(‘Исходный массив:’);
For i:=1 to n do
Write(d[i]:7:1);
Writeln;
Результат:
Вводите количество элементов массива:
5
Введите элементы массива:
D(1) 2.3
D(2) 0.5
D(3) 4.2
D(4) 2
D(5) 3.7
Исходный массив:
2.3 0.5 4.2 2 3.7
Результат сортировки:
0.5 2 2.3 3.7 4.2
(* Сортировка *)
For i:=1 to n-1 do
For j:=i+1 to n do
If d[i]>d[j] then
Begin
c:= d[i];
d[i]:=D[j];
D[j]:=c;
End;
Writeln(‘Результат сортировки:’);
For i:=1 to n do
Write(d[i]:7:1);
ReadKey;
End.
Задача 3
Найти минимальный и максимальный элемент массива Y(10) и поменять их местами. Yi=max ; Yi=min.
Назначение переменных
N - переменная, вводимая с клавиатуры, значение которой используется для указания количества обрабатываемых элементов
Y – имя одномерного массива
I - переменная, используемая в цикле for для организации обращений к элементам массива
min, max - переменные, используемая для хранения минимального и максимального элементов соответственно
М1, М2 - переменные, используемая для хранения номера минимального и максимального элементов соответственно
С - переменная, применяемая при сортировке для обмена элементов.
Описание алгоритма