Хорошо! Хорошо!:  0
Плохо! Плохо!:  0
Показано с 1 по 10 из 10

Тема: Помощь в програмировании

  1. #1
    Маститый Аватар для Andrew
    Информация о пользователе
    Регистрация
    08.02.2011
    Адрес
    Беларусь, Витебск
    Сообщений
    1,049
    Записей в дневнике
    3
    Репутация: 30 Добавить или отнять репутацию

    По умолчанию Помощь в програмировании

    Кто может помочь мне с задачей? Мне надо решить задачу на паскале(!).
    Вот ссылка на задачу http://acmu.ru/asp/champ/index.asp?m...s&id_stage=337. Самая последняя.
    Спойлер Задача:
    (Время: 1 сек. Память: 16 Мб)

    Летом Вася очень любил смотреть в окно. Напротив его дома расположился офис некоторой строительной фирмы. В течение всего месяца Вася наблюдал за его сотрудниками. Про каждый из 31 дня месяца он знает, сколько сотрудников пришло на работу. Ему также известно, что каждый из сотрудников берет ровно по 4 выходных в месяц.

    Теперь он ломает голову над загадкой – сколько всего сотрудников работает в этом офисе. Напишите программу, которая ответит Васе на этот вопрос.
    Входные данные

    В единственной строке входного файла INPUT.TXT записано 31 целое неотрицательное число. Эти числа описывают количество сотрудников, пришедших в офис в соответствующие дни месяца. Гарантируется, что входные данные корректны.
    Выходные данные

    В единственную строку выходного файла OUTPUT.TXT нужно вывести единственное число – общее количество сотрудников офиса. Гарантируется, что ответ не превышает 100.


  2. #2
    Маститый Аватар для Narcotic Truth
    Информация о пользователе
    Регистрация
    29.04.2008
    Адрес
    RUSSIA
    Сообщений
    1,280
    Записей в дневнике
    2
    Репутация: 26 Добавить или отнять репутацию

    По умолчанию

    Кто может помочь мне с задачей? Мне надо решить задачу на паскале(!).
    Вот ссылка на задачу http://acmu.ru/asp/champ/index.asp?m...s&id_stage=337. Самая последняя.
    Посмотрел. Похоже на олимпиаду по информатике. Решается через трёхмерный массив. Так с ходу и не вспомню решения подобных программ.

    Хотя фактически решение(которое там дадут) будет неверным, а приближённым к верному))
    --- Yellow House Studio ---

  3. #3
    Маститый Аватар для Andrew
    Информация о пользователе
    Регистрация
    08.02.2011
    Адрес
    Беларусь, Витебск
    Сообщений
    1,049
    Записей в дневнике
    3
    Репутация: 30 Добавить или отнять репутацию

    По умолчанию

    Да, это олимпиада.


  4. #4
    Маститый Аватар для Andrew
    Информация о пользователе
    Регистрация
    08.02.2011
    Адрес
    Беларусь, Витебск
    Сообщений
    1,049
    Записей в дневнике
    3
    Репутация: 30 Добавить или отнять репутацию

    По умолчанию

    Никто не знает? Блин, плохо.


  5. #5
    Маститый Аватар для Andrew
    Информация о пользователе
    Регистрация
    08.02.2011
    Адрес
    Беларусь, Витебск
    Сообщений
    1,049
    Записей в дневнике
    3
    Репутация: 30 Добавить или отнять репутацию

    По умолчанию

    Всё. Задачу решил.


  6. #6
    Маститый Аватар для Narcotic Truth
    Информация о пользователе
    Регистрация
    29.04.2008
    Адрес
    RUSSIA
    Сообщений
    1,280
    Записей в дневнике
    2
    Репутация: 26 Добавить или отнять репутацию

    По умолчанию

    Цитата Сообщение от Andrew Посмотреть сообщение
    Всё. Задачу решил.
    поделись решением. Интересно посмотреть на твой метод.
    --- Yellow House Studio ---

  7. #7
    Маститый Аватар для Andrew
    Информация о пользователе
    Регистрация
    08.02.2011
    Адрес
    Беларусь, Витебск
    Сообщений
    1,049
    Записей в дневнике
    3
    Репутация: 30 Добавить или отнять репутацию

    По умолчанию

    Я формулы не нашёл. Зацепился за то что в условии сказано
    Гарантируется, что ответ не превышает 100.
    var
    i, sum: longint;x: array[0..100] of longint;

    begin
    assign(input, 'input.txt'); reset(input);
    assign(output, 'output.txt'); rewrite(output);
    for i := 1 to 31 do begin read(x[i]);sum := sum + x[i]; end;
    for i := 1 to 100 do
    if (i * 31) - (i * 4) = sum then begin write(i);break; end;
    end.
    И она пошла на 100 балов.


  8. #8
    Маститый Аватар для Narcotic Truth
    Информация о пользователе
    Регистрация
    29.04.2008
    Адрес
    RUSSIA
    Сообщений
    1,280
    Записей в дневнике
    2
    Репутация: 26 Добавить или отнять репутацию

    По умолчанию

    Оригинально. Смело. Я бы даже сказал - нагло. Молодец.
    Когда я ездил на олимпиады по информатике, то аналогичные задачи решали через трёхмерный массив и на выполнение давалось 3 сек.

    Вот она разница подготовки преподавателей различных вузов. И школьников, соответственно.
    --- Yellow House Studio ---

  9. #9
    Маститый Аватар для Andrew
    Информация о пользователе
    Регистрация
    08.02.2011
    Адрес
    Беларусь, Витебск
    Сообщений
    1,049
    Записей в дневнике
    3
    Репутация: 30 Добавить или отнять репутацию

    По умолчанию

    Я школьник (7 класс).


  10. #10
    Маститый Аватар для Andrew
    Информация о пользователе
    Регистрация
    08.02.2011
    Адрес
    Беларусь, Витебск
    Сообщений
    1,049
    Записей в дневнике
    3
    Репутация: 30 Добавить или отнять репутацию

    По умолчанию

    Вот условие:
    Задача G. Спирт
    (Время: 1 сек. Память: 16 Мб)

    Каждому школьнику из курса органической химии известна формула молекулы этилового спирта – C2H5(OH). Откуда видно, что молекула спирта состоит из двух атомов углерода (C), шести атомов водорода (H) и одного атома кислорода (O).

    По заданному количеству атомов каждого из описанных выше элементов требуется определить максимально возможное количество молекул спирта, которые могут образоваться в процессе их соединения.
    Входные данные

    Первая строка входного файла INPUT.TXT содержит 3 натуральных числа: C, Н и O – количество атомов углерода, водорода и кислорода соответственно. Все числа разделены пробелом и не превосходят 1018.
    Выходные данные

    В выходной файл OUTPUT.TXT выведите максимально возможное число молекул спирта, которые могут получиться из атомов, представленных во входных данных.
    Не могу решить. Вот моё решение но оно не правильное.
    var
    a: array [0..3] of longint;
    i, min: longint;

    begin
    assign(input, 'input.txt'); reset(input);
    assign(output, 'output.txt'); rewrite(output);
    readln(a[1], a[2], a[3]);
    a[1] := a[1] div 2;
    a[2] := a[2] div 6;
    a[3] := a[3] div 1;
    min := a[1];
    for i := 2 to 3 do
    if a[i] < min then min := a[i];
    writeln(min);
    end.
    Уже решил. Забыл, что нельзя делать счётчик типа in64.
    Последний раз редактировалось Andrew; 23.04.2011 в 13:15.


Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  
Помощь в програмировании