Обратная связь

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

1. Войти в среду Турбо Паскаль.

2. По заданному варианту в окне текстового редактора написать программу по вводу и выводу значений стандартных типов данных.

3. Перейти в главное меню (команда F10), войти в меню  RUN и запустить программу на выполнение (подменю Run).

4. Просмотреть результаты счёта (команда Alt-F5).

5. Вернуться в окно редактора (нажать любую клавишу).

6. Просмотреть все режимы выполнения программы по  частям:

Program reset (Ctrl-F2);      Go to cursor (F4);

Trace into (F7);                      Step over (F8).

7. Выйти из режима Турбо Паскаль (команда Alt-X).

 

Варианты заданий

 

Номер варианта	Целые числа		Действительные числа			Количество символов	Вывести значения
	Количество	Формат	Количество	Формат
		Ширина поля		Ширина поля	Количество знаков после запятой
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26	2 3 3 2 4 2 3 3 4 2 2 3 3 3 4 2 2 3 3 3 4 4 2 3 2 2	5 6 6 5 4 3 2 5 7 6 6 4 3 2 5 7 8 6 6 4 4 3 2 3 2 4	4 2 2 4 3 3 4 4 3 5 5 6 6 4 5 2 4 4 5 5 2 2 3 4 5 3	6 7 6 6 7 5 8 6 5 8 6 6 5 5 7 7 4 6 8 7 5 5 7 6 8 6	2 3 3 2 4 1 3 2 1 4 2 2 2 2 3 4 1 2 2 3 2 3 4 3 5 4	4 5 3 6 4 3 2 5 6 7 6 5 4 3 4 2 4 4 3 3 2 4 3 5 4 5	True False True True False True True False False True True False False True True False True False False True False True False False True True

 

Пример программы

 

PROGRAM lab4;

USES CRT;    {  ПОДКЛЮЧЕНИЕ МОДУЛЯ  CRT  }

CONST

     LOG=TRUE;

VAR  K,M,N    :INTEGER;

     X,Y      :REAL;

     S1,S2,S3 :CHAR;

BEGIN

   CLRSCR;   { ОЧИСТКА ЭКРАНА }

   WRITELN (\' ВВЕДИТЕ ЦЕЛЫЕ ЧИСЛА  K, M, N  В ОДНУ СТРОКУ ЧЕРЕЗ ПРОБЕЛ.\');

   WRITELN (\' ПОСЛЕ ПОСЛЕДНЕГО ЧИСЛА НАЖМИТЕ КЛАВИШУ "ENTER" \');

   READLN  (K, M, N);

   WRITELN;

   WRITELN (\' \':20,\'ЦЕЛЫЕ  ЧИСЛА\');

   WRITELN (\' \':5,\'ВЫВОД В ФОРМАТЕ\',\' \':10,\'ВЫВОД БЕЗ ФОРМАТА\');

   WRITELN (\' \':10,\'K=\',K:5,\' \':20,\'K=\',K);

   WRITELN (\' \':10,\'M=\',M:5,\' \':20,\'M=\',M);

   WRITELN (\' \':10,\'N=\',N:5,\' \':20,\'N=\',N);

   WRITELN;

   WRITELN (\' ВВЕДИТЕ ДЕЙСТВИТЕЛЬНЫЕ ЧИСЛА  X, Y В ОДНУ СТРОКУ ЧЕРЕЗ ПРОБЕЛ.\');

   WRITELN (\' ПОСЛЕ ПОСЛЕДНЕГО ЧИСЛА НАЖМИТЕ КЛАВИЩУ "ENTER" \');

   READLN  (X,Y);

   WRITELN ;

   WRITELN (\' \':20,\'ДЕЙСТВИТЕЛЬНЫЕ  ЧИСЛА\');

   WRITELN (\' \':5,\'ВЫВОД В ФОРМАТЕ\',\' \':10,\'ВЫВОД БЕЗ ФОРМАТА\');

   WRITELN (\' \':10,\'X=\',X:8:4,\' \':15,\'X=\',X);

   WRITELN (\' \':10,\'Y=\',Y:8:4,\' \':15,\'Y=\',Y);

   WRITELN;

   WRITELN (\' ВВЕДИТЕ СИМВОЛЬНЫЕ ДАННЫЕ  ДЛЯ ПЕРЕМЕННЫХ S1, S2, S3.\');

   WRITELN (\' ПОСЛЕ КАЖДОГО СИМВОЛА НАЖМИТЕ КЛАВИШУ  "ENTER" \');

   WRITE (\' s1=\');  READLN(S1);

   WRITE (\' s2=\');  READLN(S2);

   WRITE (\' s3=\');  READLN(S3);

   WRITELN ;

   WRITELN (\' \':20,\'СИМВОЛЬНЫЕ  ДАННЫЕ\');

   WRITELN (\' \':5,\'ВЫВОД В ФОРМАТЕ\',\' \':10,\'ВЫВОД БЕЗ ФОРМАТА\');

   WRITELN (\' \':10,\'S1=\',S1:3,\' \':20,\'S1=\',S1);

   WRITELN (\' \':10,\'S2=\',S2:3,\' \':20,\'S2=\',S2);

   WRITELN (\' \':10,\'S3=\',S3:3,\' \':20,\'S3=\',S3);

   WRITELN ;

   WRITELN (\' \':20,\'ЛОГИЧЕСКИЕ  ДАННЫЕ\');

   WRITELN (\' \':5,\'ВЫВОД В ФОРМАТЕ\',\' \':10,\'ВЫВОД БЕЗ ФОРМАТА\');

   WRITELN (\' \':10,\'LOG=\',LOG:7,\' \':15,\'LOG=\',LOG);

   WRITELN; WRITELN; WRITELN;

   WRITELN (\' ДЛЯ ПРОДОЛЖЕНИЯ РАБОТЫ НАЖМИТЕ КЛАВИШУ "ENTER" \');

   READLN ; {ЗАДЕРЖКА ЭКРАНА ВЫПОЛНЕНИЯ ПРОГРАММЫ ДО НАЖАТИЯ КЛАВИШИ "ENTER"}

END.

 

Результат выполнения программы приведен на рис. 1.1.

 

Рис. 1.1