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