Размещено 6 лет назад по предмету Информатика от zevs1355

Нефтебаза отпустила за 2 дня 2560 л бинзина. Во второй день база отпустила на 250 л больше чем в первый. Сколько в каждый день?
Решить надо в паскале.
Объясните как поожалуйста.

Ответ на вопрос

Ответ на вопрос дан Аккаунт удален

На самом деле паскаль тут притянут за уши.
Пусть в первый день было отпущено х литров, тогда во второй х+250, а за два дня х+х+250 = 2560. И решаем уравнение.
2х+250 = 2560; 2x=2310; x=1155 - было отпущено в первый день.
х+250 = 1155+250 = 1405 было отпущено во второй день.
Проверка: 1155+1405 = 2560.
Так мы решаем задачу вручную.
А с помощью программы что тут сделать можно? только посчитать.
x=(2560-250)/2 - первый день и х+250 - второй.

var
x:real;
begin
x:=(2560-250)/2;
Writeln('1й день ',x, 'л.');
Writeln('2й день ',x+250, 'л.')
end.

Результат
1й день 1155л.
2й день 1405л.
1. Ответ на вопрос
  
  Ответ на вопрос дан zevs1355
  
  спосиба
Ответ на вопрос

Ответ на вопрос дан m0nclous

Ну тут решил вводить числа не в самом коде, а через ввод с клавиатуры, т.к. мне кажется это более лучшим вариантом (но можно и сразу задать в константы X = 2560 и Y = 250, дело твоё.)

Потом я отнимаю от общего количества 250, чтобы уровнять эти 2 дня, делю на 2 и получаю сколько отпустила за каждый день. Теперь обратно добавляем ко 2 дню 250, чтобы не нарушалось условие задачи. Вывожу на экран. Всё

Var
day1, day2, x, y :real;
Begin
Writeln('Нефтебаза отпустила за 2 дня X л бензина.');
Writeln('Во второй день база отпустила на Y л больше чем в первый.');
Write('Введите X: '); readln(x);
Write('Введите Y: '); readln(y);

day1 := (x - y) / 2;
day2 := day1 + y;

Writeln('За первый день было отпущено ', day1, ' литров бензина.');
Write('За второй день было отпущено ', day2, ' литров бензина.');
End.

Вот лог программы
Нефтебаза отпустила за 2 дня X л бензина.
Во второй день база отпустила на Y л больше чем в первый.
Введите X: 2560
Введите Y: 250
За первый день было отпущено 1155 литров бензина.
За второй день было отпущено 1405 литров бензина.