Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
иаапрпа
0 / 0 / 0
Регистрация: 25.11.2015
Сообщений: 10
1

Вывести значения остальных элементов данной окружности

25.11.2015, 19:55. Просмотров 179. Ответов 1
Метки нет (Все метки)

2. Элементы окружности пронумерованы следующим образом: 1 — радиус (R), 2 — диаметр (D), 3 — длина (L), 4 —
площадь круга (S). Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов
данной окружности (в том же порядке). В качестве значения Pi использовать 3.14
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2015, 19:55
Ответы с готовыми решениями:

Вывести длину окружности или объем из радиуса окружности
Составить программу запрашивающую радиус окружности и вычисляющую длину окружности или объем в...

Определить в матрице количество элементов, которые больше суммы остальных элементов своих столбцов
Ребят нужна помощь,начинающему)дана вещественная матрица A размером m x n . Определить k-количество...

Найти число особых элементов массива (тех, которые больше суммы остальных элементов своего столбца)
Дан массив A(N;K). Найти число особых элементов массива. Особым элементом массива называется тот,...

Вынуть из списка первые девять элементов, и вывести их значения
Дано покащик P1 на вершину списка, содержащий не менее десяти элементов. Вынуть из списка первые...

Исправить ошибки в задании: Вывести индексы тех эл-тов, значения которых больше значения последующего эл-та
Здравствуйте , помогите исправить 3 задание , 1-ое и 2-ое вроде как работает , первый раз на сайте...

1
Puporev
Модератор
55411 / 42542 / 29396
Регистрация: 18.05.2008
Сообщений: 100,636
25.11.2015, 20:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var r,d,l,s:real;
    c:char;
begin
repeat
writeln('Введите параметр круга:');
writeln('1-радиус, 2-диаметр, 3-длина окружности, 4-площадь');
readln(c);
until c in ['1'..'4'];
case c of
'1':begin
    write('Введите радиус r=');
    readln(r);
    writeln('Диаметр=',2*r:0:2);
    writeln('Длина окружности=',2*pi*r:0:2);
    writeln('Площадь=',pi*r*r:0:2);
    end;
'2':begin
    write('Введите диаметр d=');
    readln(d);
    writeln('Радиус=',d/2:0:2);
    writeln('Длина окружности=',pi*d:0:2);
    writeln('Площадь=',pi*d*d/4:0:2);
    end;
'3':begin
    write('Введите длину окружности l=');
    readln(l);
    writeln('Радиус=',l/2/pi:0:2);
    writeln('Диаметр=',l/pi:0:2);
    writeln('Площадь=',sqr(l/2/pi)*pi:0:2);
    end;
 '4':begin
     write('Введите площадь s=');
     readln(s);
     writeln('Радиус=',sqrt(s/pi):0:2);
     writeln('Диаметр=',2*sqrt(s/pi):0:2);
     writeln('Длина окружности=',2*pi*sqrt(s/pi):0:2);
    end;
end;
 readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2015, 20:11

Вывести значения остальных элементов данной окружности. в чем ошибка?
Помогите,пожалуйста,с кодом.Только начала изучать Матлаб,поэтому понятия не имею как писать.Нужно...

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

Вывести значения остальных элементов окружности
элементы окружности пронумерованы след.образом: 1 - радиус (R), 2 - диаметр (D), 3 - длина (L), 4 -...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru