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

Порядок выполнения работы

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).

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

Номер варианта	Целые числа	Действительные числа	Количество символов	Вывести значения
Количество	Формат	Количество	Формат
Ширина поля	Ширина поля	Количество знаков после запятой
							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

Дата добавления: 2014-12-26