Лучший ответ

    1.  0 0

    iddqd (42) 6 (5840)31866 14 лет  

    Uses CRT;
    Var
         S,R:Real; {Площадь круга и его радиус}
        
    Begin
            Write('Введите диаметр: ');
            Readln(S);
            R:=Pi*((S/2)^2);
            Write (R);
              Readln;
    End.

Ответы

    1.  0 0

    COOLant (40) 5 (2589)1942 14 лет  

    uses crt;
    var d,S: real;
    begin
       clrscr;
       write('d = ');
       readln(d);

       if d<0 then begin
                           writeln('Диаметр круга не может быть негативным!');
                           readln;
                           exit
                        end;
       S:=pi*sqr(d/2);
       writeln('S = ',S:2:2);
       readln
    end.

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

  • Помогите найти программу для free pascal которая удаляет пробелы ?
    напиши... что там строка и беги циклом по ней пока не пробел...
    потом заполняй или сдвигай остальную часть...
    быстрее написать чем найти
  • kā jāveido testus FREE PASCAL????
    Tev vajadzīga izklaide vai punkti
  • где найти репетитора по программированию (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 понимает(см.внутри)?
    а точно Рил должно быть? я просто не помню точно, но мы такие вещи через integer писали
  • 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...
    Ну всё, тиксимиес накамгада
  • где скачать Pascal?
    Наглешь средь бела дня    ССЫЫЛЛКУУУ МНЕ ДАЛИ БЫСТРО...    В гугле смотри  

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

    Вобще не понимаю зачем тебе это надо, если ты даже информацию в гугле найти не можешь? (без обид)
  • 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").

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