Вказівка розгалуження
Повна форма:
if <умова> then begin <команда 1>; <команда 2>; ... <команда n>; end
else begin <команда 1>; <команда 2>; ... <команда n>; end
Скорочена форма:
if <умова> then begin <команда 1>; <команда 2>; ... <команда n>; end
Задача_2. Скласти програму, яка буде визначати, чи сьогодні тепло. Теплом будем вважати, коли температура повітря становитиме 20 градусів.
Тобто, ви вводити з клавіатури температуру повітря, а комп'ютер буде визначати чи тепло, чи холодно.
program temperaturapovitrja; {назва програми}
var t:integer; {розділ змінних}
begin
writeln('vvedit temperaturu povitrja'); {видруковує фразу vvedit temperaturu povitrja}
readln(t); {читає змінну t, тобто ви вводете температуру повітря}
if t>=20 then begin writeln('sogodni teplo'); end
{якщо температура більша за 20, і це правда, то друкує sogodni teplo}
else begin writeln('sogodni xolodno'); end;
{інакше, тобто температура є менша за 20, дрокує sogodni xolodno}
readln; {затримка}
end. {кінець}
| 