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

Case12. Элементы окружности пронумерованы следующим образом: 1 — радиус $$R$$, 2 — диаметр $$D=2*R$$, 3 — длина $$L=2*\pi*R$$, 4 — площадь круга $$S =\pi*R^2$$. Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данной окружности (в том же порядке). В качестве значения $$\pi$$ использовать 3.14.

Решение:

program Case12;

var

N:Integer;

X,R,D,L,S:Real;

begin

Write('Введите номер элемента окружности: ');

Readln(N);

Write('Введите длинну элемента окружности: ');

Readln(X);

Case N of

1: begin

R:=X;

D:=2*R;

L:=2*3.14*R;

S:=3.14*sqr(R);

Writeln(D,L,S);

end;

2: begin

R:=X/2;

D:=X;

L:=2*3.14*R;

S:=3.14*sqr(R);

Writeln(R,L,S);

end;

3: begin

R:=X/2*3.14;

D:=2*R;

L:=X;

S:=3.14*sqr(R);

Writeln(R,D,S);

end;

4: begin

R:=sqrt(X/3.14);

D:=2*R;

L:=2*3.14*R;

S:=X;

Writeln(R,D,L);

end;

end.

Другие задачи из раздела Case можно посмотреть здесь.

Комментарии 11

1) Нет расчета для площади (четвёртый case)
2) Выводить в ответе нужно только те элементы, которые находятся в процессе решения. Т.е. если дан радиус, то в ответе выводится диаметр, длина, площадь. Поэтому разный writeln нужно вставить в пункты case.
Т.е., например, так:

uses

PT4;

var n:integer;

var d,l,r,s,x:real;

begin

Task('Case12');

read(n,x);

case n of

begin

r:=x;

d:=2*r;

l:=(2*3.14)*r;

s:=3.14*sqr(r);

writeln(d,l,s);

end;

begin

d:=x;

r:=d/2;

l:=2*3.14*r;

s:=3.14*sqr(r);

writeln(r,l,s);

end;

begin

l:=x;

r:=l/(2*3.14);

d:=2*r;

s:=3.14*sqr(r);

writeln(r,d,s);

end;

begin

s:=x;

r:=sqrt(s/3.14);

l:=2*3.14*r;

d:=2*r;

writeln(r,d,l);

end;

end.

Ответить

Anton

05.12.2014 в 18:41

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

Ответить
- Кирилл
  
  05.12.2014 в 18:44
  
  Я проверяю задачником Абрамяна, там вывод идёт именно такой.
  
  Ответить

Кирилл

05.12.2014 в 18:44

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

Ответить
- Кирилл
  
  05.12.2014 в 18:47
  
  И я точку с запятой пропустил во втором Case после d:=x
  
  Ответить
- Anton
  
  05.12.2014 в 18:56
  
  > Присвоение X, наверное, должно быть в начале каждого Case.
  Это про моё решение? Я пока не определю переменную, подставляю Х. Мне так кажется красивей. 🙂
  
  Ответить
  - Кирилл
    
    05.12.2014 в 19:08
    
    а ну да, не обратил внимания 🙂
    
    Ответить
  - Кирилл
    
    05.12.2014 в 19:08
    
    А я там, дурила, выводил сидел ))))) вот где опять логику я потерял
    
    Ответить
    - Anton
      
      05.12.2014 в 19:13
      
      Не, так мне тоже приходилось выводить формулы. Это чисто стиль написания ,не более.
      
      Ответить
      - Кирилл
        
        05.12.2014 в 19:16
        
        но не столько, сколько я навыводил по своей неблагоразумности ))
        
        Ответить

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.

Ответить

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

Комментарии:

Комментарии 11

Добавить комментарий Отменить ответ