Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Juicer
0 / 0 / 1
Регистрация: 25.11.2016
Сообщений: 36
1

Определить, можно ли перелететь через пропасть

09.12.2016, 14:15. Просмотров 184. Ответов 2

Добрый вечер! Помогите, пожалуйста, решить задачу:

На пути вашего героя встретилась пропасть шириной s метров. До ближайшего моста идти очень и очень долго, поэтому вы решаете перелететь через нее. Для героя единственный способ летать — выпить зелье левитации. Одна выпитая бутылочка зелья позволяет лететь в течении k секунд со скоростью v м/c. К несчастью, самого зелья у героя с собой нет, зато есть рецепт зелья,все необходимые для его изготовления приборы и какие-то ингредиенты. Из рецепта известно, что для приготовления зелья левитации нужно n ингредиентов, причем i-го ингредиента нужно ai штук. У героя же есть bi этого ингредиента.

По необходимому и имеющемуся количеству каждого из ингредиентов определите, сможет ли герой сварить достаточно зелья, чтобы перелететь через пропасть, или же придется все-таки идти в обход?

Входные данные
В первой строчке идет число s — ширина пропасти. Затем на этой же строчке даны числа k и v – сколько секунд и с какой скоростью позволяет лететь одна выпитая бутылочка зелья. Во второй строчке дано число n ≤ 100. Дальше идут n строчек. В каждой из них записаны два числа: ai > 0 — сколько порций i-го ингредиента необходимо для изготовления одной бутылочки и bi ≥ 0 — сколько порций этого ингредиента есть у героя.

Выходные данные
Если герой сможет перелететь через пропасть, выведите "YES", иначе выведите "NO" (без кавычек).

Примеры:

Входные данные:
1 1 1
2
1 1
2 2
Выходные данные:
YES

Входные данные:
1 1 1
2
1 1
2 1
Выходные данные:
NO

Добавлено через 20 часов 23 минуты
Разобрался. Может, кому-то поможет
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
   n,a,b,i,s,k,v: integer;
   z:real;
 
begin
  read(s,k,v);
  z:=s/(k*v);
  readln(n);
  for i := 1 to n do
  readln(a,b);
  if b>=a*z then 
  writeln('YES') 
  else writeln('NO');
  end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2016, 14:15
Ответы с готовыми решениями:

Как перелететь из одного города в другой?
Пусть, в некоторой стране n городов и между ними летают самолеты. Авиатрассы,...

Определить, можно ли через точку (x,y) провести окружность единичного радиуса с центром в начале координат
Даны два числа x и y. Можно ли через точку (x,y) провести окружность единичного...

Определить, можно ли через точку А3 провести прямую, перпендикулярную прямой, проходящей через точки А1 и А2
Помогите пожалуйста. Есть задача: Ввести с клавиатуры координаты точек A1(x1,...

Можно ли определить планшет через User Agent
Можно ли исходя из User Agent определить, что пользователь просматривает сайт с...

c_str() или моя голова провалилась в пропасть
Здравствуйте товарищи, один и тот же код приводит меня к правильному решению в...

2
кот Бегемот
Платежеспособный зверь
8502 / 3940 / 1536
Регистрация: 28.10.2009
Сообщений: 10,229
09.12.2016, 16:12 2
Фигня.
Идея хорошая, а исполнение никуда не годное.
Pascal
1
2
3
4
5
for i := 1 to n do
  readln(a,b);
  if b>=a*z then 
  writeln('YES') 
  else writeln('NO');
Что проверяется в этом условии? Последнее значение b?
0
Juicer
0 / 0 / 1
Регистрация: 25.11.2016
Сообщений: 36
09.12.2016, 16:43  [ТС] 3
Да, точно, ошибка, проверяет последнее введённое b
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2016, 16:43

Можно ли через JavaScript определить версию Windows 7? (максимальная/домашняя/и т.п.)
Добрый вечер :) Подскажите, можно ли через JavaScript определить версию...

Не открывается только что сохраненный файл .... труд за день может пропасть
Word 2003 Весь день писал макрос ... под конец прога начала глючить, ...

Почему приложение может пропасть из "Похожие" топового приложения?
Ранее оно было на 2-ом месте, а теперь пропало вообще(то есть даже не отошло на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru