Завдання

1. Увійти у Turbo Pascal і ввести текст наступної програми

Program First;

Const A=5; B=7;

Var C:integer;

Begin

C:=A+B;

Writeln('C= ',C)

End.

2. Змінити розміри активного вікна №1.

3. Змінити положення активного вікна №1.

4. Розгорнути активне вікно на весь екран.

5. Зберегти програму для чого надати їй ім’я.

6. Провести компіляцію програми з вікна №1.

7. Завантажити на виконання програму з вікна №1. Попрацювати з цією програмою (компіляція, виконання).

8. Відкрити нове вікно, перенести у нього вміст вікна №1. Записати у вигляді пам’ятки як копіювати блоки.

9. Відкрити нове текстове вікно у ТП.

10.Ввести в нього програму для обчислення значення гіпотенузи за двома катетами

Program z(input,output);

uses crt;

var a,b,y:real;

Begin

textbackground(7); textcolor(5); clrscr;gotoxy(10,5);

write(‘vvedite 1 katet: ’); readln(a);

write(‘vvedite 2 katet: ’); readln(b);

y:=sqrt(sqr(a)+ sqr(b));gotoxy(10,10);writeln(‘Gipotenuza = ’,y:6:2);

End.

11.Написати її на диск під будь-яким ім’ям (*.pas).

12. Скомпілювати її, виправити можливі помилки та запустити на виконання.

13. Розібратися у її роботі (вставити коментарі), внести в неї зміни: нові кольори, розташування тексту, виведення тексту.

14. Створити програму для обчислення X⁶ за допомогою трьох операцій множення

Program STEP_X6;

var X,Y,R:real;

Begin

writeln(‘vvedite chislo’);

readln(X);

R:=X*X*X; { 2 оperacii umnozhenija}

Y:= R*R; {escho odno umnozhenie}

writeln(' X = ',X,' X в 6 stepeni = ',Y)

End.

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

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

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. Зберегти програму, запустити на виконання. Результати виконання всіх дій занести до протоколу (постановка задачі, що розв’язується, текст програми, результат роботи програми)