Информатика 5 класс 1) Что из перечисленного может являться фрагментом текста?
a) Слово в тексте.
b) Абзац в тексте.
c) Строчка в тексте.
d) Весь текст.
2) При редактировании фрагмента его нужно предварительно...
а) Выделить.
b) Скопировать.
c) Удалить.
d) Вставить.
3) Если установить курсор перед строкой, и после появления указателя, щелкнуть левой кнопки мыши один раз, то выделятся следуцщий фрагмент текста...
a) Строка.
b) Абзац.
c) Весь текст.
d) Слово.
4) Отметье неправильные выражения о работе с фрагментом текста.
a) Вырезанный фрагмент текста можно вставлять в текст один раз.
b) Для редактирования фрагмента его нужно предворительно выделить.
c) Для вставки скопиранного фрагмента из буфера нужно нажать кнопку "ножницы".
5) Правда ли, что в текстовом процессоре есть функция замены одного текстового фрагмента другим?
a) Нет.
b) Да.
6) Правда ли что фон выделяемого текстогово фрагмента меняет цвет?
a) Да.
b) Нет.
7) Какие операции над фрагментами текста можно производить в текстовом процессоре?
a) Вставлять фрагмент текста из буфера.
b) Копировать фрагмент текста в буфер.
c) Удалять фрагмент текста.
d) Осуществлять замену фрагмента текста другим текстом.
Выделять фрагмент текста.
Осуществлять поиск фиагмента текста.
var
f:file of integer;
i,k:integer;
begin
Randomize;
Assign(f,'in.dat'); Rewrite(f);
for i:=1 to 20 do begin
k:=Random(99)+1;
Write(f,k)
end;
Close(f)
end.
Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
2. Основная программа
uses Crt;
const
nn=100;
var
i,j,k,n:integer;
fin,fout:file of integer;
a:array[1..nn] of integer;
dub:boolean;
begin
ClrScr;
Assign(fin,'in.dat'); Reset(fin);
Read(fin,k);
if not eof(fin) then begin
n:=1; Write(k,' '); a[n]:=k
end
else n:=0;
while (not eof(fin)) and (n<=nn) do begin
Read(fin,k); Write(k,' ');
j:=1; dub:=false;
while (j<=n) and (not dub) do begin
dub:=(a[j]=k); Inc(j);
end;
if not dub then begin Inc(n); a[n]:=k; Inc(j) end
end;
Writeln;
Close(fin);
for i:=1 to n do Write(a[i],' ');
Writeln; Writeln('n=',n);
Assign(fout,'out.dat'); Rewrite(fout);
Write(fout,n); Close(fout);
ReadKey
end.
Тестовое решение:
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18
В качестве бонуса - решение этой же задачи в современной системе программирования PascalABC.NET.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var fin,fout:file of integer;
Reset(fin,'in.dat');
var k:integer;
var a:=new integer[fin.FileSize];
var n:=0;
while not eof(fin) do begin
Read(fin,k); a[n]:=k; Inc(n)
end;
Close(fin);
a.Println;
var b:=a.ToHashSet;
b.Println; Writeln('n=',b.Count)
end.
Тестовое решение
38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13
38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13
n=18
И вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? Чтобы показать, "как все это сложно"?