I, sum : integer;
begin
sum:=0;
for i:=1 to 10 do
sum:=sum+i;
writeln('Сумма целых чисел от 1 до 10 равна: ',sum);
end.
3.1.1. Цель работы
Изучить использование в программах ТП-7 оператора цикла FOR и его разновидностей.
.
3.1.2. Задание по работе
Составить программу на языке ТП-7 для расчета значений функции в десяти точках заданного диапазона. Исходные данные взять из ПРИЛОЖЕНИЯ 1. В программе использовать оператор FOR. Результаты вычислений вывести на экран монитора в виде таблицы. Значения аргумента вывести с одним знаком после запятой, а значения функции – с двумя.
Текст программы сохранить в свою личную папку.
В отчет по работе включить текст разработанной программы и таблицу значений функции. Указать имя и место хранения файла с текстом программы.
Пример программы, вычисляющей значения функции y=sin(x) при десяти значениях аргумента от х=0,1 до х=1,0 с шагом 0,1, может иметь вид:
program LR_2;
var
I:integer;
X,y:real;
begin
x:=0.1;
writeln('-------------------------');
writeln('! аргумент ! функция !');
writeln('-------------------------');
for i:=1 to 10 do
begin
y:=sin(x);
writeln('! ',x:5:2,' ! ',y:7:4,' !');
x:=x+0.1;
end;
writeln('-------------------------');
end.
Данная программа выводит таблицу значений функции с четырьмя, а аргумента – с двумя знаками после запятой.
4. Лабораторная работа № 3
рАЗРАБОТКА ПРОГРАММ С использованиеМ оператора цикла REPEAT … UNTIL
4.1. Краткие теоретические сведения
Данная конструкция оператора цикла используется, если число повторений цикла заранее неизвестно, но известно условие выхода из цикла. Структура оператора следующая:
REPEAT < оператор 1 > [< оператор 2 >] […< оператор n >] UNTIL <логическое выражение>;
Управляющее циклом логическое выражение является условием выхода из цикла. Если оно принимает значение TRUE (истина), то выполнение цикла прекращается. При использовании оператора REPEAT цикл выполняется хотя бы один раз. В отличие от других операторов цикла оператор данного вида не требует операторных скобок BEGIN - END, так как их роль выполняют REPEAT - UNTIL.
Например, вычисление факториала F=N! с использованием конструкции REPEAT – UNTIL может выглядеть следующим образом:
. . .
F:=1;
I:=1;
Repeat
F:=F*I;
I:=I+1;
Until I>N;
. . .
При выполнении данной лабораторной работы потребуется использовать функцию – датчик случайных чисел:
Таблица 2. Функции случайных чисел
Имя функции |
Назначение функции |
Tип результата |
Random |
Случайное число из диапазона от 0 до 1 |
Real |
Random(X) |
Случайное число из диапазона от 0 до Х |
Word |
Перед использованием функций Random или Random(X) рекомендуется предварительно выполнить процедуру Randomize (процедура без параметров), которая обеспечивает истинную случайность чисел, генерируемых функцией Random или Random(X). В противном случае эти последовательности при повторных пусках программы будут повторяться (что иногда может оказаться полезным, например, при отладке программ).
Кроме того, для очистки экрана вывода рекомендуется использовать процедуру ClrScr, для чего в программе должна быть подключена библиотека Crt.
4.1.1. Цель работы
Изучить использование в программах ТП-7 оператора цикла REPEAT … UNTIL.
.
4.1.2. Задание по работе
Составить программу на языке ТП-7 для расчета значений функции в десяти случайных точках заданного диапазона. Исходные данные взять из ПРИЛОЖЕНИЯ 1. В программе использовать оператор REPEAT … UNTIL. Результаты вычислений вывести на экран монитора в виде таблицы. Значения аргумента вывести с двумя знаками после запятой, а значения функции – с пятью.
Текст программы сохранить в свою личную папку.
В отчет по работе включить текст разработанной программы и таблицу значений функции. Указать имя и место хранения файла с текстом программы.
Пример программы, вычисляющей значения функции y=sin(x) при десяти случайных значениях аргумента в диапазоне от х=-3.0 до х=3.0, может иметь вид:
program LR_3; {Цикл с использованием Repeat ... Until}
{и датчиком случайных чисел}
USES Crt;
var