Презентация со сценарием, это когда для каждого слайда указана продолжительноть.
когда может задаваться порядок следования слайдов.
Интерактивная презентация, это когда слайды переключаются в ручную, по окончанию брифинга лектора например.
<u>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var r:integer;
var x:real;
while true do begin
Write('Выберите тип единицы длины:',NewLine,
'1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' );
Read(r);
if r=0 then begin Writeln('Пока!'); Exit end;
Write('Введите длину в этой единице: '); Read(x);
case r of
1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ',
x/10000,' км');
2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ',
x*1000000,' мм');;
3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ',
x/1000,' км');
4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ',
x/1000000,' км');
5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ',
x/100000,' км');
end
end
end.
Такой будет программа:
var
s, r, t, x, y: real;
begin
y:=1;
x := 5 + abs(y);
s := (x / 100000) * y * y * y * y;
r := (y + 1000) / sqrt(x);
t := 3 * x + y;
writeln('S= ', s);
writeln('R= ', r);
writeln('T= ', t);
if (s < r) and (r < t) then writeln('Наименьшее - S') else if (r < s) and (r < t) then writeln('Наименьшее - R') else writeln('Наименьшее - T');
end.
I диск = 650 Мбайт
записываем фильм 600 Мбайт < 650 Мбайт
II диск =650 Мбайт
записываем два фильма 55+400 = 450 Мбайт < 650 Мбайт
III диск = 650 Мбайт
записываем музыку 100*3,5=350 Мбайт < 650 Мбайт
var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл