Читайте также:
|
PROGRAM CountChars2(INPUT,OUTPUT);
VAR
Ch, Overflow, Ones, Tens, Hundreds: CHAR;
PROCEDURE BumpHundreds;
BEGIN
Tens:= '0'
IF Hundreds = '0' THEN Hundreds:= '1' ELSE
IF Hundreds = '1' THEN Hundreds:= '2' ELSE
IF Hundreds = '2' THEN Hundreds:= '3' ELSE
IF Hundreds = '3' THEN Hundreds:= '4' ELSE
IF Hundreds = '4' THEN Hundreds:= '5' ELSE
IF Hundreds = '5' THEN Hundreds:= '6' ELSE
IF Hundreds = '6' THEN Hundreds:= '7' ELSE
IF Hundreds = '7' THEN Hundreds:= '8' ELSE
IF Hundreds = '8' THEN Hundreds:= '9' ELSE
IF Hundreds = '9'
THEN
Overflow:= 'Y'
END;
PROCEDURE BumpTens;
BEGIN
Ones:= '0'
IF Tens = '0' THEN Tens:= '1' ELSE
IF Tens = '1' THEN Tens:= '2' ELSE
IF Tens = '2' THEN Tens:= '3' ELSE
IF Tens = '3' THEN Tens:= '4' ELSE
IF Tens = '4' THEN Tens:= '5' ELSE
IF Tens = '5' THEN Tens:= '6' ELSE
IF Tens = '6' THEN Tens:= '7' ELSE
IF Tens = '7' THEN Tens:= '8' ELSE
IF Tens = '8' THEN Tens:= '9' ELSE
IF Tens = '9'
THEN
BumpHundrends
END;
PROCEDURE BumpOnes;
BEGIN
IF Ones = '0' THEN Ones:= '1' ELSE
IF Ones = '1' THEN Ones:= '2' ELSE
IF Ones = '2' THEN Ones:= '3' ELSE
IF Ones = '3' THEN Ones:= '4' ELSE
IF Ones = '4' THEN Ones:= '5' ELSE
IF Ones = '5' THEN Ones:= '6' ELSE
IF Ones = '6' THEN Ones:= '7' ELSE
IF Ones = '7' THEN Ones:= '8' ELSE
IF Ones = '8' THEN Ones:= '9' ELSE
IF Ones = '9'
THEN
BumpTens
END;
PROCEDURE BumpCounter;
BEGIN
BumpOnes
END;
BEGIN
Overflow:= 'N';
Ones:= '0';
Tens:= '0';
Hundreds:= '0';
READ(Ch);
WHILE Ch <> '#'
DO
BEGIN
BumpCounter;
READ(Ch)
END;
IF Overflow = 'N'
THEN
WRITE('Number of characters is ', Hundreds, Tens, Ones)
ELSE
WRITE('Number of characters exceeds 999')
END.
Фаза разработки.
Разработка программ (совместно с тестированием программы)
1. Разработайте план сборки. Составьте части проекта (начав с простейшей программы) в последовательность все более сложных программ. План должен позволять выполнение программы на каждом шаге.
2. Как правило, на каждом шаге добавляйте не более 50 строк из проекта в разработку.
3. Не начинайте с первых 50 строк до тех пор, пока ваш проект не будет завершен. Записан должен быть ваш последний проект, а не первый.
4. Каждые 50 строк программы должны работать без ошибок с первого раза. Сосредоточенность в настоящем сохранит время и нервы в будущем.
Тестирование программы (совместно с разработкой программы)
1. Думайте серьезно о вашем плане сборки и о вашей конечной программе. Составьте правильную последовательность программ для получения положительной обратной связи на каждом этапе сборки программы.
2. Разработайте план тестирования. Создайте программы с временными операторами WRITE для получения выразительных результатов выполнения, несмотря на то, что это не окончательные результаты, необходимые вам.
3. Для каждого шага вашего плана сборки проведите тестовые испытания, и не забывайте об исключительных ситуациях, даже несмотря на их малую вероятность.
Дата добавления: 2015-02-16; просмотров: 101 | Поможем написать вашу работу | Нарушение авторских прав |