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. Створити програму для обчислення за формулою:

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