Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Program EXPESSION;



Читайте также:
  1. A friend of your wants to develop a programme to protect the city where he lives. Give him a piece of advice.
  2. A. Implementation of the programme of activities
  3. A. Implementation of the programme of activities
  4. Ex. 20. Broadcast Programme
  5. Exchange Program APPLICATION
  6. GRADUATE RECRUITMENT PROGRAMME

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=xn. Обчислення виконуються за формулою: y=en*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. Створити програму для обчислення значення X7 за чотири операції множення.

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

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

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

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

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

 

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

 


Дата добавления: 2015-07-11; просмотров: 60 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.006 сек.)