25.11.2014, 15:23 | #1 (permalink) |
Новичок
Регистрация: 22.11.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа на Паскале
Входные данные В текстовом файле METEO.IN записаны: в первой строке число N (1<=N<=31) – количество измерений; в каждой из N последующих строк два целых числа Ti и Vi – температура воздуха и количество осадков в день под номером i (i=1,2,…N, -35<=Ti<=35, 0<=Vi<=100). Выходные данные Программа должна записать в текстовый файл METEO.OUT два числа: количество осадков в виде снега и количество осадков в виде дождя (при 0 градусов идет дождь). |
25.11.2014, 15:23 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Несколько похожих на вашу тем уже создавались Программа на Паскале Программа на Паскале |
27.11.2014, 18:57 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Код:
Var N,T,V,i,Rain,Snow,d:Integer; f_in,f_out:Text; Begin Randomize; Rain:=0; Snow:=0; Assign(f_in,'METEO.IN'); Rewrite(f_in); Assign(f_out,'METEO.OUT'); Rewrite(f_out); N:=Random(30)+1; for i:=1 to N do begin T:=-35+Random(71); V:=Random(101); writeln(f_in,i:2,T:7,V:7); end; Close(f_in); Reset(f_in); for i:=1 to N do begin readln(f_in,d,T,V); if T<0 then Inc(Snow,V) else Inc(Rain,V); end; Close(f_in); Writeln(f_out,'Rain: ',Rain); Writeln(f_out,'Snow: ',Snow); Close(f_out); End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|