«Любой дурак может написать программу, которую поймет компилятор. Хорошие программисты пишут программы, которые смогут понять другие программисты»
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. Выражения