I:integer;
X,y:real;
begin
ClrScr;
writeln('-------------------------');
writeln('! аргумент ! функция !');
writeln('-------------------------');
i:=0;
randomize;
Repeat
begin
x:=random(6)+random-3.0;
y:=sin(x);
writeln('! ',x:5:2,' ! ',y:7:4,' !');
i:=i+1;
end;
Until i>=10;
writeln('-------------------------');
end.
Данная программа выводит таблицу значений функции с двумя, а аргумента – с четырьмя знаками после запятой.
5.Лабораторная работа № 4
Циклические вычисления С использованиеМ оператора WHILE … DO И УПРАВЛЕНИЕМ ПОЗИЦИЕЙ ВЫВОДА
5.1. Краткие теоретические сведения
Оператор цикла с предусловием:
WHILE <логическое выражение > DO <оператор>;
Логическое выражение вычисляется перед каждым выполнением тела цикла. Если логическое выражение принимает значение TRUE, то тело цикла выполняется, если значение FALSE, происходит выход из цикла. Тело цикла может не выполниться ни разу, если логическое выражение сразу ложно. Телом цикла является простой или составной оператор.
Например, вычисление значения факториала F=N! с помощью конструкции WHILE может быть выполнено так:
…
F:=1;
I:=1;
WHILE I<=N DO
BEGIN
F:=F*I;
I:=I+1;
END;
…
Для облегчения управлением вывода информации в различные точки экрана часто используется оператор
GOTOXY(a,b),
Где a и b - целые числа или операторы целого типа. В результате курсор вывода установится на экране в позицию a строки b.
5.1.1. Цель работы
Изучить использование в программах ТП-7 оператора цикла WHILE … DO и научиться управлять позицией вывода информации на экран.
5.1.2. Задание по работе
Составить программу на языке ТП-7 для расчета значений функции в десяти случайных точках заданного диапазона. Исходные данные взять из ПРИЛОЖЕНИЯ 1. В программе использовать оператор WHILE … DO. Результаты вычислений вывести в центр экрана монитора в виде таблицы. Значения аргумента и функции вывести с тремя знаками после запятой.
Текст программы сохранить в свою личную папку.
В отчет по работе включить текст разработанной программы и таблицу значений функции. Указать имя и место хранения файла с текстом программы.
Пример программы, вычисляющей значения функции y=sin(x) при десяти случайных значениях аргумента в диапазоне от х=0 до х=9.0, может иметь вид:
program Lr_4; {Цикл с использованием While ... Do}
{и управлением позицией вывода}
USES Crt;
var
I:integer;
X,y:real;
begin
ClrScr;
GoToXY(25,7); {установить курсор в 25-ю позицию 7-й строки}
writeln('-------------------------');
GoToXY(25,8);
writeln('! аргумент ! функция !');
GoToXY(25,9);
writeln('-------------------------');
i:=1;
randomize;
While i<=10 do
begin
x:=9.0*random;
y:=sin(x);
GoToXY(25,9+i);
writeln('! ',x:5:2,' ! ',y:7:4,' !');
i:=i+1;
end;
GoToXY(25,9+i);
writeln('-------------------------');
end.
6.Лабораторная работа № 5
Обработка двумерных массивов
6.1. Краткие теоретические сведения
В ТП-7 допустимо использование одно- и двумерных массивов.
Массив – это упорядоченная совокупность однотипных простых переменных, обладающих одинаковыми свойствами. Отношение порядка между элементами массива задается с помощью индексирования. Каждому элементу массива ставится в соответствие один или несколько индексов. Если каждому элементу ставится в соответствие один индекс, то имеем дело с одномерным массивом (вектором). При наличии двух индексов – с двумерным массивом (матрицей), причем, обычно первый индекс обозначает номер строки, а второй – номер столбца, где находится соответствующий элемент.
Объявление одномерного массива выглядит следующим образом:
VAR <имя_массива> : ARRAY [<начальный_индекс> .. <конечный_индекс>] OF <тип_данных>;
Например:
VAR A : ARRAY [1 .. 5] OF REAL;
Здесь объявлен одномерный массив A, включающий пять элементов вещественного типа.
Объявление двумерного массива:
VAR <имя> : ARRAY [<начальный_индекс> .. <конечный_индекс>, <начальный_индекс> .. <конечный_индекс>] OF <тип_данных>;
Например:
VAR B : ARRAY [1 .. 7, 1 .. 10] OF INTEGER;
Здесь объявлен двумерный массив B, состоящий из целых данных. Размер массива 7х10 элементов.
Для обработки массивов наиболее удобен оператор FOR.
Пример программы, которая в массиве из трех строк и четырех столбцов вещественных чисел находит максимальный элемент, выглядит следующим образом:
program LR_5; {Обработка двумерного массива}
USES Crt;
var