Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
карлсонф
3 / 3 / 0
Регистрация: 05.10.2013
Сообщений: 25
1

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

12.10.2013, 10:54. Просмотров 1500. Ответов 3
Метки нет (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program okrugnost;
uses crt;
const
Pi=3.14 ;
var l,r,s:real;
begin
write('Введите 1-ую букву:');
readln(l);
write('Введите 2-ую букву:');
readln(r);
l:=2*pi*sqr(r);
writeln('Находим длину окружности=',l);
read;
write('Введите 3-ю букву:');
read(s);
s:=pi*sqr(r);
write('Находим площадь круга=',s);
end.
Правильно или нет. С уважением карлонф.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.10.2013, 10:54
Ответы с готовыми решениями:

Вычислить длину окружности, площадь круга, объём и площадь поверхности шара
Помогите пожалуйста. Сессия! Сижу уже неделю, не получается. 1. Буквы русского алфавита кодируются...

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

Найдите длину окружности,если известна площадь круга
1)Найдите длину окружности,если известна площадь круга.Составьте блок-схему к решению задачи и...

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

Вычислить длину окружности и площадь круга по указанному в диалоге радиусу
Помогите пожалуйста, очень нужно, заранее благодарю! Линейные алгоритмы 3. Составить программу...

3
Samhain
691 / 566 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
12.10.2013, 11:08 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

карлсонф,
Pascal
1
2
3
4
5
6
7
8
9
10
var l,r,s:real;
begin
  write('Введите радиус: ');
  readln(r);
  l:=2*pi*r;
  writeln('Находим длину окружности = ',l:0:4);
  s:=pi*sqr(r);
  write('Находим площадь круга = ',s:0:4);
  readln
end.
0
карлсонф
3 / 3 / 0
Регистрация: 05.10.2013
Сообщений: 25
12.10.2013, 11:17  [ТС] 3
Спасибо, я в первой формуле допустил ошибку. А помимо нуля и четыре, можно любые цифры вводить
0
Samhain
691 / 566 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
12.10.2013, 11:41 4
Цитата Сообщение от карлсонф Посмотреть сообщение
можно любые цифры вводить
любое положительное число
0
12.10.2013, 11:41
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.10.2013, 11:41

Вычислить длину окружности и площадь круга одного и того же заданного радиуса R
1. Даны x,y,z. Вычислить a,b, если:

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

Определить площадь круга, длину круга, и объем цилиндра через процедуру
Определить площадь круга, длину круга, и объем цилиндра через процедуру! Пожалуйста решите. Очень...


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

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

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