03.03.2010, 17:19 | #1 (permalink) |
Новичок
Регистрация: 03.03.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите пожалуйста!
|
03.03.2010, 17:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Упростить решение проблемы могут эти темы Помогите пожалуйста Помогите срочно пожалуйста. Помогите пожалуйста, не понимаю С++ Помогите пожалуйста с задачками Помогите пожалуйста Помогите, пожалуйста, с CD-ROM |
03.03.2010, 21:49 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
04.03.2010, 19:34 | #4 (permalink) |
Новичок
Регистрация: 03.03.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Многоуважаемый Vladimir_S, не могли бы помочь ещё вот с этой задачей
Желательно до завтрашнего утра 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 | #5 (permalink) |
votum separatum
Регистрация: 05.05.2008
Сообщений: 14,603
Записей в дневнике: 52
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 18619
|
Совсем студенты расслабились.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
04.03.2010, 22:03 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ладно. Вот:
Код:
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. |
04.03.2010, 22:38 | #7 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Хм, как плохо,
использовать форум для решения олимпиадных задач. Я бы понял, если бы попросили объяснить решение или трудность какую-то или аналогичную задачу. Но выкладывать задачи с интернет-олимпиады, которая сейчас идёт... Вообщем, считаю это наглым жульничеством... PS для справки-это задания с 3 тура олимпиады по информатике, проводимой ИТМО. Последний раз редактировалось DDS; 04.03.2010 в 22:43 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|