Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/24: Рейтинг темы: голосов - 24, средняя оценка - 4.63
slavyan29
0 / 0 / 1
Регистрация: 10.05.2011
Сообщений: 36
1

Сколько литров каждого сока надо взять, чтобы приготовить S литров коктейлей?

08.01.2012, 21:06. Просмотров 4720. Ответов 3
Метки нет (Все метки)

В кафе готовят коктейль из малинового и ананасового соков. Известно, что X литров малинового сока стоят М рублей, а Y литров ананасового – К рублей. Сколько литров каждого сока надо взять, чтобы приготовить S литров коктейлей общей стоимостью Р рублей?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2012, 21:06
Ответы с готовыми решениями:

Определить, сколько соды, лимонной кислоты и муки надо взять, чтобы приготовить печенье
Для того, чтобы печенье было рассыпчатым, в него кладут пекарский порошок. В его состав входят...

Сколько литров можно измерить с помощью имеющихся канистр
Помогите пожалуйста решить задачу: Испортился как-то на одной заправке счетчик бензина....

Определить, сколько литров выпил Петя, если у него вначале было S рублей
Что я делаю неправильно? Петя покупал и пил Coca-Cola емкостью 0,6 литра, пустые бутылки сдавал...

Сколько сомножителей надо взять в произведении, чтобы равенство выполнялось до пятой значащей цифры
Помогите, пожалуйста, решить! Известно равенство \prod_{k=2}^{n}(1-1/k^2)=1/2. Сколько...

Сколько надо взять слагаемых в частичной сумме ряда, чтобы она превысила 100?
Ребят, посодействуйте пожалуйста: Известно, что гармонический ряд 1 + 1/2 + 1/3 + … + 1/n + …...

3
Hrobak
291 / 171 / 47
Регистрация: 22.03.2010
Сообщений: 487
Завершенные тесты: 1
08.01.2012, 22:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var m,x,k,p,y,s:real;
begin
writeln('Vvedite m,k,s,p');
readln(m,k,s,p);
if (k=m) and (2*p/(m+k)=s) then writeln('x=y=',p/(m+k):0:4)
else if k=m then writeln('Nepravilnyy vvod')
else begin
y:=(p-m*s)/(k-m);
x:=s-y;
if (x<0) or (y<0) then writeln('Nepravilnyy vvod')
else writeln('x=',x:0:4,' y=',y:0:4);
end;
end.
1
slavyan29
0 / 0 / 1
Регистрация: 10.05.2011
Сообщений: 36
09.01.2012, 09:48  [ТС] 3
Hrobak, спасибо, но дело в том, что задачу нужно решить не применяя иных операторов. Тема - Линейный алгоритм.
0
Hrobak
291 / 171 / 47
Регистрация: 22.03.2010
Сообщений: 487
Завершенные тесты: 1
09.01.2012, 15:22 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

slavyan29, if-ки я добавил для защиты от ввода некорректных данных, но если просто вычислить, то:
Pascal
1
2
3
4
5
6
7
8
var m,x,k,p,y,s:real;
begin
writeln('Vvedite m,k,s,p');
readln(m,k,s,p);
y:=(p-m*s)/(k-m);
x:=s-y;
writeln('x=',x:0:4,' y=',y:0:4);
end.
1
09.01.2012, 15:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2012, 15:22

Определить, что нужно, чтобы приготовить S литров коктейлей общей стоимостью Р рублей
В кафе готовят коктейль из малинового и ананасового соков. Известно, что X литров малинового сока...

Разделить 12 литров воды поровну с помощью 2 пустых ведер с емкостью 8 и 5 литров
Имеется 12 литров воды,нужно разделить поровну с помощью 2 пустых ведер с емкостью 8 и 5 литров.

Метод Монте-Карло: разлить М литров жидкости в бутыли емкостью P1, P2 и P3 литров
Требуется разлить М литров жидкости в бутыли емкостью P1 л, P2 л и P3 л таким образом, чтобы все...


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

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

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