VPF::Pascal ошибка. - Форум программистов

impario

Дата 7.1.2009, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.12.2008

Репутация: нет
Всего: нет

Здравствуйте! Проверте пожалуйста, не хватает ли запятой.

Код

program prim180;
 uses crt;
  var i,n,ch,p:integer;
   begin
    clrscr;
     writeln('Vvedite konechnoe znachenie n');
     readln(n);
      ch:=0;
       for i:=1 to n do
        begin
         if i<>n then
          i:=i+1;
        end
         else
          if i=n then
           begin
            ch:=exp(3*ln(i))-3*sqr(i)+n;
            p:=0;
             for p:=1 to n do
              if p=ch then
               p:=p+1;
           end;
                 writeln('summa ravna',p:6);
                 readln;
   end.

Это сообщение отредактировал(а) impario - 7.1.2009, 13:07

Присоединённый файл ( Кол-во скачиваний: 9 )

180.JPG 10,17 Kb

Akella

Дата 7.1.2009, 13:31 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: нет
Всего: 329

impario, смени аватар, или админы его сменят. Ты на форуме программистов.

Ofer

Дата 7.1.2009, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.10.2006
Где: КривбаСС

Репутация: нет
Всего: 5

Перенеси end из 13 строки за 22 строчку. Тогда у тебя будет правильный блок для цикла for i:=1 to n do А еще советую поменять тип ch на Real.

Добавлено через 3 минуты и 14 секунд
Akella, а я как раз сидел и думал почему модераторы ему за автар ничего не говорят smile

Добавлено через 8 минут и 25 секунд
impario, что должна делать программа вообще? В смысле какое задание.

Dobermann

Дата 7.1.2009, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0

Цитата

       for i:=1 to n do
        begin
         if i<>n then
          i:=i+1;
        end

Че за?!!

Цитата

         else
          if i=n then
           begin
            ch:=exp(3*ln(i))-3*sqr(i)+n;
            p:=0;
             for p:=1 to n do
              if p=ch then
               p:=p+1;
           end;

Каким макаром челое р может быть равно дробному ch?!!!
ch у тебя типа integer?!! Прога не запустится...сделай real!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »