1уровень сложности (создание, копирование, удаление, перемещение, переименование папок и файлов)создать в папке «мои документы» папку myfiles.запустить текстовый редактор блокнот и набрать в нём свою визитную карточку (фамилию, имя, отчество, адрес, телефоны).сохранить набранный текст в папке myfiles под именем vizitka.создать в папке «мои документы» папку newfolder.скопировать в папку newfolder файл vizitka.txt из папки myfiles.переименовать файл vizitka.txt из папки newfolder в файл card.txt.скопировать файл card.txt в папку myfiles.переместить папку newfolder в папку myfiles.определить время создания файла vizitka.txt и его размер в байтах.(схема древо)2 уровень сложности (шаблоны имён файлов, поиск файлов на диске, сортировка содержимого папки)создать в папке «мои документы» папку pictures.найти на диске c: любые пять файлов с расширением .jpg (если нет графических файлов, скопировать из интернета).скопировать все найденные файлы в папку pictures.отсортировать скопированные файлы по убыванию размера файла (при этом размер каждого файла должен отображаться на экране).определить размер папки pictures.переименовать все файлы, назвав их foto1.jpg, foto2.jpg, foto3,jpg, foto4.jpg, foto5.jpg.отсортировать содержимое папки pictures по именам файлов.3 уровень сложностив папке мои документы создать папку и указать в ее названии свою фамилию и класс, например «иванова-8а»в своей папке создать папки рисунки и текстыпросмотреть папку примерырасположить в ней файлы в табличном видезаписать в тетради, у какого файла самый большой размер, какой файл создан раньше другихскопировать из папки примеры файлы с рисунками и текстами, распределив их по соответствующим папкамв папке рисунки просмотреть содержимое каждого рисунка и переименовать его так, чтобы имя соотносилось с содержаниемсоздать в папке рисунки вложенные папки по темам рисунков: растения и животныепереместить рисунки в папки в соответствии с тематикойсоздать в папке тексты вложенные папки по темам текстов: , информатика и переместить текстовые файлы в папки в соответствии с тематикой
const
sb='bcdfgjklmnpqrstvwxz';
s='Computer programming is a process of computer programs creation';
var
i,n:integer;
s1,sn,t:string;
begin
i:=1;
while s[i]<>' ' do Inc(i);
s1:=Copy(s,1,i-1);
n:=Length(s); i:=n;
while s[i]<>' ' do Dec(i);
sn:=Copy(s,i+1,n-i);
t:='';
for i:=1 to Length(s1) do
if Pos(s1[i],sb)>0 then t:=t+s1[i];
s1:=t;
t:='';
for i:=1 to Length(sn) do
if Pos(sn[i],sb)>0 then t:=t+sn[i];
sn:=t;
t:='';
for i:=1 to Length(s1) do
if Pos(s1[i],sn)>0 then
if Pos(s1[i],t)=0 then t:=t+s1[i];
for i:=1 to Length(t) do Write(t[i],' ');
Writeln
end.
Тестовый прогон:
t r
2. "Нормальное" решение
// PascalABC.NET 3.0, сборка 1073
const
sb='bcdfgjklmnpqrstvwxz';
s='Computer programming is a process of computer programs creation';
begin
var a:=s.ToWords(' ');
a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.
Тестовый прогон:
t,r