1- Сколько клеток входит в диапазон А5 : D8? a. 2 b. 8 c. 16 d. 5 2- Укажите верно записанную формулу для электронной таблицы: a. = B+Y8/5 b. = H7+CMM(B8:C9) c. = 2A8 d. = D3:3 3- К текстовым процессорам относятся… a. Base; b. Impress. c. Excel; d. Word; 4- Папка, в которую временно помещаются удаляемые объекты, называется… a. Ярлык b. Файл c. Корзина d. Каталог 5- Файл Электронной таблицы называется… a. база данных; b. презентация. с. рабочая книга d. слайд; 6- Что необходимо сделать для сохранения изменений в файле? a. выполнить команду "Файл - Сохранить" b. выполнить команду "Файл - Свойства…" с. выполнить команду "Файл - Открыть…" d. нажать кнопку "Копировать" на панели инструментов 7- Адрес ячейки электронной таблицы - это… a. имя, состоящее из имени столбца и номера строки b. адрес машинного слова оперативной памяти, отведенного под клетку c. имя, состоящее из любой последовательности символов d. имя, состоящее из номера столбца и 8- Для перемещения фрагмента текста из одного места документа в другое необходимо выполнить команду(ы)… a. Сохранить, Вставить b. Вырезать, Вставить c. Вырезать d. Копировать, Вставить 9- Клавиатура предназначена для… a. вывода информации на бумагу b. ввода алфавитно-цифровых данных, управления работой ПК c. вывода на экран текстовой и графической информации d. вывода информации в виде звуковых колебаний 10- Ярлык - это… a. Название программы или документа; b. Часть файла; c. Ссылка на программу или документ; d. Ценник 11- Файлы документов, созданные в среде Word имеют расширение… a. . вак; b. .doc; c. . xls. d. . exe; 12- Чтобы сохранить текстовый файл (документ) в определенном формате, необходимо задать a. размер шрифта; b. размеры страницы . c. параметры абзаца; d. тип файла 13- Принтер предназначен для… a. ввода алфавитно-цифровых данных, управления работой ПК b. вывода информации в виде звуковых колебаний. c. вывода на экран текстовой и графической информации d. вывода информации на бумагу 14- Можно ли одновременно использовать два Flash накопителя на одном компьютере? a. нет, так как к компьютеру можно подключить только один Flash накопитель b. да, при условии что к компьютеру не подключены еще какие-либо устройства c. да можно, даже и три, и четыре, если есть свободные разъемы d. нет, они будут конфликтовать друг с другом, что может привести к порче компьютера
Ответы
Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2).
Сделать это можно так:
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N <> '11')
then write(fr2,Marshrut)
else begin inc(kol); y:=Marshrut; end;
end;
if not eof(fr) then
begin
read(fr, Marshrut);
write(fr2,Marshrut);
end;
if (kol=1) then write(fr2,y);
Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).
Попробуйте ещё вот такой вариант:
(здесь k1 и k2 - целые, а y - типа )
if (Marshrut.NK.N = '11') then
begin
writeln('... ');
inc(kol);
y:=Marshrut;
k1:=FilePos(fr)-1;
k2:=FilePos(fr);
if not eof(fr) then
begin
read(fr, Marshrut);
seek (fr, k1);
write(fr, Marshrut);
seek (fr, k2);
write (fr, y);
end;
end;
Сделать это можно так:
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N <> '11')
then write(fr2,Marshrut)
else begin inc(kol); y:=Marshrut; end;
end;
if not eof(fr) then
begin
read(fr, Marshrut);
write(fr2,Marshrut);
end;
if (kol=1) then write(fr2,y);
Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).
Попробуйте ещё вот такой вариант:
(здесь k1 и k2 - целые, а y - типа )
if (Marshrut.NK.N = '11') then
begin
writeln('... ');
inc(kol);
y:=Marshrut;
k1:=FilePos(fr)-1;
k2:=FilePos(fr);
if not eof(fr) then
begin
read(fr, Marshrut);
seek (fr, k1);
write(fr, Marshrut);
seek (fr, k2);
write (fr, y);
end;
end;
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
F.Seek(0);
var e:integer;
Print('F:');
while not F.Eof do begin
Read(F,e); Print(e);
if e>0 then Write(G,e)
end;
F.Seek(0);
while not F.Eof do begin
Read(F,e);
if e<0 then Write(G,e)
end;
F.Seek(0);
while not F.Eof do begin
Read(F,e);
if e=0 then Write(G,e)
end;
F.Close;
Writeln;
Print('G:');
G.Seek(0);
while not G.Eof do begin
Read(G,e); Print(e)
end;
G.Close
end.
Тестовое решение:
F: -14 15 -16 0 7 0 18 19 -12 -10 6 15 -19 -14 -15 -1 -6 -4 -20 12 10 4 3 16 -14 -20 3 10 -13 -16
G: 15 7 18 19 6 15 12 10 4 3 16 3 10 -14 -16 -12 -10 -19 -14 -15 -1 -6 -4 -20 -14 -20 -13 -16 0 0
Данное решение неоптимально по времени, поскольку файл читается трижды. Можно сделать иной вариант, читая данные за один проход и помещая в две вс структуры памяти отрицательные и нулевые элементы.
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
var n:=F.FileSize;
var neg,zer:array of integer;
SetLength(neg,n); SetLength(zer,n);
F.Seek(0);
var e:integer;
var ineg:=0;
var izer:=0;
Print('F:');
while not F.Eof do begin
Read(F,e); Print(e);
if e>0 then Write(G,e)
else
if e<0 then begin neg[ineg]:=e; Inc(ineg) end
else begin zer[izer]:=e; Inc(izer) end
end;
F.Close;
Writeln;
SetLength(neg,ineg);
foreach e in neg do Write(G,e);
SetLength(zer,izer);
foreach e in zer do Write(G,e);
Print('G:');
G.Seek(0);
while not G.Eof do begin
Read(G,e); Print(e)
end;
G.Close
end.
Тестовое решение:
F: 7 5 -14 6 -11 -9 5 -1 5 -5 -7 -1 4 -20 17 -19 0 -3 0 6 20 1 -2 -18 9 20 0 -2 3 -13
G: 7 5 6 5 5 4 17 6 20 1 9 20 3 -14 -11 -9 -1 -5 -7 -1 -20 -19 -3 -2 -18 -2 -13 0 0 0
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
F.Seek(0);
var e:integer;
Print('F:');
while not F.Eof do begin
Read(F,e); Print(e);
if e>0 then Write(G,e)
end;
F.Seek(0);
while not F.Eof do begin
Read(F,e);
if e<0 then Write(G,e)
end;
F.Seek(0);
while not F.Eof do begin
Read(F,e);
if e=0 then Write(G,e)
end;
F.Close;
Writeln;
Print('G:');
G.Seek(0);
while not G.Eof do begin
Read(G,e); Print(e)
end;
G.Close
end.
Тестовое решение:
F: -14 15 -16 0 7 0 18 19 -12 -10 6 15 -19 -14 -15 -1 -6 -4 -20 12 10 4 3 16 -14 -20 3 10 -13 -16
G: 15 7 18 19 6 15 12 10 4 3 16 3 10 -14 -16 -12 -10 -19 -14 -15 -1 -6 -4 -20 -14 -20 -13 -16 0 0
Данное решение неоптимально по времени, поскольку файл читается трижды. Можно сделать иной вариант, читая данные за один проход и помещая в две вс структуры памяти отрицательные и нулевые элементы.
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
var n:=F.FileSize;
var neg,zer:array of integer;
SetLength(neg,n); SetLength(zer,n);
F.Seek(0);
var e:integer;
var ineg:=0;
var izer:=0;
Print('F:');
while not F.Eof do begin
Read(F,e); Print(e);
if e>0 then Write(G,e)
else
if e<0 then begin neg[ineg]:=e; Inc(ineg) end
else begin zer[izer]:=e; Inc(izer) end
end;
F.Close;
Writeln;
SetLength(neg,ineg);
foreach e in neg do Write(G,e);
SetLength(zer,izer);
foreach e in zer do Write(G,e);
Print('G:');
G.Seek(0);
while not G.Eof do begin
Read(G,e); Print(e)
end;
G.Close
end.
Тестовое решение:
F: 7 5 -14 6 -11 -9 5 -1 5 -5 -7 -1 4 -20 17 -19 0 -3 0 6 20 1 -2 -18 9 20 0 -2 3 -13
G: 7 5 6 5 5 4 17 6 20 1 9 20 3 -14 -11 -9 -1 -5 -7 -1 -20 -19 -3 -2 -18 -2 -13 0 0 0
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Чим відрізняються властивості Height і Width для форми і для поля
Автор: chavagorin
Как объявляются массивы в школьном алгоритмическом языке и в Паскале
Автор: evsyukov1997
Написать по действиям решения примера: y=(4x^2+7)/(3x-6)+√x
Автор: Радецкая264
Перечислите все месяца года в алфавитном порядке
Автор: alexandrxzx09
Как называются ноги робота?
Автор: vetviptime
Их назначение ( )СОР И ЛУЧШИЙ ОТВЕТ
Автор: nikitavertiev98400
1 - c. 16
2 - d. = D3:3
3 - d. Word;
4 - c. Корзина
5 - с. рабочая книга
6 - a. выполнить команду "Файл - Сохранить"
7 - a. имя, состоящее из имени столбца и номера строки
8 - b. Вырезать, Вставить
9 - b. ввода алфавитно-цифровых данных, управления работой ПК
10 - c. Ссылка на программу или документ
11 - b. .doc
12 - d. тип файла
13 - d. вывода информации на бумагу
14 - c. да можно, даже и три, и четыре, если есть свободные разъемы