Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
iRun
0 / 0 / 0
Регистрация: 09.06.2014
Сообщений: 13
#1

Не могу выбрать нужный код в Паскаль - Turbo Pascal

11.06.2014, 18:57. Просмотров 322. Ответов 2
Метки нет (Все метки)

Приветствую форумчане. Есть код к заданию и не могу определить какую же использовать. Помогите, какая из этих кодов правильная?
Задание такое: Здешние функции x=3,2
Нужно найти
g=cosx-tgx

w=lg(5+x3+2x2)
e=sin(x-5)2
t=cos(2x-5)3


Вот сам код паскаль.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program e1;
const x=3.2;
var g,w,e,t:real;
begin
g:=cos(x) - sin(x) / cos(x);
g:=cos(x) - sin(x) / cos(x);
w:=ln(5 + x * x * x + 2 * x * x) / ln(10);
e:=sin(sqr(x - 5));
t:=cos((2 * x - 5) * (2 * x - 5) * (2 * x - 5));
writeln('g:=',g:2:2);
writeln('w:=',w:2:2);
writeln('e:=',e:2:2);
writeln('t:=',t:2:2);
end.
Если компилировать его, то выйдет ответ:
g:=-1.06
w:=1.77 *
e:=-0.10
t:=-0.92


И есть еще один код Паскаль. Отличие от предыдущего кода, в w,e,t
Pascal
1
2
3
w:= ln(5+exp(3*ln(x))+sqr(2*x));
e:= sin(sqr(x-5));
t:= cos(exp(ln(2*(x)-5)*3));
При компиляций, выводит ответ:
g:=-1.06
w:=4.37 *
e:=-0.10
t:=-0.92

Дык, какой из этих кодов использовать?
*-Красным цветом, Я выделил отличия ответов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2014, 18:57
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Не могу выбрать нужный код в Паскаль (Turbo Pascal):

Нужно отладить код. Не получается нужный шаг - Pascal
var s,n,m,z,y,x,k:integer; begin repeat writeln('Определить предел аргумента x n-? m-? '); {where n - m define limit, y=f(x)} ...

Буду очень благодарен тем кто сможет написать нужный код) - Pascal
ksr *psr, если mi>0 yi = (kmin+pi), если mi<0 |pi*kmin|, если mi=0 ksr, psr – средние значения массивов, kmin –...

Какой паскаль выбрать? - Pascal
Здравствуйте, я тут очень нуб и если такие темы нельзя создавать или я такую же не заметил, то прошу меня простить. Как я уже сказал, я...

Какой паскаль выбрать? - Turbo Pascal
Может, я чего-то не знаю. Бывает паскаль с более-менее нормальным интерфейсом и Копипастом? Какой паскаль выбрать (Турбо, фри, абс, др),...

Найти все положительные числа, из которых выбрать наименьшее ( переделать с C++ на паскаль ) - Pascal
Помогите, пожалуйста #include <iostream> #include <math.h> using namespace std; void main() { int n; cin >>...

Паскаль массивы, не могу догадаться - Turbo Pascal
Массив, паскаль. Нужна помощь ни как не могу догадаться как составить программку: Дана матрица А. Если количество положительных...

2
ermolay
3430 / 2369 / 686
Регистрация: 04.12.2011
Сообщений: 3,965
11.06.2014, 19:32 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
lg(x) - десятичный логарифм числа x, в паскале можно представить как ln(x)/ln(10);
во втором варианте благополучно об этом забыли.
Кроме того во втором варианте решено это: (2*x)2
вместо этого: 2*x2
Да и танцы бубнами, логарифмом и экспонентой здесь совершенно ни к чему.
Вывод: однозначно первый вариант
1
iRun
0 / 0 / 0
Регистрация: 09.06.2014
Сообщений: 13
11.06.2014, 19:37  [ТС] #3
Большое спасибо за помощь!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2014, 19:37
Привет! Вот еще темы с ответами:

Перевести код с С++ в Паскаль - Pascal
#include "Chet.h" int main(void) { setlocale(LC_ALL, "Russian"); int k,t,i,j,a; cout<<"Введите длинну массива: "; ...

Портировать код с C++ на Паскаль - Pascal
Портировать код на паскаль string s; int i, g, h, j, k, x, y, d, z, *b,af,gaf; x = y = 0; getline(cin, s); h = s.length(); ...

Паскаль (править код) - Turbo Pascal
Вот задача (на картинке) Вот сам код: program lab5_3; const x1=2.13; dx=0.4; var xj,y:real; j:integer; begin xj:=x1; y:=0; ...

Конвертировать код на Паскаль - Pascal
Помогите пожалуйста конвертировать код с С на паскаль.Буду примного благодарен) #include<iostream> #include<queue> ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru