Диалоговая программа на Паскале

с пользователем программы. Этот интерфейс обязательно должен быть дружественным. Содержание диалога должно быть понятным и удобным.
Необходимо обратить внимание на два момента:
перед словом ELSE нельзя ставить точку с запятой
в записи и при вводе вещественных чисел целая и дробная части числа отделяются точкой

Программирование диалога на Паскале

PROGRAM NANNY ;

IF T > 36.6

READLN ( Т ) ;

BEGIN

VAR T : REAL ;

END .

THEN BEGIN WRITELN ( «Ты еще болен! Раздевайся и ложись в постель.» ) ;

ELSE BEGIN WRITELN ( «Ты здоров, дружок! Можешь идти в школу.» ) ;

WRITELN («Ты вчера был болен. Измерь-ка температуру!» ) ;

WRITELN («Сообщи, какая у тебя температура:» ) ;

WRITELN ( «Поправляйся, дружок!» ) END

WRITELN ( «Желаю успехов!» ) END

Алгоритм диалога с компьютером

болен! Раздевайся и ложись в постель.» ) ;

Ты вчера был болен. Измерь-ка температуру!

С помощью оператора вывода WRITELN на экран компьютера выводится сообщение компьютера в соответствии со сценарием диалога.

PROGRAM NANNY ;

IF T > 36.6

READLN ( Т ) ;

BEGIN

VAR T : REAL ;

ELSE BEGIN WRITELN ( «Ты здоров, дружок! Можешь идти в школу.» ) ;

WRITELN («Сообщи, какая у тебя температура:» ) ;

WRITELN ( «Поправляйся, дружок!» ) END

WRITELN ( «Желаю успехов!» ) END

WRITELN («Ты вчера был болен. Измерь-ка температуру!» ) ;

.

THEN BEGIN WRITELN ( «Ты еще болен! Раздевайся и ложись в постель.» ) ;

Ты вчера был болен. Измерь-ка температуру!
Сообщи, какая у тебя температура:

IF T > 36.6

READLN ( Т ) ;

ELSE BEGIN WRITELN ( «Ты здоров, дружок! Можешь идти в школу.» ) ;

WRITELN («Ты вчера был болен. Измерь-ка температуру!» ) ;

WRITELN ( «Поправляйся, дружок!» ) END

WRITELN ( «Желаю успехов!» ) END

С помощью оператора вывода WRITELN на экран компьютера выводится информация в форме команды. Школьнику предлагается измерить температуру тела и ввести эти данные в компьютер с клавиатуры.

WRITELN («Сообщи, какая у тебя температура:» ) ;

.

THEN BEGIN WRITELN ( «Ты еще болен! Раздевайся и ложись в постель.» ) ;

Ты вчера был болен. Измерь-ка температуру!
Сообщи, какая у тебя температура:

Ввод данных о температуре тела в компьютер. Можно рассмотреть работу программы по двум вариантам. Введи одно из двух показаний термометра.

IF T > 36.6

ELSE BEGIN WRITELN ( «Ты здоров, дружок! Можешь идти в школу.» ) ;

WRITELN («Ты вчера был болен. Измерь-ка температуру!» ) ;

WRITELN («Сообщи, какая у тебя температура:» ) ;

WRITELN ( «Поправляйся, дружок!» ) END

WRITELN ( «Желаю успехов!» ) END

36.4

37.6

READLN ( Т ) ;

T : REAL ;

END .

THEN BEGIN WRITELN ( «Ты еще болен! Раздевайся и ложись в постель.» ) ;

ELSE BEGIN WRITELN ( «Ты здоров, дружок! Можешь идти в школу.» ) ;

WRITELN («Ты вчера был болен. Измерь-ка температуру!» ) ;

WRITELN («Сообщи, какая у тебя температура:» ) ;

WRITELN ( «Поправляйся, дружок!» ) END

WRITELN ( «Желаю успехов!» ) END

