Решаем задачи Абрамян на Паскале. 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;
end.

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
1:
   begin
      r:=x;
      d:=2*r;
      l:=(2*3.14)*r;
      s:=3.14*sqr(r);
      writeln(d,l,s);
   end;
2: 
   begin
      d:=x;
      r:=d/2;
      l:=2*3.14*r;
      s:=3.14*sqr(r);
      writeln(r,l,s);
   end;
3:
   begin
      l:=x;
      r:=l/(2*3.14);
      d:=2*r;
      s:=3.14*sqr(r);
      writeln(r,d,s);
   end;
4:
   begin
      s:=x;
      r:=sqrt(s/3.14);
      l:=2*3.14*r;
      d:=2*r;
      writeln(r,d,l);
   end;
end;
end.

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 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.

Ответить

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

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

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

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