Вопрос по информатике:
Пусть дан массив, содержащий даты. Каждая дата – число, месяц, год. Найти все весенние даты.Использование комбинированного и множественного типа.Pascal.Помогите пожалуйста
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.09.2018 07:32
- Информатика
- remove_red_eye 1899
- thumb_up 49
Ответы и объяснения 1
// PascalABC.NET 3.0, сборка 1076
const
n=20; { количество дат }
type
TDate=record
d:1..31;
m:1..12;
y:word
end;
var
dates:array[1..n] of TDate;
i:byte;
s,st:string;
begin
Randomize;
for i:=1 to n do begin
s:='';
With dates[i] do begin
d:=Random(27)+1;
Str(d,st);
if Length(st)=1 then st:='0'+st;
s:=s+st+'.';
m:=Random(12)+1;
Str(m,st);
if Length(st)=1 then st:='0'+st;
s:=s+st+'.';
y:=Random(51)+1960;
Str(y,st);
s:=s+st;
if m in [3..5] then s:=s+' - весенняя';
Writeln(s)
end
end
end.
Тестовое решение:
22.12.1979
21.10.1975
25.03.1980 - весенняя
23.04.1967 - весенняя
09.10.1967
16.05.1965 - весенняя
09.08.1996
05.10.2001
10.11.1985
18.08.1970
08.10.1983
01.12.2005
01.01.1994
09.11.1962
14.09.1979
24.03.2008 - весенняя
14.01.2003
22.04.1990 - весенняя
18.08.1969
16.05.2009 - весенняя
- 25.09.2018 04:45
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.