Ты вчера был болен. Измерь-ка температуру!
Сообщи, какая у тебя температура:
36.4

По служебному слову IF (ЕСЛИ) компьютер сравнивает значение температуры тела, введенное с клавиатуры T = 36.4 с нормальным значением 36.6 градусов (проверка истинности условия). Результат сравнения – ложь (условие не выполнено).

IF T > 36.6

Т ) ;

BEGIN

VAR T : REAL ;

END .

THEN BEGIN WRITELN ( «Ты еще болен! Раздевайся и ложись в постель.» ) ;

WRITELN («Ты вчера был болен. Измерь-ка температуру!» ) ;

WRITELN («Сообщи, какая у тебя температура:» ) ;

WRITELN ( «Поправляйся, дружок!» ) END

Ты вчера был болен. Измерь-ка температуру!
Сообщи, какая у тебя температура:
36.4
Ты здоров, дружок! Можешь идти в школу!.

Так как температура тела соответствует
норме, компьютерная программа выводит
на экран компьютера сообщение о том,
что ребенок здоров и может идти в школу.

WRITELN ( «Желаю успехов!» ) END

ELSE BEGIN WRITELN ( «Ты здоров, дружок! Можешь идти в школу.» ) ;

Т ) ;

BEGIN

VAR T : REAL ;

END .

THEN BEGIN WRITELN ( «Ты еще болен! Раздевайся и ложись в постель.» ) ;

WRITELN («Ты вчера был болен. Измерь-ка температуру!» ) ;

WRITELN («Сообщи, какая у тебя температура:» ) ;

WRITELN ( «Поправляйся, дружок!» ) END

Ты вчера был болен. Измерь-ка температуру!
Сообщи, какая у тебя температура:
36.4
Ты здоров, дружок! Можешь идти в школу!.
Желаю успехов!

Продолжение фразы в следующей строке по новому оператору вывода. Компьютерная программа желает успехов в соответствии с разработанным сценарием.

ELSE BEGIN WRITELN ( «Ты здоров, дружок! Можешь идти в школу.» ) ;

WRITELN ( «Желаю успехов!» ) END

.

THEN BEGIN WRITELN ( «Ты еще болен! Раздевайся и ложись в постель.» ) ;

Ты вчера был болен. Измерь-ка температуру!
Сообщи, какая у тебя температура:
37.6

READLN ( Т ) ;

ELSE BEGIN WRITELN ( «Ты здоров, дружок! Можешь идти в школу.» ) ;

WRITELN («Ты вчера был болен. Измерь-ка температуру!» ) ;

WRITELN («Сообщи, какая у тебя температура:» ) ;

WRITELN ( «Поправляйся, дружок!» ) END

WRITELN ( «Желаю успехов!» ) END

По служебному слову IF (ЕСЛИ) компьютер сравнивает значение температуры тела, введенное с клавиатуры T = 37.6 с нормальным значением 36.6 градусов (проверка истинности условия). Результат сравнения – истина (условие выполнено).

IF T > 36.6

.

Ты вчера был болен. Измерь-ка температуру!
Сообщи, какая у тебя температура:
37.6
Ты еще болен! Раздевайся и ложись в постель.

IF T > 36.6

READLN ( Т ) ;

ELSE BEGIN WRITELN ( «Ты здоров, дружок! Можешь идти в школу.» ) ;

WRITELN («Ты вчера был болен. Измерь-ка температуру!» ) ;

WRITELN («Сообщи, какая у тебя температура:» ) ;

WRITELN ( «Желаю успехов!» ) END

WRITELN ( «Поправляйся, дружок!» ) END

Так как температура тела не соответствует
норме, компьютерная программа выводит
на экран компьютера сообщение о том,
что ребенок болен и должен лечь в постель.

THEN BEGIN WRITELN ( «Ты еще болен! Раздевайся и ложись в постель.» ) ;