Сколько полных окружностей можно построить.

@s2309 · Регистрация: 23.09.2018

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

Вася взял большой циркуль и вошел в комнату, пол которой представляет собой квадрат, со стороной равной M (M>1м). Поставив циркуль на пересечении диагоналей этого квадрата, он начал строить окружности. Первая окружность была диаметром = 10 см., вторая – 30, третья – 40, четвертая – 60, пятая – 70, шестая – 90 см. и т.д. Сколько полных окружностей может построить в этой комнате Вася?

@JuriiMW · 02.10.2018, 07:04

Pascal

var m : Real; i : Integer;
begin
  Read(m);
  i := 0;
  while m > 0 do
    begin
      inc(i);
      if odd(i) then m := m - 0.2 else m := m - 0.1;
    end;
  Write(i);
end.

@s2309 · 02.10.2018, 09:50 **[ТС]**

Pascal

var
m,k,d:integer;
begin
d:=0;
k:=0;
readln(m);
if m>100 then;
k:=(m div 10) - 1;
reapeat
d:=d+30;
if d<m then k:=k-1;
until d=m;
wrireln(k);
end.

Спасибо за ваше решение, а можно вас попросить помочь исправить мой код?

@JuriiMW · 02.10.2018, 10:09

Зачем?
В моём коде нет ошибок. И он работает даже для M < 1 метра.

А вашем, кроме синтаксических ошибок, ещё и непонятная логика…

@bormant · 02.10.2018, 10:42

А можно и без цикла: найти количество полных пар (делением на 0.3) и проверить влезет ли еще одна (0.1).

Добавлено через 10 минут

Pascal

const d=0.3;
var m: Real; n: Longint;
begin
  Read(m); n:=Trunc(m/d)*2;
  if m-n/2*d>=0.1 then Inc(n);
  WriteLn(n);
end.

@s2309 · 02.10.2018, 15:13 **[ТС]**

Спасибо большое!
Хотела бы тоже научится писать программы и правильно логично мыслить...)

@s2309 0 / 0 / 0 Регистрация: 23.09.2018 Сообщений: 11
		1
	Сколько полных окружностей можно построить. 02.10.2018, 01:28. Показов 1373. Ответов 5 Метки нет (Все метки) Вася взял большой циркуль и вошел в комнату, пол которой представляет собой квадрат, со стороной равной M (M>1м). Поставив циркуль на пересечении диагоналей этого квадрата, он начал строить окружности. Первая окружность была диаметром = 10 см., вторая – 30, третья – 40, четвертая – 60, пятая – 70, шестая – 90 см. и т.д. Сколько полных окружностей может построить в этой комнате Вася? 0

@JuriiMW 5077 / 2649 / 2349 Регистрация: 10.12.2014 Сообщений: 10,024
	02.10.2018, 10:09	4
	Зачем? В моём коде нет ошибок. И он работает даже для M < 1 метра. А вашем, кроме синтаксических ошибок, ещё и непонятная логика… 1

@s2309 0 / 0 / 0 Регистрация: 23.09.2018 Сообщений: 11
	02.10.2018, 15:13 [ТС]	6
	Спасибо большое! Хотела бы тоже научится писать программы и правильно логично мыслить...) 0

Опции темы