Важная информация
Показано с 1 по 3 из 3

Тема: Pascal abc найти ошибку

  1. #1  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    290
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Главная ошибка всё надо делать в одном цикле
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    290
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Pascal Code:
    1.  
    2. const i = 6; // граница граница
    3. var x, h, y, k, p: real;
    4. begin
    5. x:=0;       // начальная граница
    6. k:=0;       // счётчик положительных значений функции
    7. p:=1.0;       // произведение отрицательных значений функции
    8. h:=0.01*i;  // шаг
    9. repeat
    10.    y:= sin(x);
    11.    write('x=', x:7:3);
    12.    writeln('; y=', y:7:3);
    13.    if y > 0 then k:=k+1;
    14.    if y<0 then p:=p*y;
    15.    x:= x + h;
    16. until x>i;
    17. writeln(' k=', k:7:3);
    18. writeln(' p=', p:7:3);
    19. end;
    Последний раз редактировалось Абадябер; 14.08.2014 в 08:24. Причина: Добавил подсветку.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 14
    Последнее сообщение: 23.08.2011, 01:06
  2. При создании .exe выдает ошибку
    от Редиска в разделе QBasic
    Ответов: 14
    Последнее сообщение: 12.08.2011, 14:37
  3. Ответов: 5
    Последнее сообщение: 24.05.2011, 12:53
  4. Ответов: 3
    Последнее сообщение: 05.03.2011, 23:46
  5. Ответов: 6
    Последнее сообщение: 09.12.2010, 18:40
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •