|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.12.2013, 11:16 | #1 |
Новичок
Джуниор
Регистрация: 19.12.2013
Сообщений: 18
|
Тема Подпрограммы: Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте (Паскаль)
Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте. С помощью данной функции вычислить объемы для N цилиндров.
|
19.12.2013, 12:10 | #2 | |
Lawful Evil
Участник клуба
Регистрация: 13.05.2008
Сообщений: 1,208
|
Процитирую себя опять же:
Цитата:
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c) |
|
19.12.2013, 12:35 | #3 |
Пользователь
Регистрация: 30.09.2012
Сообщений: 51
|
тут всё просто
function cylinders(r,h:integer):integer; var v:integer; begin ... тут пишем как найти обьём cylinders:=v; end; и в майне результат будет выводимая переменная = количество + функция |
19.12.2013, 22:07 | #4 |
Новичок
Джуниор
Регистрация: 19.12.2013
Сообщений: 18
|
а по подробнее?
|
19.12.2013, 22:18 | #5 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,538
|
dragodar, а почему Integer? Лучше Double. Точность однако.
sanyok996, куда уж по по дробнее.. Объем цилиндра = площадь основания*высоту. |
19.12.2013, 22:24 | #6 |
Новичок
Джуниор
Регистрация: 19.12.2013
Сообщений: 18
|
uses crt;
function cylinders(r,h:integer):integer; var v:integer; begin v:= h*r*r*pi; cylinders:=v; end. так она не работает... |
19.12.2013, 22:26 | #7 |
Новичок
Джуниор
Регистрация: 19.12.2013
Сообщений: 18
|
тем более надо найти N.
Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте. С помощью данной функции вычислить объемы для N цилиндров. |
19.12.2013, 22:28 | #8 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,538
|
Во-первых, ты ее вызывал? Или просто описал. Это - вся программа?
Во-вторых, PI - нецелое значение, а v и сама функция объявлены как целое Integer. Я же говорил, Double вместо Integer, для всех . |
19.12.2013, 22:49 | #9 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,538
|
Вроде не надо искать N, надо площади для N цилиндров. Вот так, например (при N=5):
Код:
|
19.12.2013, 22:49 | #10 |
Новичок
Джуниор
Регистрация: 19.12.2013
Сообщений: 18
|
я бы написал, но мы не изучали Double, я не знаю что это
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Построить изображение прямого цилиндра и его образующих(с++) | Соня555 | Помощь студентам | 3 | 03.04.2012 20:05 |
программу нахождения экстремального элемента или его порядкового номера при заданном одномерном массиве А (Паскаль) | S_S_V_N | Помощь студентам | 1 | 16.10.2011 21:54 |
Тема-подпрограммы, паскаль | Ria | Помощь студентам | 1 | 09.11.2010 19:10 |
(Паскаль) Составить программу, использующую подпрограмму-функцию | Викуська_ | Помощь студентам | 6 | 21.04.2009 23:32 |