| ← Май 2017 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
|
22
|
23
|
25
|
26
|
27
|
28
|
|
|
29
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Код (Pascal) :: выделить код Program Lab1;
Var
x, a, b, R, R1, R2, R3: Real;
BegУважаемые эксперты! Пожалуйста, проверьте правильность написания программы: Код (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.
Дата отправки: 19.05.2017, 18:20 Консультирует mklokov (5-й класс): Здравствуйте, Ксюша! Код :: выделить код 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.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
