Понедельник, 28.07.2025, 17:32

Сайт учителя Малахова С.П.

Меню сайта
Мини-чат
Наш опрос
Оцените мой сайт
1. Отлично
2. Хорошо
3. Ужасно
4. Неплохо
5. Плохо
Всего ответов: 22
Статистика
Форма входа
Поиск
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • [ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
    • Страница 1 из 1
    • 1
    Решение олимпиадных задач на Паскале
    serg-malachovДата: Пятница, 27.12.2013, 07:52 | Сообщение # 1
    Учитель
    Группа: Администраторы
    Сообщений: 136
    Репутация: 2
    Статус: Offline
    задачи районного тура олимпиады по информатике 2013 года.
     
    serg-malachovДата: Пятница, 27.12.2013, 07:58 | Сообщение # 2
    Учитель
    Группа: Администраторы
    Сообщений: 136
    Репутация: 2
    Статус: Offline
    Задача "Вирусы" для 10-11 классов (30 баллов)
    Имеется поле не более 100 элементов, на котором может находиться не более 3 заражённых участков, номера этих участков вводятся в программе. Определить время полного заражения всего поля, если в каждую следующую единицу времени заражаются соседние участки слева и справа?

    Полный текст задачи:
        Для моделирования различных объектов часто применяются так называемые клеточные поля. В простейшем случае - это прямоугольные таблицы, характеризующие некоторую область, а в каждой ячейке таблицы записывается какая-либо информация об исследуемом объекте.
        В биологии для моделирования распространения вирусов на плоской области в каждой ячейке помечается наличие вируса, а его распространение осуществляется в соседние ячейки по вертикали и горизонтали за одну единицу времени. В начальный момент времени в исследуемую область проникли несколько вирусов. Напишите программу (составьте алгоритм), которая найдёт время заражения всей исследуемой прямоугольной области.
    Входные данные
     
    serg-malachovДата: Пятница, 27.12.2013, 08:01 | Сообщение # 3
    Учитель
    Группа: Администраторы
    Сообщений: 136
    Репутация: 2
    Статус: Offline
    Текст программы:

    Program Virus;
    Uses crt;

    Var x: array [1..100] of integer;
    Var l: array [1..3] of integer;
    Var a,b,c,d,k,m,i: integer;

    Begin;
    write('Введите размеры поля m<=100 m='); read(m);
    write('Количество вирусов k<=3 k='); read(k);
    write('Введите номера заражённых полей ');
    for i:=1 to k do begin
    write ('l[',i,']=');
    readln (
    );
    end;
    a:=l[1]-1;
    b:=m-l[k];
    if a>b then c:=a else c:=b;
    d:=trunc((l[k]
    -l[k-1])/2)+1;
    if d>c then c:=d;
    write('Время заражения ',c);
    end.
     
    ZinchenkoДата: Пятница, 28.11.2014, 18:10 | Сообщение # 4
    Сержант
    Группа: Модераторы
    Сообщений: 32
    Репутация: 1
    Статус: Offline
    Использование графических возможностей
    Рисунок "Закат"


    uses GraphABC;
    beginClearWindow(clLightBlue);
    SetWindowWidth(460);
    SetWindowHeight(250);
    SetBrushColor(clOrange);
    Circle(230,90,40);
    SetBrushColor(clBlue);
    FillRectangle(0,90,460,250);
    end.
    Прикрепления: 7639873.jpg (16.9 Kb)
     
    • Страница 1 из 1
    • 1
    Поиск: