|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.09.2020, 23:45 | #1 |
Регистрация: 30.09.2020
Сообщений: 7
|
Pascal ABC, procedure и function.
Разработать алгоритм решения задачи, реализовать его на языке Pascal в виде отдельной функции. Диалог с пользователем (ввод исходных данных и вывод результата) также оформить в виде отдельных функций.
Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в своё дело. По прогнозам, его дело должно давать прибыль r рублей в год. Сможет ли он накопить сумму, достаточную для погашения кредита, и если да, то через сколько лет? PS должно быть 3 отдельных функции или процедуры для ввода данных, вычисления и вывода результата вот программа без procedure и fucntion Код:
|
01.10.2020, 10:14 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Мне думается, что зря проценты заданы как байт, а k,r:longint;. По жизни бывает, к примеру, 3,5%. И k,r в процессе расчёта не будут целыми. Тогда функция получилась бы простой.
Код:
Последний раз редактировалось digitalis; 01.10.2020 в 10:20. |
02.10.2020, 23:40 | #3 |
Пользователь
Регистрация: 14.03.2020
Сообщений: 45
|
Для такой задачи, процедуры и функции не нужны. Слишком всё просто. Но если очень надо, просто напишите три пустые процедуры
procedure Vvod; procedure Proc; procedure Vivod; и тупо перенесите в них куски вашего кода. |
03.10.2020, 11:28 | #4 |
Регистрация: 30.09.2020
Сообщений: 7
|
Petros-20, я просто не понимаю как в процедуру вставить условие
|
03.10.2020, 18:23 | #5 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Хоть я не Petros-20, но ответ таков: как и в любом другом месте программы. Подпрограммы и функции - это тот же самый код, что и главная программа, но обрамлённый входом и выходом по согласованным правилам.
А если ответ ожидался конкретно от Petros-20 - можешь мой пост не читать. Ввод я тебе уже расписал. Последний раз редактировалось digitalis; 03.10.2020 в 18:27. |
04.10.2020, 23:16 | #6 |
Регистрация: 30.09.2020
Сообщений: 7
|
suggestion, можете пожалуйста показать на примере? искал в интернете вопрос на эту тему ничего не нашел
|
05.10.2020, 10:49 | #7 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
" Я спросил suggestion'а..."
suggestion Тихо сам с собою ? |
05.10.2020, 12:42 | #8 |
Пользователь
Регистрация: 14.03.2020
Сообщений: 45
|
digitalis, не на то пёрышко жмякнул человек, ну бывает :-)
|
05.10.2020, 12:51 | #9 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
В общем, покажи ему на примере - я бы и сам, но не знаю что ему нужно показать
|
06.10.2020, 01:02 | #10 |
Пользователь
Регистрация: 14.03.2020
Сообщений: 45
|
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разбить прогу на procedure and function | users1 | Помощь студентам | 3 | 08.02.2017 16:59 |
Function and procedure | darm | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 10.03.2016 20:59 |
function, procedure (выручите) | Woxx | Помощь студентам | 5 | 20.10.2010 13:14 |
function procedure | Toxa | Microsoft Office Access | 1 | 28.11.2007 18:32 |