Практическое задание N 1. 2

1) Провести расчеты с использованием различных операций для переменных простого и строкового типов по аналогии с приведенной выше программой.

2) Провести расчеты с использованием стандартных процедур и функций для переменных разного типа по аналогии с приведенной выше программой.

Операторы ввода данных с клавиатуры Read("сп"); или Readln("сп");

Здесь "сп" - список переменных.

Перед вводом данных с клавиатуры желательно вывести на экран поясняющее сообщение. Для этого в программу следует включить оператор вывода, например:

Write('введите значение а='); затем оператор Readln(a); При выполнении программы на экране появится надпись: введите значение а=. Оператор Readln(a); будет ждать ввода данных. Следует набрать на клавиатуре значение переменной "а", например, число и нажать клавишу Enter.

Для ввода значений нескольких переменных, например, a, b, c применяются конструкции вида: Readln(a); Readln(b); Readln(c); или Readln(a, b, c);

При вводе нескольких числовых данных, например, оператором Readln(a, b, c); необходимо после набора каждого значения переменной нажимать клавишу SpaceBar или Enter, а в конце ввода - Enter.

При вводе значений символьных переменных нажатие клавиши Enter приводит к присвоению символьной переменной значения кода клавиши Enter (#13), поэтому значения символьных переменных вводятся одна за другой без нажатия Enter или SpaceBar (#32). Например, оператор: Readln(с1, с2, с3, c4); ожидает ввода значений символьных переменных с1, с2, с3, c4, т. е. набора на клавиатуре символов, например: "У", "Р", "А", "!" и нажатия Enter. Тогда оператор Writeln(с1, с2, с3, c4); выведет на экран надпись: УРА!

Оператор Readln; без параметров служит для приостановки выполнения программы и ожидает нажатия клавиши Enter, т. е. применяется с целью приостановки вывода информации на экран для просмотра результатов. При вводе данных предпочтительнее использовать оператор Readln, поскольку оператор Read после срабатывания не считывает управляющий код (#13), который остается в буфере клавиатуры.

Приведем пример программы возведения положительного числа “x” в степень”n”,

т. е. y=xⁿ. Расчет производится по формуле: y=e^n*ln(x).

Program N_2; {возведение положительного числа в степень}

Const S='введите значение';

Var n, x, y: real;

BEGIN

Writeln('Программу разработал Иванов');

Writeln('Возведение положительного числа x степень n');

Writeln(S, ' аргумента х>0'); Readln(x);

Write(S, ' показателя степени n='); Readln(n);

y:=exp(n*ln(x));

Writeln('результат y=', y:-10:6); writeln('Нажмите Enter');

readln; {задержка экрана до нажатия Enter}

END.

Практическое задание N 1. 3

1. Рассчитать площадь треугольника по формуле Герона:

S = Ö(p*(p-a)*(p-b)*(p-c)), где p=(a+b+c)/2 - полупериметр.

a, b, c - стороны треугольника (исходные данные).

2. Рассчитать высоты, медианы и биссектрисы треугольника по формулам:

Ha= 2*S/a - высота, опущенная на сторону "a", аналогично для Hb, Hc;

Ma= Ö(2*b² + 2*c² - a²)/2 - медиана, аналогично для Mb, Mc;

Ba= 2* Ö(b*c*p*(p-a))/(b+c) - биссектриса, аналогично для Bb, Bc;

a, b, c - стороны треугольника (исходные данные). S - площадь, p -полупериметр треугольника.

3. Рассчитать радиус окружности, вписанной в треугольник R₁= S/p

и описанной вокруг треугольника R₂= a*b*c/(4*S), где S - площадь, а p - полупериметр треугольника. a, b, c - стороны треугольника (исходные данные).

4. Рассчитать сумму "S" первых N членов арифметической прогрессии A₁, A₂,..., A_N по формуле: S= (A₁ + A_N)*N/2. A₁, A_N, N - исходные данные

5. Рассчитать сумму "S" первых N членов ряда геометрической прогрессии B₁, B₂,..., B_N по формуле: S= (B₁ - B_N*Q)/(1-Q). B_N =B₁ *Q^N. B₁, Q - исходные данные.

Примечание: Программы запрашивают ввод исходных данных с клавиатуры и выводят результаты расчета на экран. Программой контроль данных не производится.

Поиск по сайту: