Важная информация
Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 13

Тема: Срочно!!! Помогите пожалуйста решить задачу на Pascal/е

  1. #1 Срочно!!! Помогите пожалуйста решить задачу на Pascal/е 
    Новичок
    Регистрация
    23.12.2013
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    На скрине все указано



    Помогите пожалуйста очень надо решить эту задачу

    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Изображения
    Ответить с цитированием  
     

  2. #2  
    Новичок
    Регистрация
    23.12.2013
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    ??????????????
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от Шамсик Сердеров Посмотреть сообщение
    На скрине все указано
    1. Не все на скрине указано , фраза не может заканчиваться предлогом "и", так что продолжение на следующей странице.

    2. И снова, и снова... Ну что нельзя подрезать пустые края? Настолько самому лень шевелиться?
    Ответить с цитированием  
     

  4. #4  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Код :
      write ('Vvedite a ');
      read (a);
      write ('Vvedite b ');
      read (b);
      write ('Vvedite c ');
      read (c);
      write ('Vvedite Xnach ');
      read (X1);
      write ('Vvedite Xkon ');
      read (X2);
      write ('Vvedite DX ');
      read (DX);
     
      X:=X1;
      While X<=X2 Do
      Begin
        f:=(X/c);
        If (X<3) AND (b<>0) Then f:=(a*X*X)-(b*X)+c;
        If (X>3) AND (b=0) Then f:=(X-a)/(X-c);
        Write ('X='+FloatToStr(X)+' f='+FloatToStr(f)+'             ');
        X:=X+DX;
      end;
    Ответить с цитированием  
     

  5. Пользователь сказал cпасибо:

    Абадябер (23.12.2013)

  6. #5  
    Новичок
    Регистрация
    23.12.2013
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Вот остальная строка которая там

    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  7. #6  
    Новичок
    Регистрация
    23.12.2013
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    write ('Vvedite a ');
    read (a);
    write ('Vvedite b ');
    read (b);
    write ('Vvedite c ');
    read (c);
    write ('Vvedite Xnach ');
    read (X1);
    write ('Vvedite Xkon ');
    read (X2);
    write ('Vvedite DX ');
    read (DX);

    X:=X1;
    While X<=X2 Do
    Begin
    f:=(X/c);
    If (X<3) AND (b<>0) Then f:=(a*X*X)-(b*X)+c;
    If (X>3) AND (b=0) Then f:=(X-a)/(X-c);
    Write ('X='+FloatToStr(X)+' f='+FloatToStr(f)+' ');
    X:=X+DX;
    end;



    Этот код и все ?
    Ответить с цитированием  
     

  8. #7  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Цитата Сообщение от Шамсик Сердеров Посмотреть сообщение
    Этот код и все ?
    А что Вы тут еще ожидаете увидеть, Заклинания малых джинов Магриба?
    Ответить с цитированием  
     

  9. #8  
    Новичок
    Регистрация
    23.12.2013
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Нет просто когда на Pascal ABS вставил код вывел ошибку
    Ответить с цитированием  
     

  10. #9  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Ну как всегда! Сначала пишем Паскаль, а потом оказывается, что Паскали разные.

    Какую ошибку? Номер, сообщение?

    У меня Free Pascal, поэтому я не знаю в точности как будет у Вас, но очевидно, что программа должна начинаться оператором Begin и заканчиваться оператором End.
    Да еще, перед оператором Begin, должен быть еще оператор Var, после которого идет объявление переменных:

    Код :
    a:Double;
    b:Double;
    c:Double;
    f:Double;
    X1:Integer;
    X2:Integer;
    DX:Integer;
    X:Integer;
    Ответить с цитированием  
     

  11. #10  
    Новичок
    Регистрация
    23.12.2013
    Сообщений
    6
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Я просто пользуюсь Pascal ABS


    вот написал так

    write ('Vvedite a ');
    read (a);
    write ('Vvedite b ');
    read (b);
    write ('Vvedite c ');
    read (c);
    write ('Vvedite Xnach ');
    read (X1);
    write ('Vvedite Xkon ');
    read (X2);
    write ('Vvedite DX ');
    read (DX);

    X:=X1;
    While X<=X2 Do
    Begin
    f:=(X/c);
    If (X<3) AND (b<>0) Then f:=(a*X*X)-(b*X)+c;
    If (X>3) AND (b=0) Then f:=(X-a)/(X-c);
    Write ('X='+FloatToStr(X)+' f='+FloatToStr(f)+' ');
    X:=X+DX;
    end;


    запустил вышло так :

    Program1.pas(1) : Встречено 'write', а ожидался раздел описаний или begin

    Добавил в начале begin;

    и опять запустил вышло так:

    Program1.pas(25) : Встречен конец файла, а ожидался оператор

    в конце уже прописан end;
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Решить задачу на pascal
    от Антон Соловьёв в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 08.11.2013, 16:09
  2. Помогите решить задачу на QBasic. Пожалуйста!!!
    от Коля Танасійчук в разделе Basic
    Ответов: 2
    Последнее сообщение: 29.10.2013, 04:22
  3. Помогите пожалуйста решить задачу!
    от maiorovleo в разделе QBasic
    Ответов: 1
    Последнее сообщение: 28.04.2012, 14:26
  4. помогите решить задачу на qbasic
    от vetal в разделе QBasic
    Ответов: 3
    Последнее сообщение: 05.03.2012, 21:31
  5. Помогите решить задачу
    от Дмитрий 1993 в разделе QBasic
    Ответов: 3
    Последнее сообщение: 24.01.2012, 17:00
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •