вычислить произведение в цикле (Pascal)

[Progerr]

Ну я как бы не студент,я ученик.И вот на мне на путь такая задача.
Найти (1+0.1)(2+0.2)(3+0.3)...(9+0.9).
Вот что я написал

uses CRT;
var n,s:real;
begin
Clrscr;
s:=1;
repeat
n:=n+1.1;
s:=n*s;
until n=9.9;
write (s);
readkey;
end.

Выдает ошибку "Вещественное переполнение".Я посмотрел на трассировку и обнаружил что при n=9.9 из цикла все равно не выходит.Думаю что проблема там,но точно не знаю.Прошу помощи.
P.S. подскажите хорошую литературу по Pascal,так как в школе книжка плоховатая как на меня.
P.S.S СПАСИБО ВСЕМ НО МНЕ ХОТЕЛОСЬ БЫ УЗНАТЬ В ЧЕМ ОШИБКА,ЧТОБЫ НЕ ПОВТОРЯТЬ ЕЁ


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Stilet]

uses CRT;
var n:integer;s:double;
begin
Clrscr;
s:=1.1;n:=2;
repeat
 s:=(n+n/10)*s;
 inc(n);
until n=9;
write (s);
readkey;
end.

Подходит такое?

[hon]

USES CRT;
var
  s,n:real;
  i:byte;
begin
   s:=0;
   for i:=1 to 9 do
       begin
       n:=i+i+0.1*i;
       s:=s+n;
       end;
   writeln(s);
   readkey;
end;

Я учился по книге Турбо Паскаль 7.0 Самоучитель для школьников, студентов и начинающих.
Рекомендую дополнительно решать задачи из сборника.
Если хочется делать что-то экзотическое (3D-графика, звук не из внутреннего динамика) на Паскале, то можете скачать книгу Turbo Pascal (С.А. Немнюгин)

http://www.programmersclub.ru/книги-про-pascal/

[gaw4]

uses CRT;
var s:real;
n:integer;
begin
Clrscr;
s:=1;
n:=0;
repeat
n:=n+1;
s:=s*1.1*n;
writeln (s);
until n>=9;
//или
              writeln ('------------');
s:=1;
for n:=1 to 9 do
          s:=s*1.1*n;
writeln (s);
readkey;
end.

[Progerr]

Сообщение от hon

USES CRT;
var
  s,n:real;
  i:byte;
begin
   s:=0;
   for i:=1 to 9 do
       begin
       n:=i+i+0.1*i;
       s:=s+n;
       end;
   writeln(s);
   readkey;
end;

Я учился по книге Турбо Паскаль 7.0 Самоучитель для школьников, студентов и начинающих.
Рекомендую дополнительно решать задачи из сборника.
Если хочется делать что-то экзотическое (3D-графика, звук не из внутреннего динамика) на Паскале, то можете скачать книгу Turbo Pascal (С.А. Немнюгин)

И в программе ошибки
1.После последнего "end" "." забыли.
2.Программа не работает

[Sciv]

Потому что напутано само условие. Вот так надо:

s:=1;
for i:=1 to 9 do s:=s*(i+i/10);

Или как у Stilet'a - цикл с постусловием.

А вот так - через цикл с предусловием:

n:=1;
s:=1;
While n<=9 do begin
  s:=s*(n*n/10);
  inc(n);
end;

Кроме того, как справедливо заметил Gaw4 чуть выше, формула s:=s*(n+n/10) вполне преобразуется в s:=s*1.1*n;

[DmitriB]

Проблема скорее всего в том, что проверка была на равенство к 9.9 - а так как числа с плавающей запятой могут находится в памяти как 9.900000001 например, то поэтому и не выходит из цикла. Так что либо следует выполнять проверку на больше либо равно, либо использовать, как подсказали выше другие виды циклов.