22.04.2012, 17:28 | #1 (permalink) |
Новичок
Регистрация: 22.04.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу в Paskal
|
22.04.2012, 17:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Это ссылки на похожие топики, посмотрите Помогите написать программу Помогите написать программу Помогите написать программу Помогите написать программу |
22.04.2012, 21:59 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var f1,f2:file of Integer; f3:Text; a,b,c,Max:Integer; i,Imax:Byte; Am:Real; Begin Randomize; Assign(f1,'xxx'); Rewrite(f1); For i:=1 to 12 do begin a:=50-Random(100); write(f1,a); write(a:4); end; Close(f1); Writeln; Writeln; Reset(f1); Assign(f2,'yyy'); Rewrite(f2); For i:=1 to 12 do begin read(f1,a); if (i<6) or (i>8) then begin write(f2,a); write(a:4); end; end; Close(f1); Close(f2); Reset(f2); Rewrite(f1); For i:=1 to 9 do begin read(f2,a); write(f1,a); end; Close(f1); Close(f2); Erase(f2); Writeln; Writeln; Max:=-60; Reset(f1); For i:=1 to 9 do begin read(f1,a); if a>Max then begin Imax:=i; Max:=a; end; end; Reset(f1); Assign(f3,'zzz.txt'); Rewrite(f3); If Imax=1 then begin writeln(f3,Max:4); writeln(Max:4); Am:=1.0*Max; end else If Imax=2 then begin read(f1,b); read(f1,c); Writeln(f3,b:4,c:4); Writeln(b:4,c:4); Am:=(b+c)/2; end else begin for i:=1 to Imax-2 do read(f1,a); read(f1,b); read(f1,c); Writeln(f3,a:4,b:4,c:4); Writeln(a:4,b:4,c:4); Am:=(a+b+c)/3; end; Close(f1); Writeln(f3,'Arithmetic mean: ',Am:0:3); Close(f3); Writeln('Arithmetic mean: ',Am:0:3); Readln End. |
|
23.04.2012, 00:49 | #3 (permalink) |
Новичок
Регистрация: 22.04.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо большое!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|