П р о г р а м м а

PROGRAM PR1;

VAR a: integer;

n: integer;

S: integer;

m: real;

BEGIN

Write (‘введите числа’);

Readln (a);

S:=0;

n:=0;

REPEAT

S:=S+a;

n:=n+1;

UNTIL a<=0;

n:=n-1;

Writeln (‘сумма чисел:’,S);

m:=S/n;

Writeln (‘среднее арифметическое:’,m:6:2);

END.

Пример 2. Вычислить значение функции , если х меняет значения на интевалес шагомh=0.2.

П р о г р а м м а

Program step;

const a=’--------------------‘

var f,x,h : real;

begin

x:=1; h:=0.2;

writeln(a);

writeln(‘x’:8, ‘h’:8, ‘f’);

writeln(a);

repeat

f:=sqrt(x+1) – 1/x;

writeln(x:0:2, ‘’:4, h:0:1,’’:4, f:0:2);

x:=x+h;

until x>3;

writeln(a);

end.

Упражнения:

1. Составить программу вычисления количества положительных и отрицательных значений функции при изменении аргумента x в интервалес шагом h=0,1.

2. Написать программу вычисления функции , для которой. Значение y изменяется в интервалес шагом.

3. Написать программу вычисления пары функций z и y: ,. Значение x изменяется в интервалес шагом.

4. Составить программу вычисления и печати среднего арифметического положительных и среднего арифметического отрицательных значений функции . Аргумент x изменяется в интервалес шагом.

5. Рассчитать и выдать на печать таблицу значений функции . Шаг аргумента 0,1.

6. Найти минимальную ординату функции в интервале, с шагом 0,1 и зафиксировать ее абсциссу.

7. Составить программу вычисления сумму функции . Шаг аргумента 0,1.

8. Составить программу вычисления функций ипри изменении аргумента x в интервале [1,5…2,5] с шагом 0,1. Найти сумму тех значений z, которые удовлетворяют условию z<1, и сумму значений y, которые удовлетворяют условию 1<y<3.

9. Вычислить сумму значений функции , если известно, что аргумент x в интервале [0..1] изменяется с шагом 0,1, а в интервале [1..2] с шагом 0,2.

10. Для 6 произвольных пар чисел (a, b) подсчитать и напечатать , где с наибольшее по абсолютной величине из чисел a и b.

Лабораторная работа 6

Цель работы:

1. Усвоить правила работы с переменными типа массив языка программирования Паскаль.

2. Научиться составлять алгоритмы и программы для обработки одномерных массивов.

Краткие сведения из теории

Под массивом понимается упорядоченная совокупность конечного числа данных одного типа, об"единенных под общим именем. Имена массивов образуются так же, как и имена простых переменных. Одномерный массив называется вектором. Для описания массивов используется служебное слово array. Массив в Турбо-Паскале можно описывать двумя способами:

а) в разделе описания переменных VAR:

var

<имя переменной>: array [тип индекса] of <тип компоненты>;

б) определить сначала тип, а затем описать массив этим типом

type

<имя типа>: array [тип индекса] of <тип компоненты>;

var

<имя переменной>: <имя типа>;

где <тип индекса> - порядковый тип;

<тип компоненты> - любой тип.

ПРИМЕР 1: В векторе найти номера и значения первого минимального и последнего максимального элементов.