Pascal ABC, procedure и function.

[suggestion]

Разработать алгоритм решения задачи, реализовать его на языке Pascal в виде отдельной функции. Диалог с пользователем (ввод исходных данных и вывод результата) также оформить в виде отдельных функций.
Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в своё дело. По прогнозам, его дело должно давать прибыль r рублей в год. Сможет ли он накопить сумму, достаточную для погашения кредита, и
если да, то через сколько лет?

PS должно быть 3 отдельных функции или процедуры для ввода данных, вычисления и вывода результата

вот программа без procedure и fucntion

uses crt;
var k,r:longint;
     p:byte;
     sr:longint;{сумма прибыли}
    v:integer;{количество лет}
    sk:real;{сумма кредита с нарастающими выплатами процентов}
begin
clrscr;
write('Summa kredita k=');
readln(k);
write('Procent p=');
readln(p);
write('Pribyl r=');
readln(r);
if r<=k*p/100 then writeln('Не сможет!') else{если прибыль меньше суммы по процентам, то нет, иначе считаем}
  begin
   v:=0;sr:=0;sk:=k;{лет=0, сумма прибыли=0, сумма кредита=кредиту}
   while sr<=sk do{пока сумма прибыли не превыит сумму кредита}
     begin
      v:=v+1;{добавляем год}
      sr:=sr+r;{считаем сумму прибыли}
      sk:=sk+(k*p)/100;{считаем сумму кредита}
    end;
   write('Сможет, через ',v,' лет');
 end;
readln
end.

[digitalis]

Мне думается, что зря проценты заданы как байт, а k,r:longint;. По жизни бывает, к примеру, 3,5%. И k,r в процессе расчёта не будут целыми. Тогда функция получилась бы простой.

var k,r,p:double ;
function input_data (prompt:str) : double ;
var tmp: double ;
begin 
  write(prompt);
  readln(tmp);
  input_data := tmp
end ;
..........................
k := input_data('Summa kredita k=');

Ну а дальше в том же духе, ручками.

[Petros-20]

Для такой задачи, процедуры и функции не нужны. Слишком всё просто. Но если очень надо, просто напишите три пустые процедуры
procedure Vvod;
procedure Proc;
procedure Vivod;
и тупо перенесите в них куски вашего кода.

[suggestion]

Petros-20, я просто не понимаю как в процедуру вставить условие

[digitalis]

Хоть я не Petros-20, но ответ таков: как и в любом другом месте программы. Подпрограммы и функции - это тот же самый код, что и главная программа, но обрамлённый входом и выходом по согласованным правилам.
А если ответ ожидался конкретно от Petros-20 - можешь мой пост не читать. Ввод я тебе уже расписал.

[suggestion]

suggestion, можете пожалуйста показать на примере? искал в интернете вопрос на эту тему ничего не нашел

[digitalis]

" Я спросил suggestion'а..."
suggestion

Тихо сам с собою ?

[Petros-20]

digitalis, не на то пёрышко жмякнул человек, ну бывает :-)

[digitalis]

В общем, покажи ему на примере - я бы и сам, но не знаю что ему нужно показать

[Petros-20]

PROGRAM P;
BEGIN
  raz;
  dva;
  tri;
  tshetyre;
  pyat;
  shest;
  sem;
  vosem
END.


PROGRAM P_with_procedure;
PROCEDURE Proc;
  Begin
    tri;
    tshetyre;
    pyat;
  End;
BEGIN
  raz;
  dva;

  Proc;

  shest;
  sem;
  vosem
END.