Комментарии: Решаем задачи Абрамян на Паскале. Case12

Автор: Bronislav

Bronislav — Thu, 31 Jan 2019 22:21:05 +0000

program Case12;//pabc.net

begin
  var Pi := 3.14;
  
  var f1: real-> (real, real, real) := R -> (2*R, 2*Pi*R, Pi*R*R);
  var f2: real-> (real, real, real) := D -> (D/2, Pi*D, Pi*D*D/4);
  var f3: real-> (real, real, real) := L -> (L/2/Pi, L/Pi, L*L/Pi/4);
  var f4: real-> (real, real, real) := S -> (Sqrt(S/Pi), 2*Sqrt(S/Pi), 2*Sqrt(S*Pi));
  
  var d := dict(kv(1, f1), kv(2, f2), kv(3, f3), kv(4, f4));
  
  var N := ReadInteger();
  var Val := ReadReal();
  
  var Res := d[N](Val);
  
  Write(Res[0]:0:2,' ', Res[1]:0:2,' ', Res[2]:0:2)
end.

program Case12;//pabc.net

begin

var Pi := 3.14;

var f1: real-> (real, real, real) := R -> (2*R, 2*Pi*R, Pi*R*R);

var f2: real-> (real, real, real) := D -> (D/2, Pi*D, Pi*D*D/4);

var f3: real-> (real, real, real) := L -> (L/2/Pi, L/Pi, L*L/Pi/4);

var f4: real-> (real, real, real) := S -> (Sqrt(S/Pi), 2*Sqrt(S/Pi), 2*Sqrt(S*Pi));

var d := dict(kv(1, f1), kv(2, f2), kv(3, f3), kv(4, f4));

var N := ReadInteger();

var Val := ReadReal();

var Res := d[N](Val);

Write(Res[0]:0:2,' ', Res[1]:0:2,' ', Res[2]:0:2)

end.

program Case12;//pabc.net

begin
  var Pi := 3.14;
  
  var f1: real-> (real, real, real) := R -> (2*R, 2*Pi*R, Pi*R*R);
  var f2: real-> (real, real, real) := D -> (D/2, Pi*D, Pi*D*D/4);
  var f3: real-> (real, real, real) := L -> (L/2/Pi, L/Pi, L*L/Pi/4);
  var f4: real-> (real, real, real) := S -> (Sqrt(S/Pi), 2*Sqrt(S/Pi), 2*Sqrt(S*Pi));
  
  var N := ReadInteger();
  var Val := ReadReal();
  var Res: (real, real, real);
  
  case N of
    1: Res := f1(Val);
    2: Res := f2(Val);
    3: Res := f3(Val);
    4: Res := f4(Val);
  else
  end;
  
  Write(Res[0]:0:2, ' ', Res[1]:0:2, ' ', Res[2]:0:2)
end.

program Case12;//pabc.net

begin

var Pi := 3.14;

var f1: real-> (real, real, real) := R -> (2*R, 2*Pi*R, Pi*R*R);

var f2: real-> (real, real, real) := D -> (D/2, Pi*D, Pi*D*D/4);

var f3: real-> (real, real, real) := L -> (L/2/Pi, L/Pi, L*L/Pi/4);

var f4: real-> (real, real, real) := S -> (Sqrt(S/Pi), 2*Sqrt(S/Pi), 2*Sqrt(S*Pi));

var N := ReadInteger();

var Val := ReadReal();

var Res: (real, real, real);

case N of

1: Res := f1(Val);

2: Res := f2(Val);

3: Res := f3(Val);

4: Res := f4(Val);

else

end;

Write(Res[0]:0:2, ' ', Res[1]:0:2, ' ', Res[2]:0:2)

end.

Автор: Кирилл

Кирилл — Fri, 05 Dec 2014 15:16:59 +0000

В ответ на Anton. но не столько, сколько я навыводил по своей неблагоразумности ))

Автор: Anton

Anton — Fri, 05 Dec 2014 15:13:43 +0000

В ответ на Кирилл. Не, так мне тоже приходилось выводить формулы. Это чисто стиль написания ,не более.

Автор: Кирилл

Кирилл — Fri, 05 Dec 2014 15:08:52 +0000

В ответ на Anton. А я там, дурила, выводил сидел ))))) вот где опять логику я потерял

Автор: Кирилл

Кирилл — Fri, 05 Dec 2014 15:08:19 +0000

В ответ на Anton. а ну да, не обратил внимания :-)

Автор: Anton

Anton — Fri, 05 Dec 2014 14:56:20 +0000

В ответ на Кирилл. > Присвоение X, наверное, должно быть в начале каждого Case. Это про моё решение? Я пока не определю переменную, подставляю Х. Мне так кажется красивей. :)

Автор: Кирилл

Кирилл — Fri, 05 Dec 2014 14:47:53 +0000

В ответ на Кирилл. И я точку с запятой пропустил во втором Case после d:=x

Автор: Кирилл

Кирилл — Fri, 05 Dec 2014 14:44:42 +0000

В ответ на Anton. Я проверяю задачником Абрамяна, там вывод идёт именно такой.

Автор: Кирилл

Кирилл — Fri, 05 Dec 2014 14:44:10 +0000

Присвоение X, наверное, должно быть в начале каждого Case. Pascal ведь однопроходной язык, предыдущие значения не сосчитаются.

Автор: Anton

Anton — Fri, 05 Dec 2014 14:41:12 +0000

В ответ на Кирилл. К сожалению когда правил удалил старую версию. 1) да согласен... площадь у меня куда то делась во время решения :) 2) "Выводить в ответе нужно только те элементы" в задачи вообще то не сказано, что надо выводить только, в ней сказано только про порядок. :) так что вывод в конце всего в правильном порядке формально не противоречит условию. Но изменил всё под предложенный вариант, так как он более правильный и наверно это и имели ввиду люди писавшие учебник. :)