Реферат: Язык программирования Паскаль и ветвление

Writeln (‘1. в единице массы вещества’);

Writeln (‘2. в теле массой R’);

Writeln (‘3. в единице объёма’);

Writeln (‘4. в теле объёмом V’);

Write (‘введите номер решающей задачи’);

Readln (N);

Write (‘введите исходные данные: М =’);

Readln (M);

Case N of

1: K: = NA / M;

2: begin

Write (‘R = ‘);

Readln (R);

K: = NA *R/M;

End;

3: begin

write (‘плотность вещества Р = ’);

Readln (P);

Write (‘V = ‘);

Readln (V);

K: = NA *P *V/M;

End;

4: begin write (‘плотность вещества P = ’);

Readln (P);

K: = NA *P/V

End;

End;

Write (‘число молекул K = ’, K’);

End.