Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Vremenska prognoza
program Vremenskaprognoza; type elem=record drzava,grad:string[20]; min,max:real; h:integer end; var tek,s,b:elem; i,v:integer; znak:char; procedure procitaj(var imenica:string); begin read(znak); imenica:=''; while(znak<>';') and (znak<>'-') and (znak<>' ') do begin imenica:=imenica+znak; read(znak) end end; begin writeln('Unesite maximalnu dozvoljenu visinu: '); read(v); b.drzava:=''; for i:=1 to 9 do begin procitaj(tek.drzava); procitaj(tek.grad); read(tek.min,tek.max); read(tek.h); if (tek.h<=v) then begin if (b.drzava='') then begin b:=tek; s:=tek end else begin if (tek.drzava=b.drzava) then if(tek.min<s.min) then s:=tek else if(tek.max>b.max) then b:=tek; if not(tek.drzava=b.drzava) then begin writeln(b.drzava,'; ',s.grad,'-',s.min:0:2,'; ',b.grad,'-',b.max:0:2,'; '); s:=tek; b:=tek end end end end; writeln(b.drzava,'; ',s.grad,'-',s.min:0:2,'; ',b.grad,'-',b.max:0:2,'; ') end.
run
|
edit
|
history
|
help
0
tablas
Calculatrice 1.0
procedure escribir caracter n veces
Квартира из уч. Грицановой с местоположением квартиры на этаже
Fibonasi
ANDRESSA LIMA NEPOMUCENO 600624624
1
5161
nombre_completo
1 25 5