Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.10.2014, 16:11   #1
WeaKill47
 
Регистрация: 06.10.2014
Сообщений: 4
Печаль Помогите понять логику программы (Pascal)

Программа легкая, но у меня она вызывает трудности, программа по сути должна решать задачу:

дано М-монахов и N-пирогов
монахи едят пироги в зависимости от ранга
1-ого ранга 10 пирогов, 2-ого 5, 3-его 0,5
сколько было 1-ого 2-ого и 3-его ранга монахов в отдельности?


Программа работает но вот код сам не понимаю можете объяснить что на каком этапе выполняется, как бы текстовый алгоритм выполнения программы. Буду очень благодарен за помощь!

Код:
program MONKS;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
n1,a,b,c:integer;
b0,n2,a1,b1,c1:extended;
k:boolean;

begin

writeln('vvedite chisla: ');
readln(n1,n2,a1,b1,c1);
k:=false;
a:=0;

while(a*a1<=n1) do begin
b0:=(n2-n1*c1-a*(a1-c1))/(b1-c1);
b:=trunc(b0);

if((b=b0) and (b>=0) and (a+b<=n1)) then begin
c:=n1-a-b;
writeln(a,b,c);
k:=true;

end;
a:=a+1;
end;
if(k=false) then
writeln('monaxov net');

readln;

end.
WeaKill47 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу понять женскую логику Smitt&Wesson Свободное общение 160 16.06.2014 09:07
Помогите в написании программы в Pascal devoir Помощь студентам 2 20.10.2013 15:40
Помогите с написанием программы на Pascal Paket4ik Помощь студентам 9 21.07.2009 12:28