27.07.2017, 15:28 [+3 UTC]
в нашей команде: 2 069 чел. | участники онлайн: 2 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: консультации

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.41 (25.02.2017)

Общие новости:
23.02.2017, 09:51

Форум:
27.07.2017, 12:12

Последний вопрос:
25.07.2017, 13:46

Последний ответ:
26.07.2017, 17:15

Последняя рассылка:
26.07.2017, 20:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
06.09.2010, 12:48 »
Oka13
Спасибо! Всё понял. [вопрос № 179851, ответ № 262973]
07.06.2011, 01:10 »
Руслан Чернов
спасибо большое за консультацию! [вопрос № 183522, ответ № 267606]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 262
mklokov
Статус: 6-й класс
Рейтинг: 106
Ксюша
Статус: 1-й класс
Рейтинг: 0

Перейти к консультации №:
 

Консультация онлайн # 191043
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Ксюша (1-й класс)
Отправлена: 19.05.2017, 18:20
Поступило ответов: 1

Уважаемые эксперты! Пожалуйста, проверьте правильность написания программы:

Код (Pascal) :: выделить код
Program Lab1; 
Var 
    x, a, b, R, R1, R2, R3: Real; 
Begin 
    Writeln (‘Введите исходные данные – переменные x, a, b’); 
    Readln(x, a, b); 
    R1:= (a/(x-a)); 
    R2:= (power(b, x) + power(cos(x),3));
    R3:=(log(power(a,3))+4,5);
    R:=R1+R2/R3; 
    Writeln(‘Значение функции R =’, R:8:5); 
End.

Добавлен тег CODE/
--------

• Отредактировал: Зенченко Константин Николаевич (Модератор)
• Дата редактирования: 19.05.2017, 18:57

-----
 Прикрепленный файл (кликните по картинке для увеличения):

Состояние: Консультация закрыта

Ответ # 275033 от mklokov (6-й класс)

Здравствуйте, Ксюша!
Ниже код Вашей программы с замеченными недостатками:

Program Lab1; 
Var 
    x, a, b, R, R1, R2, R3: Real; 
Begin 
    Writeln (‘Введите исходные данные – переменные x, a, b’); 
    Readln(x, a, b); 
    R1:= a/(x-a); // R1:= (a/(x-a)); Избыточные скобки вокруг выражения. Не ошибка, но избыточные
    R2:= power(b, x) + power(cos(x),3); // R2:= (power(b, x) + power(cos(x),3)); Та же история, что и выше
    R3:=power(log(a),3)+4,5; // R3:=(log(power(a,3))+4,5); То же, что и выше, плюс Ошибка:
    // возводим в 3 степень не a, но логарифм a
    R:=R1+R2/R3; 
    Writeln(‘Значение функции R =’, R:8:5); 
End.


Консультировал: mklokov (6-й класс)
Дата отправки: 19.05.2017, 21:03

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 191043

Зенченко Константин Николаевич
Модератор

ID: 31795

# 1

= общий = | 19.05.2017, 19:31 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Ксюша:

Если верить ВИКИ, то

log ,Log ,Log10, причём следует иметь в виду, что первые 2 варианта могут относиться и к натуральному логарифму.


В Паскале - нет десятичного логарифма, а только натуральный Ln.
В Паскале - вещественные числа задаются через точку.
В Паскале - Выводимые строки заключаются апостроф " ' "
Исправленный вариант
Код (Pascal) :: выделить код
Program Lab1;
Var
    x, a, b, R, R1, R2, R3: Real;
Begin
    Writeln('Введите исходные данные - переменные x, a, b');
    Readln(x, a, b);
    R1:= (a/(x-a));
    R2:= (power(b, x) + power(cos(x),3));
    R3:=ln(power(a,3))+4.5;
    R:=R1+R2/R3;
    Writeln('Значение функции R =', R:8:5);
End.

• Отредактировал: Зенченко Константин Николаевич (Модератор)
• Дата редактирования: 19.05.2017, 19:41

Зенченко Константин Николаевич
Модератор

ID: 31795

# 2

= общий = | 19.05.2017, 21:07 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
mklokov:

Вы код проверяли? Смотрите моё сообщение в мини-форуме.

mklokov
6-й класс

ID: 400828

# 3

= общий = | 19.05.2017, 22:27 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Зенченко Константин Николаевич:

Здравствуйте, Константин Николаевич!
Вы абсолютно правы в том, что я "зевнул" десятичный разделитель и то, что в задании указан десятичный логарифм.
В PascalABC.net, который сейчас становится стандартом de-facto при изучении языка Паскаль в учебных заведениях в нашей стране, определены функции:
function Ln(x: real): real;
Возвращает натуральный логарифм числа x
function Log10(x: real): real;
Возвращает десятичный логарифм числа x
function Log2(x: real): real;
Возвращает логарифм числа x по основанию 2
function LogN(base, x: real): real;
Возвращает логарифм числа x по основанию base

Зенченко Константин Николаевич
Модератор

ID: 31795

# 4

= общий = | 19.05.2017, 23:01 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
mklokov:

© Цитата: mklokov
PascalABC.net, который сейчас становится стандартом de-facto


Судя по ошибкам с типом real, окрывающей-закрывающей скобках при выводе, автор вопроса писал кодв в чем-то типа WORD'a, как тут.

ps:если не казана среда разработки, и/или её нельзя определить, по свойственным только ей специфике прогаммирования - по умолчанию считается стандарт языка PASCAL, как базовый для всех потомков.

mklokov
6-й класс

ID: 400828

# 5

= общий = | 19.05.2017, 23:35 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Зенченко Константин Николаевич:

Что делаем с моим ответом, Константин Николаевич?

Зенченко Константин Николаевич
Модератор

ID: 31795

# 6

= общий = | 20.05.2017, 04:57 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
mklokov:

Посмотрим, что скажет автор вопроса.

Ксюша
1-й класс

ID: 401077

# 7

= общий = | 20.05.2017, 16:12 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

да. проверила. Все работает. Просто хотела убедиться правильно ли написала программу. Писала действительно в Word'е и не посмотрела на недочеты. Спасибо большое за помощь)

Зенченко Константин Николаевич
Модератор

ID: 31795

# 8

= общий = | 22.05.2017, 09:07 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Ксюша:

Вы забыли указать среду в которой работаете.

• Отредактировал: Зенченко Константин Николаевич (Модератор)
• Дата редактирования: 22.05.2017, 10:59

Ксюша
1-й класс

ID: 401077

# 9

= общий = | 22.05.2017, 15:20 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

приношу свои извинения. Вы были правы это Pascal/

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14152 сек.

© 2001-2017, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.41 от 25.02.2017
Бесплатные консультации онлайн