Проблема с работой с файлами (Паскаль)

[ReaktiV]

Вообще задание вот такое: вводится названия книг по очерёдно, затем каждое название книги, на примере Introduction to algorithms = 12^2-2^2+10^2=240 делается вот так, где число больше та книга и есть ответ.

[puporev]

Последний раз привожу Вам полное решение задачи. Если Вы решили учить Паскаль, учите. Читайте книги, разбирайте примеры, причем сначала и по-порядку. Что будет непонятно, выкладывайте сюда код, будем подсказывать.
В этой задаче приведенную формулу назовем характеристикой строки.

uses crt;
var s,s1:array[1..20]of string; {массивы строк}
    h:array[1..20]of integer; {массив характеристик}
    n,l1,l2,l3,i,max,nmax:integer;
    c:char; {символ окончания ввода строк}
begin
clrscr;
writeln('Vvedite nazvania knig:');
max:=0;n:=0;
repeat
n:=n+1;
readln(s[n]);{читаем очередную строку}
s1[n]:=s[n]; {запоминаем ее}
l1:=pos(' ',s[n])-1; {первое слово - позиция первого пробела в строке}
delete(s[n],1,pos(' ',s[n]));{удаляем первое слово с пробелом}
l2:=pos(' ',s[n])-1;  {второе слово так же}
delete(s[n],1,pos(' ',s[n]));
l3:=length(s[n]);  {третье слово - длина оставшейся строки}
h[n]:=sqr(l1)-sqr(l2)+sqr(l3); {считаем характеристику строки и заносим в массив}
if h[n]>max then
   begin
    max:=h[n];
    nmax:=n;  {находим максимальное значение и запоминаем его номер}
   end;
c:=readkey; {символ соответствует нажатой клавише}
until c=#27; {эта клавиша Esc}
writeln('Max harakteristika u stroki: ',s1[nmax]);
readln
end.

[ReaktiV]

Спасибо, просто у меня была загвоздка вот с этим "l3:=length(s[n]);" т.е. я не знал как определять длину.
1. А зачем удалять первое (к примеру) слово с пробелом?

[puporev]

Потому что pos(' ',s[n]); это первое появление пробела в строке и если мы не будем удалять начало строки до пробела включительно, то у нас все три слова будут равны первому слову.

[ReaktiV]

А как программа узнает где начинается название одной книги и кончается другая?

[puporev]

Мы вводим название книги из трех слов и нажимем Enter, т.е переходим на новую строку. В памяти компьютера сохраняется невидимые символы конца строки и перехода на новую строку (#10+#13). Когда мы пишем readln(s[n]), то мы считываем символы строки до признака конца строки, запоминаем эту строку, обрабатываем ее и т.д. Поскольку все это описано в цикле repeat . . until (повторять пока не нажмем Esc), то после обработки первой строки, программа переходит на следующую строку и так пока мы не закончим ввод строк.
Вообще скачайте какую-нибудь книгу по Паскалю и читайте, там умные люди все это написали.

[ReaktiV]

Ну а какую хорошую книгу (желательно с ссылкой) можете посоветовать.

[puporev]

Вот для начала два самых легких учебника, только основы.

[ReaktiV]

А Вот автор Валерий Фаронов как он?

[puporev]

Валерий Фаронов тоже хорошо пишет для начинающих. По его книге я изучал основы Делфи 5. Только вот в интернете для бесплатного скачивания книг этого автора мне как-то не попадалось.