Методические указания по программированию на языке Pascal. Юшков С.А - 5 стр.

UptoLike

K:=A; выполнения
While K<=B do {Организуется цикл для нахождения значений заданной
функции, вывода на экран таблицы, подсчета количества
Р>10 до тех пор пока выполняется условие, указанное
после управляющего слова while.}
Begin {начало цикла}
P:=24.9*exp(ln(sqr(sin(2*k)))/7);
WriteLn (‘Аргумент=’,K:6:2,’Значение функции=’,P:8:2);
if P>10 then { Проверка условия.}
C:=C+1;
K:=K+D;
End; {конец цикла}
Write (‘Количество значений функции, больших 10=’,C);
End. {конец программы}
5. Результаты расчетов.
Введи
начало отрезка, конец отрезка, шаг
1
3
0.5
Аргумент=1.00 Значение функции=24.23
Аргумент=1.50 Значение функции=14.23
Аргумент=2.00 Значение функции=22.99
Аргумент=2.50 Значение функции=24.60
Аргумент=3.00 Значение функции=17.30
Количество значений функции, больших 10=5
Лабораторная работа 2. Массивы.
1.Одномерные массивы.
Номер элемента массива: 1 2 …………… j …n
Элемент массива: 186 155 4 28.6 ….
Пример:
запись элементов массива
B[1]:=186;B[19]:=143.8;B[j]:=28.6;
B[j+1]:= a+c;
Описание массива:
Var b:array [1..28] of real;
b:array [45..61] of byte;
Выполнение лабораторной работы рассмотрим на кокретном примере.
1. Условие задачи.
Дано 40 оценок, найти среднюю.
2. Постановка
задачи.
1) Вводимые данные: ОС[i] – оценка.