Лучший ответ

    1.  0 0

    Ксдатикс 6 (8497)22971 13 лет  

    А во, до конца дочитал. Что бы закрывалось с нажатия кнопки всё, додбавь в конце ещё строчку Readkey; походу

    ALT+F5

Ответы

    1.  1 0

    нажми_сюда (31) 7 (55029)1041139 13 лет  

    после end поставь не точку а точку с запятой, точка ставится только в конце программы
    и ещё, твой стиль написания отвратителен ((( не отступов, нихрена нет

    1.  0 0

    Doctor_ 7 (60214)1096280 13 лет  

    если ты в DOS тогда после того как ввёл жми ALT+F5 он тогда покажет...

    Integer на Real поменяй
    не меняй, полный бред, тебе надо секунды а не доли секунды... integer правильно..

Похожие вопросы

  • Pascal(В чём ошибка)?
    В программе всего 2 места где происходит деление:
    f:=-1.0/sqr(k)
    и
    f:=1.0/sqr(k);


    В обоих случаях деление происходит на целое число - потому что k:Integer, а sqr() вычисляет квадрат k. Таким образом может казаться, что деление на ноль происходить не может - потому что в основном блоке программы k начинается от 1 и потом только увеличивается в цикле (на +1 при каждой итерации).

    Паскаль имеет свою особенность - у всех типов есть максимальное значение. Для Integer - диапазон, кажется, -32768..32767. Если в какой-то момент значение k равно 32767 и к нему прибавляется еще 1, то получается -32768 (то есть как бы начинается отстчет от другого конца диапазона). При последующем увеличении значения в цикле - каждый раз на 1 - отрицательные значения k увеличиваются и достигают нуля. В этот момент происходит деление на ноль.

    Скорее всего неправильно задано условие прерывания цикла и он продолжается дольше, чем было задумано. Нужно проверить - при помощи вывода всех значений, как и было предложено.

    Возможно также отключить "функцию" Паскаля, которая превращает 32767 + 1 в -32768. Нужно задать какую-то специальную директиву компилятору (ищи в гугле по "arithmetic overflow").
  • Кому нужна помощь? Мне нужна помощь! Pascal...
    Ну всё, тиксимиес накамгада
  • Кто Pascal понимает(см.внутри)?
    а точно Рил должно быть? я просто не помню точно, но мы такие вещи через integer писали
  • где найти репетитора по программированию (Pascal)?
    Не легче http://google.ru ( Самообучение )
  • Программирование (Pascal)
    eps := ...;
    k := 1;
    S: = 0;

    while (abs(k) > eps) do begin
    {
        S := S + ( pow(-1, k) / (k*k) );
        k := k + 1;
    };

    я не помню синтаксис Паскаля, но суть отображена
    pow - возвести число в степень - не уверен есть ли такое в Паскале, но можно реализовать при помощи for цикла
    abs - модуль чилса или абсолютное значение; если нет ф-ии, то делаем проверку на <0 и умножаем на -1
  • кто может написать программу на паскале(pascal)?
    Какую? Пиши условия
  • Pascal - нужна помощь
    S := F (k) / F (k - n);

    где

    function F (v : longint) : longint;
    begin
        Result := 1;

        while v > 1 do
        begin
            Result := Result * v;
            Dec (v);
        end;
    end;
  • Кто хорошо знает PASCAL?
    смотря что, в прошлом году в РТУ лабы делал, но знаю мало))
  • где скачать Pascal?
    Наглешь средь бела дня    ССЫЫЛЛКУУУ МНЕ ДАЛИ БЫСТРО...    В гугле смотри  

    На - http://www.freepascal.org/download.var

    Вобще не понимаю зачем тебе это надо, если ты даже информацию в гугле найти не можешь? (без обид)
  • Как в Pascal'e повторить цикл(см.внутри)?
    program check;
    uses crt;
    var b,res:integer;
    begin
      clrscr;
      b:=2+2;
      repeat
        writeln('Чему равно 2+2: ');
        readln(res);
        if b<>res then begin
          writeln('Неправильно');
        end;
      until b=res;
      writeln(res,'-правильный ответ');
      readkey;
    end.

Рейтинг@Mail.ru Top.LV PULS.LV Professional rating system