М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
keshacold691
keshacold691
14.07.2020 20:54 •  Информатика

Составьте программу изображения поля "в полоску"для этого нарисуйте разноцветные прямоугольники толщиной 20 пикселей расположенные друг под другом

👇
Ответ:
linovaya
linovaya
14.07.2020

uses graphABC;

var

 x1, y1, x2, y2: integer;

begin

 x1 := 1;

 y1 := 1;

 x2 := 800;

 y2 := 20;

 Window.SetSize(800, 600);

 for var i := 1 to 30 do

 begin

   SetBrushColor(clRandom);

   FillRect(x1, y1, x2, y2);  

   y1 := y1 + 20;

   y2 := y2 + 20;

 end;

end.

4,5(49 оценок)
Открыть все ответы
Ответ:
pakipysi
pakipysi
14.07.2020
Program textFind;
uses StrUtils;
var text,buffer : String;
var tpos,lastpos,counter,biggest : Integer;
begin
  tpos := 0;
  text := '';
  while(tpos = 0) do begin
    readln(buffer);
    text += buffer;
    tpos := pos('.',buffer)
  end;
  lastpos := 1;
  tpos := PosEx(' ',text,lastpos);
  if tpos = 0 then 
    tpos := PosEx('.',text,lastpos);
  biggest := tpos-1;  lastpos := tpos+1;
  while(not (tpos = 0)) do begin
    tpos := PosEx(' ',text,lastpos);
    if tpos = 0 then
        tpos := PosEx('.',text,lastpos);
    if (tpos-lastpos) > biggest then
        biggest := tpos-lastpos; 
   lastpos := tpos+1;
  end;
  lastpos := 1;  counter := 0;
  tpos := PosEx(' ',text,lastpos);
  if tpos = 0 then
    tpos := PosEx('.',text,lastpos);
  while(not (tpos = 0)) do begin
    if (tpos-lastpos) = biggest then
        counter += 1;
    lastpos := tpos + 1;
    tpos := PosEx(' ',text,lastpos);
    if tpos = 0 then
        tpos := PosEx('.',text,lastpos);
  end;
writeln(counter);
end.
4,7(70 оценок)
Ответ:
rassvetmoydrug
rassvetmoydrug
14.07.2020

Развитие материальных носителей документированной информации в целом идёт по пути непрерывного поиска объектов с высокой долговечностью, большой информационной ёмкостью при минимальных физических размерах носителя. Начиная с 1980-х годов, всё более широкое распространение получают оптические (лазерные) диски.Это пластиковые или алюминиевые диски, предназначенные для записи и воспроизведения информации при лазерного луча.

Впервые оптическая запись звуковых программ для бытовых целей была осуществлена в 1982 г. фирмами "Sony" и "Philips" в лазерных проигрывателях на компакт-дисках, которые стали обозначаться аббревиатурой CD (Compact Disc). В середине 1980-х годов были созданы компакт-диски с постоянной памятью - CD-ROM (Compact Disc - Read Only Memory). C 1995 стали использоваться перезаписываемые оптические компакт-диски: CD-R (CD Recordable) и CD-E (CD Erasable).

Оптические диски имеют обычно поликарбонатную или стеклянную термообработанную основу. Рабочий слой оптических дисков изготавливают в виде тончайших плёнок легкоплавких металлов (теллур) или сплавов (теллур-селен, теллур-углерод, теллур-селен-свинец и др.), органических красителей. Информационная поверхность оптических дисков покрыта миллиметровым слоем прочного прозрачного пластика (поликарбоната). В процессе записи и воспроизведения на оптических дисках роль преобразователя сигналов выполняет лазерный луч, сфокусированный на рабочем слое диска в пятно диаметром около 1 мкм. При вращении диска лазерный луч следует вдоль дорожки диска, ширина которой также близка к 1мкм. Возможность фокусировки луча в пятно малого размера позволяет формировать на диске метки площадью 1-3мкм¦. В качестве источника света используются лазеры (аргоновые, гелий-кадмиевые и др.). В результате плотность записи оказывается на несколько порядков выше предела, обеспечиваемого магнитным записи. Информационная ёмкость оптического диска достигает 1Гбайт(при диаметре диска 130мм) и 2-4Гбайт(при диаметре 300мм).

В отличие от магнитных записи и воспроизведения, оптические методы являются бесконтактными. Лазерный луч фокусируется на диск объективом, отстоящим от носителя на расстоянии до 1 мм. При этом практически исключается возможность механического повреждения оптического диска106. Для хорошего отражения лазерного луча используется так называемое "зеркальное" покрытие дисков алюминием или серебром.

Широкое применение в качестве носителя информации получили также магнитооптические компакт-дискитипа RW (Re Writeble). На них запись информации осуществляется магнитной головкой с одновременным использованием лазерного луча. Лазерный луч нагревает точку на диске, а электромагнит изменяет магнитную ориентацию этой точки. Считывание же производится лазерным лучом меньшей мощности.

Во второй половине 1990-х годов появились новые, весьма перспективные носители документированной информации -  DVD (Digital Versatile Disk) типа DVD-ROM, DVD-RAM, DVD-R с большой ёмкостью (до 17Гбайт). Увеличение их ёмкости связано с использованием лазерного луча меньшего диаметра, а также двухслойной и двусторонней записи.

4,4(76 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