Порядок выполнения работы
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