Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 191043
19.05.2017, 18:20
0.00 руб.
19.05.2017, 18:57
1 10 1
Компьютеры Программирование
Уважаемые эксперты! Пожалуйста, проверьте правильность написания программы:

[code lang=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]
Прикрепленные файлы:
d75479b9b8bd81ebe26762bbed4178121dbc508f.PNG
скачать (8.00 кБ)

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2017, 19:31
общий
19.05.2017, 19:41
Адресаты:
Если верить ВИКИ, то
Цитата: Десятичный логарифм
log ,Log ,Log10, причём следует иметь в виду, что первые 2 варианта могут относиться и к натуральному логарифму.


В Паскале - нет десятичного логарифма, а только натуральный Ln.
В Паскале - вещественные числа задаются через точку.
В Паскале - Выводимые строки заключаются апостроф " ' "
Исправленный вариант
[code lang=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.[/code]
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
mklokov
Студент
400828
51
19.05.2017, 21:03
общий
это ответ
Здравствуйте, Ксюша!
Ниже код Вашей программы с замеченными недостатками:
Код:
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.
Об авторе:
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2017, 21:07
общий
Адресаты:
Вы код проверяли? Смотрите моё сообщение в мини-форуме.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
mklokov
Студент
400828
51
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
Об авторе:
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2017, 23:01
общий
Адресаты:
Цитата: mklokov
PascalABC.net, который сейчас становится стандартом de-facto


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

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

давно
mklokov
Студент
400828
51
19.05.2017, 23:35
общий
Адресаты:
Что делаем с моим ответом, Константин Николаевич?
Об авторе:
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
20.05.2017, 04:57
общий
Адресаты:
Посмотрим, что скажет автор вопроса.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Ксюша
Посетитель
401077
4
20.05.2017, 16:12
общий
да. проверила. Все работает. Просто хотела убедиться правильно ли написала программу. Писала действительно в Word'е и не посмотрела на недочеты. Спасибо большое за помощь)
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
22.05.2017, 09:07
общий
22.05.2017, 10:59
Адресаты:
Вы забыли указать среду в которой работаете.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Ксюша
Посетитель
401077
4
22.05.2017, 15:20
общий
приношу свои извинения. Вы были правы это Pascal/
Форма ответа