Начертить простеньких 5 блок схем

[to-ot]

надо начертить 5 блок простеньких схем! В фотошопе или каком либо другом редакторе!
Программы готовы! Примерно такого типа! Там 3 с оконным приложение и 2 в консоли с заменой текста! Сделать надо сегодня! Оплата сегодня!



procedure TForm1.Button1Click(Sender: TObject);
var A,p,C:real; i:integer;
At:real;
begin
A:=StrToFloat(Edit1.Text);
p:=StrToFloat(Edit2.Text);
C:=StrToInt(Edit3.Text);
At:=A;
i:=1;
while (At>=C) and (i<=10) do
begin
At:=At-AT*(p/i)/100;
i:=i+1
end;
if At<C then
Edit4.Text:='За '+IntToStr(i-1)+' месяцев достигнуто конечное значение'
else
Edit4.Text:='За 10 месяцев снижения нет';
end;
end.

[Don Karleone]

Пишите, обсудим.
ICQ: 593-013-807

[Don Karleone]

Пишите, обсудим.
ICQ: 593-013-807

[Prime123]

Если ещё актуально могу помочь
ICQ под репутацией