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
2;3
zadanye 3 г
Random Numbers
ahoj
solar_system_n_(20)_planets_an_time
11.7.2013 naloga2
Игра НИМ
111
Homework 1
Primo1