8. Завершение работы

Чтобы завершить работу со средой программирования Turbo Pascal 7.0, нужно из меню File (файл) выбрать команду Exit (выход) или нажать сочетание клавиш Alt+X.

9. Практическое задание

1. Запустить среду программирования Паскаль.

2. В меню File окна редактора выбрать команду New, с помощью которой создать новый фай:

3. В открывшемся окне набрать текст программы:

Program Lab_1;

Begin

WriteLn ('Good luck');

ReadLn;

End.

4. Программу Lab_l надо сохранить в вашем корневом каталоге, который находится на диске Н. Для того, чтобы сменить каталог, необходимо:

• вызвать команду Change dir;

• перейти на строку Drives и выбрать диск Н;

• нажать ОК.

5. Созданный файл сохранить под именем Lab_l.PAS. Для этого надо вызвать меню File, в открывшемся меню выбрать команду Save As. В появившемся диалоговом окне ввести в поле Name имя программы Lab_l.PAS.

2. Организация работы программ линейной структуры

Задача 1

Вычислить: (1,2 : 36 + 1,2 : 0,25 + Cos2) : 7,24.

Составим программу для решения приведенного арифметического при­мера, записывая его по правилам языка в одну строку:

Program Lab2_l;

Begin

Write( 1.2/36 + 1.2/0.25 + Cos(2))/7.24);

ReadLn;

End.

Задача 2

Необходимо ввести и вывести на печать три символа.

Program Lab2_2;

Var

А1,А2, A3 :Char;

Begin

WriteLn ( 'Введи три символа через пробел');

ReadLn (A1,A2, A3);

WriteLn ('Мы считали символы', Al, A2, A3);

End.

После запуска программы на исполнение мы видим на экране монитора: Введи три символа через пробел: X Y Z

Мы считали символы X Y Z.

Пояснения к решению задачи 2

Ввод значений осуществляется вами в переменные символьного типа А1, А2, A3, объявленные в программе как Char. Процедура ReadLn считывает с клавиатуры символ X и присваивает его переменной А1, затем считывает второй символ - Y и заносит его в переменную А2. Третий символ - Z соответственно считывается в переменную A3 .

Вывод значений осуществляется вами с помощью процедуры WriteLn в одну строку.

Задача 3

Необходимо ввести и вывести на печать два целых числа и два вещественных числа:

1) 5;

2) 317;

3) 45,399;

4) 700 000.

Program Lab2 3;

Var

cl, c2 : Integer;

c3, c4 : Real;

Begin

WriteLn ('Введи число 1-е');

ReadLn (c1);

WriteLn ('Введи число 2-е');

ReadLn (c2);

WriteLn ('Введи число 3-е');

ReadLn (сЗ);

WriteLn ('Введи число 4-е');

ReadLn (c4);

WriteLn ('РЕЗУЛЬТАТ: ');

WriteLn ('Мы ввели 1-е число:,c1) ;

WriteLn ('Мы ввели 2-е число:,с2) ;

WriteLn ('Мы ввели 3-е число:,c3);

WriteLn ('Мы ввели 4-е число:,c4);

End.

После запуска программы на исполнение мы видим на экране монитора:

Введи число 1-е

5

Введи число 2-е

317

Введи число 3-е

45.6

Введи число 4-е

500000

Результат:

Мы ввели 1-е число: 5

Мы ввели 2-е число: 317

Мы ввели 3-е число: 4.56Е + 01

Мы ввели 4-е число: 7.0Е + 05

Пояснения к решению задачи 3

При вводе значений в переменную целого или вещественного типа процедура ReadLn ожидает последовательности символов, образующих целое или вещественное число со знаком. Любые пробелы, знаки табуляции или признаки конца строки, предшествующие числовой строке, пропускаются.

Ввод значений осуществляется нами в две переменные целого типа c1, с2, объявленные в программе как Integer, и в две переменные вещественного типа с3, с4, объявленные как Real. Процедура ReadLn считывает с клавиатуры числа 5, 317, 45,6 и 500 000 и присваивает их значения соответственно переменным c1, с2, с3, с4.

Вывод значений осуществляется с помощью процедуры WriteLn: каждое число в своей строке. Первое и второе числа выведены в привычном виде, как и были введены. Третье и четвертое числа выведены в показательной форме. В следующем пункте мы рассмотрим форматированный вывод данных, который позволит вывести вещественные данные в обычном виде.