Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Ишка
12 / 12 / 0
Регистрация: 16.04.2010
Сообщений: 156
1

Определить площадь круга, длину окружности и объем шара

27.09.2010, 20:17. Просмотров 1203. Ответов 3
Метки нет (Все метки)

1.Используя введенное значение в качестве радиуса, определить площадь круга, длину окружности, объем шара и площадь вписанного в окружность n-угольника.
2.Определить площадь круга, длину окружности и объем шара, используя в качестве радиуса сумму знаков трехзначного числа.
3.Определить третью цифру заданного четырехзначного числа.
5.Для заданного трехзначного числа вычислить среднее арифметическое и среднее геометрическое цифр, образующих это число.
9.Дано натуральное пятизначное число. Определить число сотен в нем.
11. Дано действительное число а. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: а) а^4 за две операции. б) а^6 за три операции.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2010, 20:17
Ответы с готовыми решениями:

Вычислите длину окружности, площадь круга и объем шара
Решить задачу, используя динамические переменные: 19. Вычислите длину окружности, площадь круга и...

Вычислить длину окружности, площадь круга, объем шара
вычислить используя оператор if, L окружности при k=1 (L= 2*pi*r); S круга k=2 (L=pi*(r*r)); V шара...

Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса
доброго времени суток! помогите пожалуйста с задачей на паскаль:вычислить длину окружности, площадь...

Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса R
Задание: Реализовать программу с подпрограммой-функцией, например, ввод и вывод в соответствующих...

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

3
Alex1OPS
101 / 100 / 36
Регистрация: 14.09.2010
Сообщений: 223
27.09.2010, 21:19 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

11 задача. Если правильно понял условие.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses Crt;
var a1,a2,a,s,c:integer;
begin
clrscr;
readln(a);
writeln('Введите степень,в которую надо возвести число,4 или 6?');
readln(c);
if (c=4) or (c=6) then 
begin
       if (c=4) then 
       begin
              a1:=a*a;
              s:=a1*a1;
       end
       else
       begin
             a1:=a*a;
             a2:=a1*a;
             s:=a2*a2;
       end
else  writeln('Не верно введена степень');
if (s<>0) then writeln(s);
end.
Добавлено через 5 минут
Задача 3.
Pascal
1
2
3
4
5
6
7
8
9
10
uses Crt;
var a,a1:integer;
begin
clrscr;
readln(a);
a:=a div 10;
a1:=a mod 10;
writeln(a1);
readln;
end.
Добавлено через 2 минуты
Задача 9.
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses Crt;
var a,a1:word;
begin
clrscr;
readln(a);
a:=a div 10;
a:=a div 10;
a1:=a mod 10;
writeln(a1);
readln;
end.
1
Ишка
12 / 12 / 0
Регистрация: 16.04.2010
Сообщений: 156
27.09.2010, 21:39  [ТС] 3
а 1,2,3,5 не сможете??? пожалуйста
0
Alex1OPS
101 / 100 / 36
Регистрация: 14.09.2010
Сообщений: 223
27.09.2010, 21:50 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Задача2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses Crt;
var a,a1,a2,a3,r:integer;
     plos,dlina,ob:real;
begin
clrscr;
readln(a);
a1:=a mod 10;
a:=a div 10;
a2:= a mod 10;
a3:=a div 10;
r:=a1+a2+a3;
dlina:=2*pi*r;
plos:=pi*r*r;
ob:=(4/3)*pi*r*r*r;
writeln('Длина круга=',dlina);
writeln('Площадь круга=',plos);
writeln('Объем круга=',ob);
end.
Я не уверен насчет взаимодействия типов данных. Перепроверьте
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2010, 21:50

Вычислить длину окружности, площадь круга, объем цилиндра
В зависимости от введенного символа L S V программа должна вычислять длину окружности, площадь...

Вычислить длину окружности и площадь круга
Радиус окружности равен 800. Вычислить длину окружности и площадь круга. Результаты печатать до...

Дан радиус окружности.Найти длину и площадь круга
я проболела эти темы ничего не понимаю.Если не затруднит составьте пожалуйста программу и блок схему


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

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

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