1. слайдтарды сұрыптау режимі қандай мүмкіндік береді? 2. презентацияны көрсетуді қай команданың көмегімен орындауға болады? 3. жаңа слайдты қай команданың көмегімен құруға болады? 4.презентацияның кез келген компонентін баспаға шығару үшін қай команданы орындаймыз? 5. слайдта қандай обьектілер орналастыруға болады? 6. ms power point бағдарламасы үлгітүрдің қандай типтерін ұсынады? 8. ms power point бағдарламасында презентация құрудың қандай тәсілі бар? (қате жауабын көрсет) а) автомазмұн шебері, презентация шаблоны арқылы; ә) бос презентация арқылы; б) программалық тілдер жазу арқылы. 9. ms power point бағдарламасында құжат бейнелеуінің қандай режимдері бар? 10. ms power point бағдарламасын іске қосу жолы:
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
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.