Program EXPESSION;

var T, K, M, L, X, Y: real; {input data}

Z: real; {results}

Begin

writeln(‘vvedite znachenija T, K, M, L, X, Y:’);

Readln(T, K, M, L, X, Y);

Z:=Sqr((T*T-K*K)/(Sqr(Sqr(M))- Sqr(Sqr(L))*L))+Sqrt(Abs(Sqrt(X)+Y)/(12-Abs(X))+4);

writeln(‘Resultat: ’, Z:12:6)

End.

17. Зберегти програму, запустити на виконання.

18. Створити програму для обчислення середнього арифметичного та середнього геометричного двох невід’ємних чисел A і B.

Program SAB;

var A,B: real; {input data}

SA,SG: real; {output data}

Begin

writeln(‘input A & B’);

readln(A,B); { A>=0,B>=0}

SA:=(A+B)/2; SG:=SQRT(A*B); {SQRT() – znahodzhennya korenya }

writeln(‘srednee arifmeticheskoe', SA, ' srednee geometricheskoe ', SG)

End.

19. Зберегти програму, запустити на виконання.

20. Створити програму для обчислення y=xⁿ. Обчислення виконуються за формулою: y=e^n*ln(x)

Program Stepen;

Var A,B: Real;

N: Integer;

Begin

Writeln(' Stepen’ ');

Write('Vvedite chislo= '); Readln(A);

Write('Ukazhite stepen’= '); Readln(N);

Writeln;

B:=Exp(N*Ln(A));

Writeln('Result:');

Writeln('B= ',B:8:2);

Readln

End.

21. Зберегти програму, запустити на виконання. Результати виконання всіх дій занести до протоколу (постановка задачі, що розв’язується, текст програми, результат роботи програми)

Розв’язати самостійно наступні задачі

Задача 1. Створити програму для обчислення значення X⁷ за чотири операції множення.

Задача 2. Створити програму для обчислення значення X⁸ за три операції множення.

Задача 3. Створити програму для обчислення значення X¹⁰ за чотири операції множення.

Задача 4.Створити програму для обчислення за формулою:

Задача 5.Створити програму для обчислення за формулою:

Задача 6.Дано довжини трьох сторін трикутника АВС. Вивести на екран про нього нас­тупну інформацію: а) площа; б) периметр; в) довжини всіх висот; г) довжини всіх медіан.

Результати внести в протокол разом зі створеними для розв’язання задач програмами. В протоколі обов’язково повинні бути умови задачі, що розв’язується, програма і результати виконання програми(скріншоти). В тексти прикладів-програм внести коментарі і де потрібно звернення до функцій очистки екрану.

Дата добавления: 2015-07-11