Последовательность действий для создания анимации в программе microsoft powerpoint1. откройте программу для работы с презентациями microsoft office 2. вставьте на слайд фоновый рисунок трава.jpg с команды — рисунок.3. добавьте на слайд смайлик. для этого выполните команду вставка — - улыбающееся лицо.4. измените цвет смайлика на жёлтый с команды формат — заливка фигуры — 5. настройте траекторию движения смайлика по траве. выделите объект «смайлик», выполните команду — дополнительные параметры — другие пути перемещения — круг и откорректируйте траекторию движения на слайде.6. для того чтобы смайлик двигался с начала показа презентации, установите анимация — начало — 7. просмотрите презентацию, выполнив команду показ слайдов — 8. сохраните презентацию с команды файл — 9. покажите результат работы учителю. последовательность действий для создания анимации в программе openoffice impress1. откройте программу для работы с презентациями openoffice 2. вставьте на слайд фоновый рисунок tpaвa.jpg с команды вставка — — 3. добавьте на слайд смайлик. для этого в панели инструментов выберите фигуры - символы — 4. измените цвет смайлика на жёлтый с команды формат — область — 5. настройте траекторию движения смайлика по траве. выделите объект «смайлик», выполните команду демонстрация — — добавить — пути движения — овал и откорректируйте траекторию движения на слайде.6. для того чтобы смайлик двигался с начала показа презентации, установите — эффекты — начать — 7. просмотрите презентацию, выполнив команду демонстрация — 8. сохраните презентацию с команды файл —
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x y');
for i:=1 to n do
writeln(x[i],' ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.