Задания к лабораторной работе

1. Запустите загрузочный файл ТР.

2. Ознакомьтесь с видом основного экрана ТР. В отчете зарисуйте схему экрана.

3. Отработайте вызов меню различными способами:

1) F10, Enter;

2) Alt – первая буква пункта меню.

4. Наберите текст программы, указав в треугольных скобках собственную группу.

program lab1;

begin

writeln('<>');

end.

5. Скопируйте строку writeln('<>'); используя блоковые команды. В треугольных скобках укажите собственную фамилию, имя, отчество.

6. Отправьте файл на выполнение F10, Run, Run. Просмотрите результаты работы программы Alt-F5.

7. Сохраните файл под именем lab_1.pas, F10, Save as.

8. Сохраните файл под именем lab_2.pas, F10, Save as.

9. Выйдите из среды TP, убедитесь в наличии файлов на диске.

10. Загрузите оболочку ТР.

11. Загрузите в первое окно файл lab_1.pas, во второе окно lab_2.pas, F10, Open.

12. Перейдите в первое окно, используя команду Alt-<N окна>.

13. Наберите строку writeln('выполнил');. Скопируйте строку в буфер, F10, Edit, Copy.

14. Перейдите во второе окно, вставьте из буфера строку, F10, Edit, Paste.

15. Расположите окна в режиме каскада (Cascade), черепицы (Tile).

16. Закройте поочередно окна, используя команду Alt-F3.

17.Создайте новое окно, используя команды File, New.

18. Наберите текст программы:

Program kwur; (*Имя программы*)

Uses crt; {Использование библиотечного модуля CRT}

Var a,b,c,d,w,z,xl,x2 :Real; {Объявление переменных}

otvet:Char;

Begin {Начало основного блока программы}

Clrscr; {Очистка экрана}

WriteLn ('Программа вычисления корней');

WriteLn ('квадратного уравнения общего вида');

Repeat {Начало цикла с постусловием}

Write('Введите значение a');

ReadLn (а); {Ввод коэффициента а}

If a=0 Then Writeln ('Уравнение не квадратное')

Else Begin

Write ('Введите значение b='); ReadLn (b);

Write ('Введите значение с ='); ReadLn (с);

D: = b*b - 4*a*c; {Вычисление дискриминанта}

Z:=-b/(2*a);

W:=sqrt(abs(d))/(2*a);

WriteLn ('При a=',a:5:2,' b=',b:5:2, ' c=',c:5:2);

If D<0 then

Begin

WriteLn ('Xl= ', Z:6:3,' + j*',w:5:3);

WriteLn ('X2= ', Z:6:3,' - j*',w:5:3);

End

Else

Begin

xl: = z + w;

x2: = z-w;

WriteLn ('xl=',xl:5:2,' x2=',x2:5:2);

End

End;

WriteLn ('Желаете продолжить работу? (y/n)');

Readln (otvet);

Until otvet<>'y'; {Повторять, пока переменная otvet примет значение отличное от у}

WriteLn ('Спасибо! До свидания!');

End.

19. Откройте окно, в котором вы сможете отследить значения переменной i, используя команды F10, Debug, Add Watch.

20. Расположите окна черепицей.

21. Выполните программу пошагово, используя клавишу F8. Отследите изменения значений переменной i.

22. Оформите отчет о выполнении (см. Приложение 1)

Контрольные вопросы

1. Сформулируйте определение системы программирования.

2. Какую функцию выполняет транслятор?

3. Для чего используется редактор связей?

4. Что такое отладка? Перечислите методы отладки.

5. В чем состоит отличие команд Step Over и Trace Into?

6. Перечислите команды пункта меню File и опишите функции, которые они выполняют.

7. Перечислите команды пунктов меню Run, Compile. Опишите их предназначение.

8. Какие возможности предоставляют команды пунктов меню Debug, Options?

9. Каким образом осуществляется работа с окнами: расположение окон, закрытие, переход от одного окна к другому и т.п.?

10. Существует ли буфер обмена в среде Turbo Pascal? Какие операции можно выполнять с ним? Способы управления буфером.

11. Укажите функции клавиш F1, F2, F3, F7, F8, F9.

12. Укажите функции клавиш F4, Ctrl-F7, Ctrl-F8, Ctrl-F9, Ctrl-F2.

13. Укажите функции клавиш Ctrl-Del, Ctrl-Ins, Shift-Del, Shift-Ins, Alt-F5.