© Wolfgang Utsch

---

Ощущение, что это tuneru на старте

---

---

Royal Clipper

Как игрушечный. Мечта





© Johannes Fein









Самый большой и быстроходный пассажирский парусник в мире, был построен в 2000 году. Его длина - 134 м, высота мачт достигает 60 метров над ватерлинией. Идущий на всех 42 парусах, общей площадью 5040 кв.м., со скоростью около 20 узлов, Royal Clipper представляет собой захватывающие зрелище, словно воплощая детскую мечту о морских приключениях.



Общие характеристики:

год постройки - 2000 г (Голландия);

тоннаж 5 051т;

длина 134 м;

ширина 16,5 м;

5 пассажирских палуб;

команда 100 чел.; 114 кают (228 пассажиров);

стабилизаторы качки.

---

Тут точно Хобиты должны жить





© Thomas Epting

---

США Невада

Насть, вот где гонять надо

---

Кёльнский собор (Кёлн) Германия

© Anke Fechner

---

автор: © Anke Merzbach http://www.ankemerzbach.de/000.htm

---

Frank Melech

---

---

---

---

думаю все знают где это и что это:)

---

этот самый смешной

---

Креативные фото от Rarindra Prakarsa

Внимание. Трафик



нереальные места. Красивые...

---

---

Насть, лови код. Надеюсь сдашь все нормально.





procedure FChange(var f: Myfiletype; FileOpen: boolean);

var

r1, r2:myrec;

a, b: integer;

begin

writeln (' введите номер первой записи');

read( a ); { номер первой записи }

{$i-} seek( f, a ); {$i+} if (ioresult=0) then FileOpen:=TRUE

else begin

MyFileErr:=5; exit;

end;

read(f, rec1); { читаем 1 запись }

writeln (' введите номер второй записи');

read( b ); { номер второй записи }

{$i-} seek( f, B ); {$i+} if (ioresult=0) then FileOpen:=TRUE

else begin

MyFileErr:=5; exit;

end;

read(f, rec2); { читаем 2 запись }

{ и меняем местами ... }

seek( f, a ); write(f, rec2);

seek( f, B ); write(f, rec1);

end;



========================



var f:text;

s,snew:string;

count:integer;

begin

assign(f,Полный путь к файлу:string);

{$i-}

reset(f);

{$i+}

if ioresult<>0 then {файл не существует...};

count:=0;

while not eof(f) do begin

readln(f,s);

count:=count+1;{Переменная count - текущая строка}

snew:='Новое значение';

if count=2 then begin writeln(f,snew);exit;end;

end;

close(f);

end.



P.s. у меня нету паскаля под рукой, ПРОВЕРИТЬ НЕМОГУ но за код уверен, тут трудно ошибится

---

---

маленькая, но гордая птица:-)

---