"justify"> Мітка 2: оператор 2;
...
Мітка n: оператор n;
Else оператор n + 1
End;
Приклад:
Скласти програму-вирішувач.
Дано: молярна маса речовини М, щільність даної речовини Р, маса R або обсяг V. Потрібно знайти число молекул К: 1) в одиниці маси речовини, 2) в тілі заданої масою: 3) в одиниці об'єму речовини; 4) у тілі заданим обсягом. Для вирішення задачм скористаємося формулою:
K = (N А/M) R
Де NA = 6,022 * 10Ііг/моль - число Авогадро.
На підставі цієї формули отримуємо розрахункові формули для програми:
1) K = NA/M, 2) K = NAR, 3) K = NAPV/M 4) K = NAP/M.
Програма має вигляд:
Program E20;
Const NA = 6.022 E20; N: integer; M, R, P, V, K: real;
Writeln ( знаючи постійну Авогадро, Щільність P даної речовини );
Writeln ( і його молярну масу М, можна знайти число молекул в );
Writeln ( 1. в одиниці маси речовини );
Writeln ( 2. в тілі масою R );
Writeln ( 3. в одиниці обсягу );
Writeln ( 4. у тілі об'ємом V );
Write ( введіть номер вирішальною завдання );
Readln (N);
Write ( введіть вихідні дані: М = );
Readln (M); N of
: K: = NA/M;
: begin ( R = ); (R);: = NA * R/M;; span>
: begin ( щільність речовини Р = );
Readln (P); ( V = ); (V);: = NA * P * V/ M;;
: begin write ( щільність речовини P = ); (P);: = NA * P/V; ; ( число молекул K = , K );
End.
2. Вкладені умови
Існують завдання у яких по одній з гілки розг...