Sorry že tak neskor, ale snad ti to este pomoze
.
Funguje to za predpokladu, že turisti prespia vždy v nejakom meste a že cesta medzi jednotlivými mestami nebude dlhšia ako 7 hodín (s tým obedom to moc nechápem).
Samotný program je tu:
Kód:
program pre_teka;
uses crt;
var v:text;
d,h,c:integer;
m,pm:string;
begin
assign(v,'a:\vstup.txt');
reset(v);
clrscr;
d:=1; h:=0;
readln(v,m);
readln(v,c);
h:=h+c;
pm:=m;
writeln('Do prv‚ho mesta ',m,' dorazia za ',c,' hodˇn.');
while not eof(v) do
begin
readln(v,m);
readln(v,c);
if (h+c) > 7 then
begin
writeln(d,'. noc prespia v meste ',pm);
inc(d);
h:=c;
end
else
begin
h:=h+c;
end;
pm:=m;
end;
write('Po ',d,' dnoch a ',h,' hodinach dorazia do mesta ',m);
close(v);
readln;
end.
a vstupný súbor je tu:
Kód:
prve
3
druhe
2
tretie
4
stvrte
3
piate
1
sieste
5
siedme
3
osme
4
