Решите по информатике 7 класс стр.82, номер 6, второе (робот находится наискось от того места куда ему надо проехать, появляется каждый раз в разном месте, поле всегда одинакового размера)
На самом деле паскаль тут притянут за уши. Пусть в первый день было отпущено х литров, тогда во второй х+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.
Ну тут решил вводить числа не в самом коде, а через ввод с клавиатуры, т.к. мне кажется это более лучшим вариантом (но можно и сразу задать в константы 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 литров бензина.
Пусть в первый день было отпущено х литров, тогда во второй х+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л.