Простенькая задача в Pascal - Форум
Воскресенье, 04.12.2016, 17:17
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Простенькая задача в Pascal
Простенькая задача в Pascal
4689Дата: Пятница, 24.09.2010, 20:02 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
привет, можете сказать правильно ли я сделал эту задачу?
http://ipicture.ru/uploads/100924/Jd4g3bWDz4.png
при х=1.22

сделал код:

program Lb1;
var x,i,a,b,t,c,k,p,y,o:real;
begin
x:=1.22;
o:=SQR(x);
i:=COS(3*x+2);
a:=0.4+LN(o);
b:=2*3.14*x;
c:=COS(x);
T:=2.5*i+SQRT(a);
K:=exp(0.6*LN(i))+b;
P:=exp(1/5*LN(o+c));

y:=(T/K)+P;
writeln ('y=', y)
end.

вроде все правильно и ответ есть, но ответ не сходится с результатом, просчитанным на калькуляторе. Подскажите что не так?

 
flash1989Дата: Пятница, 24.09.2010, 20:18 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 177
[ 3 ]
Статус: Offline
mb при writeln('y=',y:8:3) r примеру поставьте, а то оно будет выводить в виде 5.57E+5 (Это к примеру)
 
4689Дата: Пятница, 24.09.2010, 20:27 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
С записью у меня вроде все в порядке, самая засада у меня с самими ответом. У меня получается y=1.47085142686479, а должно получится 1.5....... Не пойму как калькулятор так высчитывает. Мне из за этого зачет не хотят ставить
 
ВахаДата: Суббота, 25.09.2010, 16:37 | Сообщение # 4
Подполковник
Группа: Новичок
Сообщений: 28
[ 6 ]
Статус: Offline
Quote (4689)
С записью у меня вроде все в порядке, самая засада у меня с самими ответом. У меня получается y=1.47085142686479, а должно получится 1.5....... Не пойму как калькулятор так высчитывает. Мне из за этого зачет не хотят ставить

uses crt;
var
x, y: real;
BEGIN
ClrScr;
x:=1.22;
y:=(2.5*cos(3*x+2)+sqrt(0.4+ln(sqr(x))))/exp(0.6*ln(cos(3*x+2)))+exp(0.2*ln(sqr(x)+cos(x)));
write(b:8:2);
ReadKey;
END.

У меня ответ вышел 4,44. Проверял и на калькуляторе и в Excel.


Гвардия умирает но не сдается
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Простенькая задача в Pascal
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016