profile
Опубликовано 6 лет назад по предмету Информатика от fmv05

в зависимости от введенного числа 1,2,3 программа должна вычислять длину окружности;площадь круга;объём цилиндра.
C=2πR
S=πR2
V=πR2H

  1. Ответ
    Ответ дан petyaGavrikov
    var k,r,h:integer;
    begin
    writeln('1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра');
    write('k = ');
    readln(k);
    case k of
    1,2: begin write('R = '); readln(r); end;
    3: begin write('R, h: '); readln(r,h); end;
    end;
    case k of
    1: writeln('C = ',2*pi*r:5:3);
    2: writeln('S = ',pi*r*r:5:3);
    3: writeln('V = ',pi*r*r*h);
    else writeln('Ошибка ввода');
    end;
    end.

    Пример:
    1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра
    k = 2
    R = 5
    S = 78.540
Самые новые вопросы