Технический форум - Помогите пожалуйста!

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите пожалуйста! (http://www.tehnari.ru/f41/t33725/)

GasoFF

03.03.2010 17:19

Помогите пожалуйста!

Вложений: 1

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

Vladimir_S

03.03.2010 21:49

Цитата:

Сообщение от GasoFF (Сообщение 302620)

По-моему, так:

Код:

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 (путь к папке, где будут файлы) поставьте как Вам надо.

GasoFF

04.03.2010 11:19

Огромное спасибо!

GasoFF

04.03.2010 19:34

Многоуважаемый Vladimir_S, не могли бы помочь ещё вот с этой задачей:tehnari_ru_117:
Желательно до завтрашнего утра:tehnari_ru_325:

http://www.tehnari.ru/imagehosting/2...fd20b3367a.jpg
http://www.tehnari.ru/imagehosting/2...fd22fbc9d6.jpg
http://www.tehnari.ru/imagehosting/2...fd24e7f225.jpg

Артём

04.03.2010 19:42

Совсем студенты расслабились.

Vladimir_S

04.03.2010 22:03

Ладно. Вот:

Код:

CONST

 Path:STRING='D:\';

VAR

 f,f1:TEXT;

 S:STRING;

 i:INTEGER;

 m,t:BYTE;

BEGIN

 Assign(f,Path+'input.txt');

 ReSet(f);

 Assign(f1,Path+'output.txt');

 ReWrite(f1);

 REPEAT

  ReadLn(f,S);

  If S='' then

   begin

    For i:=1 to 80 do Write(f1,' ');

    WriteLn(f1);

   end else

   begin

    t:=1;

    While S[t]=' ' do

     begin

      t:=t+1;

     end;

    t:=t-1;

    m:=(Length(S)-t) div 2;

    If Length(S) mod 2 = 1 then m:=m+1;

    For i:=1 to 40-m do Write(f1,' ');

    For i:=t+1 to Length(S) do Write(f1,S[i]);

    WriteLn(f1);

   end;

 UNTIL EoF(f);

 Close(f);

 Close(f1);

END.

DDS	04.03.2010 22:38

Хм, как плохо,
использовать форум для решения олимпиадных задач.
Я бы понял, если бы попросили объяснить решение или трудность какую-то или аналогичную задачу.
Но выкладывать задачи с интернет-олимпиады, которая сейчас идёт...
Вообщем, считаю это наглым жульничеством...:tehnari_ru_744:
PS для справки-это задания с 3 тура олимпиады по информатике, проводимой ИТМО.

Часовой пояс GMT +4, время: 18:14.