Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Дан массив с ФИО студентов и с датой их рождения. Написать программу, которая выводит студентов, родившихся летом, и вывести старшего студента из цикла студентов родившихся летом.

Просмотров: 348
Объяснение: -
Отзывов: 0

РЕШЕНИЕ:

Program zadanie_4_5; Uses crt; type daty=record i:integer; d:integer; m:integer; g:integer; end; Var f:array[1..10,1..2] of string[15]; a,b:byte; g_m:array[1..10,1..2] of integer;{mesyats i god} d:array[1..10] of integer; dd:array[1..10] of daty; kol,min,mini,p,s:integer; Begin ClrScr; f[1,1]:='Sidorov'; f[2,1]:='Petrov'; f[3,1]:='Ivanov'; f[4,1]:='Fedorov'; f[5,1]:='Znaikin'; f[6,1]:='Nosov'; f[7,1]:='Dyuzhev'; f[8,1]:='Dugaev'; f[9,1]:='Chaikin'; f[10,1]:='Palkin'; f[1,2]:='Ivan'; f[2,2]:='Dmitrii'; f[3,2]:='Aleksandr'; f[4,2]:='Aleksei'; f[5,2]:='Vadim'; f[6,2]:='Nikolai'; f[7,2]:='Irvin'; f[8,2]:='Stanislav'; f[9,2]:='Oleg'; f[10,2]:='Svyatoslav'; WriteLn('Vvedeny dannye studentovrozhdennye letom'); WriteLn('____________________________________________________________'); WriteLn('_______________ Dannyestudentov ___________'); WriteLn('| Familiya | ',' Imya | ',' Data rozhdeniya (dd.mm.gggg.) |'); WriteLn('------------------------------------------------------------'); kol:=0; for a:=1 to 10 do begin g_m[a,2]:=(random(10)+1990); {God} g_m[a,1]:=(random(9)+4); {Mesyats} d[a]:=(random(31)+1); {Data} if (g_m[a,1]=6) or (g_m[a,1]=7) or (g_m[a,1]=8) then begin inc(kol) ; dd[kol].i:=a; dd[kol].d:=d[a]; dd[kol].m:=g_m[a,1]; dd[kol].g:=g_m[a,2]; WriteLn('|',f[a,1]:10,f[a,2]:15,d[a]:13,'.',g_m[a,1]:1,'.',g_m[a,2],' |'); end; end; WriteLn('____________________________________________________________'); {--------------------------------} {---God} min:=dd[1].g; mini:=dd[1].i; for a:=2 to kol do if dd[a].g<min then begin mini:=dd[a].i; min:=dd[a].g end; {---Mesyats} for a:=1 to kol do if dd[a].g=min then begin inc(p); s:=a; end else dd[a].i:=0; if p>1 then begin min:=dd[s].m; mini:=dd[s].i; for a:=1 to kol do if dd[a].i<>0 then if dd[a].m<min then begin mini:=dd[a].i; min:=dd[a].m end; end; {---Deni} for a:=1 to kol do if dd[a].m=min then begin inc(p); s:=a; end else dd[a].i:=0; if p>1 then begin min:=dd[s].d; mini:=dd[s].i; for a:=1 to kol do if dd[a].i<>0 then if dd[a].d<min then begin mini:=dd[a].i; min:=dd[a].d end; end; WriteLn('Mladshii: '); WriteLn('|',f[mini,1]:10,f[mini,2]:15,d[mini]:13,'.',g_m[mini,1]:1,'.',g_m[mini,2],' |'); WriteLn; WriteLn('Dalee nazhmite Enter...'); ReadLn; End.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.