нужно программу из pascal и delphi в assemler

[Wotyou]

нужно программу из pascal в assemler

var st:string;
m,k:integer;
s,f,p,c:real;
begin
repeat
write('Введите сумму кредита s=');
readln(st);
val(st,s,k);
if(k<>0)or(s<=0) then writeln('Сумма взноса должна быть целым положительным числом');
until(k=0)and(s>0);
repeat
write('Введите сумму первого взноса f=');
readln(st);
val(st,f,k);
if(k<>0)or(f<=0) then writeln('Сумма первого взноса должна быть целым положительным числом');
until(k=0)and(f>0);
repeat
write('Введите количество месяцев');
readln(st);
val(st,m,k);
if(k<>0)or(m<=0) then writeln('Количество месяцев должно быть целым положительным числом');
until(k=0)and(m>0);
if m<6 then p:=0.015
else if m>10 then p:=0.03
else p:=0.02;
c:=(s-f)/m*(1+p);
writeln(c:0:2)
end.

Money.zip

[p51x]

Нажмите скомпилировать, отладить и показать дизасм

[Wotyou]

Это через какую программу delphi 7? В asm первая прога...(есть emu8086)

[Serge_Bliznykov]

(есть emu8086

ОМГ! Так Вам ещё и в 86 ассемблер надо?
Очень сочувствую!! (без сарказма и иронии!)

Нажмите скомпилировать, отладить и показать дизасм

там будет мульён обращений к системным паскалевским процедурам ввода/вывода (system.tpu), ОЧЕНЬ сомневаюсь, что это получится засунуть в более-менее компилируемый исходник.

а про программу на Delphi 7 вообще можете забыть. Это Вам вообще никак не поможет!


Wotyou, зачем Вам это?
Кто придумал такое задание? Где методичка и пример выполнения работы (ассемблерный код)?
Насчёт фриланса не задумывались?

[Wotyou]

Задание такое осуществить ввод суммы первого взноса, сумму кредита и количество месяцев и вывести текущий взнос...

[Serge_Bliznykov]

ещё раз повторяю вопросы:

Wotyou, зачем Вам это?
Кто придумал такое задание? Где методичка и пример выполнения работы (ассемблерный код)?
Насчёт фриланса не задумывались?

[R71MT]

Wotyou, какой интерес писать кому-то за тебя программу? Другое дело помочь в написании.. Это если ты начал делать и у тебя что-то не получается. А здесь - не понятно что!?
И что там за условие в хвосте "if, else"? Это пени, или какой-то коэфициет, или что?

[R71MT]

..в принципе, весь алгоритм коллапсирует в формулу: c:=(s-f)/m*(1+p);

[Nif-naf]

В инете где-то было.

[NetSpace]

...кто-то лишний на факультете ИКТ технологий....
или у кто-то хочет своего родственника на его место в группе восстановить.