17.05.2014, 17:46 | #1 (permalink) |
Новичок
Регистрация: 17.05.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать задачу в Паскаль
|
17.05.2014, 17:46 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Следующие топики могут вам существенно облегчить задачу Помогите решить задачу c массивами. Паскаль Помогите написать задачу на Делфи Помогите решить задачу. Паскаль Помогите пожалуйста решить задачу Паскаль |
17.05.2014, 18:35 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const N=40; Var f1:file of Real; f2:file of Integer; a,a1,a2,d:Real; m,i:Integer; Begin Assign(f1,'xxx'); Rewrite(f1); Assign(f2,'yyy'); Rewrite(f2); Randomize; For i:=1 to N do begin a:=Random*100; write(f1,a); end; Close(f1); ReSet(f1); Read(f1,a1); Write(a1:8:3); Repeat m:=1; repeat read(f1,a2); write(a2:8:3); d:=a2-a1; if d>0 then Inc(m); a1:=a2; until (d<=0) or EoF(f1); if m>1 then write(f2,m); Until EoF(f1); Writeln; Close(f1); Close(f2); Reset(f2); Repeat Read(f2,m); Write(m:4); Until EoF(f2); Close(f2); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|