Определить, сколько дней нужно, чтобы проехать маршрут длиной m километров

@Annetkaz · Регистрация: 15.10.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте уважаемые программисты! помогите решить ряд задач!
4. За день машина проезжает n километров. Сколько дней нужно, чтобы проехать маршрут длиной m километров?
Программа получает на вход числа n и m.
При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.

код программы:

Pascal

program upr5;
var m, n, d : integer; 
begin
readln(n);
readln(m);
d:=(m-1) div n+1;
writeln(d);
end.

Выдает ошибку - "неправильный формат вывода и неправильный ответ"

@[WRG] · 17.10.2012, 14:23

Программа нормально работает, ошибок нет. Разве то можно добавить для удобства readln() перед end'ом чтобы задержаться для просмотра результатов.
Какой компилятор используете?

@Puporev · 17.10.2012, 14:44

Если задача для Турбо Паскаля, то можно решить так.

Pascal

uses crt;
var m, n, d : integer;
begin
clrscr;
readln(m);{сколько нужно проехать}
readln(n);(сколько проедет за день)
d:=0;{за сколько дней проедет}
while m>n do
 begin
  m:=m-n;
  d:=d+1;
 end;
writeln(d+ord(m>0));{за сколько проедет целый путь+>0 останется, тогда +1, иначе +0}
readln
end.

В Паскаль АВС такая конструкция не пойдет.

@Annetkaz · 17.10.2012, 15:43 **[ТС]**

прграмма для Паскаль АВС

Комментарий модератора

Размещайте темы в соответствующих разделах!

@[WRG] · 17.10.2012, 21:40

Puporev, вроде по условию циклы использовать нельзя

@Annetkaz · 17.10.2012, 21:50 **[ТС]**

вы правы, но только как иначе я не представляю делать

HighPredator · 17.10.2012, 22:00

Annetkaz, если машина проезжает за день n километров, тогда это ее скорость [км/день]. Нужно найти кол-во дней (т.е. время) за которое будет пройдено m километров (расстояние). В таком случае, почему бы просто не поделить расстояние на скорость - найти время?

Pascal

1	d:=m div n;{ например }

@Puporev · 18.10.2012, 07:26

Сообщение от HighPredator

d:=m div n;

124 div 50 = 2 а правильный ответ=3

Добавлено через 26 минут
Вообще условие следовало бы написать так. На который день машина проедет данный маршрут.
Тогда решение приведенное в первом посте правильное и не понятна паника ТС. Там нет никаких стилистических ошибок. Программа запускается.
Единственно, это нужно переставить местами n и m.
Написано для Паскаль АВС.

Pascal

program upr5;
var m, n, d : integer;
begin
readln(m);//весь путь
readln(n);//за 1 день
d:=(m-1) div n+1; //на который день проедет все
writeln(d);
end.

@[WRG] 53 / 53 / 37 Регистрация: 20.11.2011 Сообщений: 243 Записей в блоге: 1
	17.10.2012, 14:23	2
	Программа нормально работает, ошибок нет. Разве то можно добавить для удобства readln() перед end'ом чтобы задержаться для просмотра результатов. Какой компилятор используете? 0

@[WRG] 53 / 53 / 37 Регистрация: 20.11.2011 Сообщений: 243 Записей в блоге: 1
	17.10.2012, 21:40	5
	Puporev, вроде по условию циклы использовать нельзя 1

@Annetkaz 0 / 0 / 1 Регистрация: 15.10.2012 Сообщений: 83
	17.10.2012, 21:50 [ТС]	6
	вы правы, но только как иначе я не представляю делать 0

	18.10.2012, 07:26