Цитата:
Сообщение от GasoFF
Здравствуйте, помогите пожалуйста написать программу к задаче представленной ниже. желательно до пятницы и на паскале! Заранее спасибо!
|
По-моему, так:
Код:
CONST
Path:STRING='D:\';
VAR
f:TEXT;
x,y,p:REAL;
m:BYTE;
BEGIN
Assign(f,Path+'input.txt');
ReSet(f);
ReadLn(f,x,y,p);
Close(f);
Assign(f,Path+'output.txt');
ReWrite(f);
m:=0;
REPEAT
x:=x*(1+p/1200);
x:=1.0*ROUND(x*100)/100;
m:=m+1;
UNTIL x>y;
WriteLn(f,m);
Close(f);
END.
Константу Path (путь к папке, где будут файлы) поставьте как Вам надо.