Библиотека программиста

«Программирование, как и любовь - это одно слово, за которым скрывается бесчисленное множество занятий»

Главная страница > Основы программирования > 6. Практическое задание

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

 

 





<< Предыдущая статья
«5. Процедура вывода данных»
Следующая статья >>
7. Выражения
 
При использовании любых материалов с сайта http://www.introligator.org
обратная ссылка обязательна.
Rambler's Top100 Рейтинг@Mail.ru