Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 01.02.2012, 16:06   #1 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, пожалуйста, записать математические выражения в Паскале

1. y=sqrt(x+3)+sqrt(x-1) тоесть под корнем эти два выражения..
2. y=sqrt(x-a)+1/x+c
3. y=ln(arctg(ln(x)/x^2))
Гульназ.М. вне форума   Ответить с цитированием

Старый 01.02.2012, 16:06
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Подскажу вам, что на нашем форуме так же можно найти уже готовые темы, которые схожи с вашей

Помогите, пожалуйста, с программой на Паскале
Помогите, пожалуйста, решить в Паскале
Помогите пожалуйста с программой на паскале
Помогите пожалуйста решить матрицу в паскале

Старый 01.02.2012, 16:29   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Гульназ.М. Посмотреть сообщение
1. y=sqrt(x+3)+sqrt(x-1) тоесть под корнем эти два выражения..
2. y=sqrt(x-a)+1/x+c
3. y=ln(arctg(ln(x)/x^2))
Так почти записаны. Осталось только заменить знаки равенств ("=") знаками присваивания (":="), "x^2" выражением sqr(x), "arctg" на "arctan" и в конце каждой строки поставить разделитель ";". Например, последнее выражение запишется так:
y:=ln(arctan(ln(x)/sqr(x)));
Кроме того, на будущее:
1. Не дублируйте сообщения и темы - у нас это наказуемо.
2. Не цепляйтесь к чужим темам - создавайте свои. Сейчас я это сделал за Вас.
Vladimir_S вне форума   Ответить с цитированием
Старый 03.02.2012, 13:56   #3 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо большое, и извиняюсь..я просто впервые в форуме. а вы не сможете мне программу для каждого из этих выражений составить? у меня получилось только не хватает проверка условий и из за этого запуталась полностью
Гульназ.М. вне форума   Ответить с цитированием
Старый 03.02.2012, 14:01   #4 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

y:=exp(1/4*ln(x+3))+exp(1/4*ln(x-1));
y:= sqrt(x-a)+(1/(x+c));
y:= ln(arctan(ln(x/sqr(x))));

вот они.
Гульназ.М. вне форума   Ответить с цитированием
Старый 03.02.2012, 15:25   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Гульназ.М. Посмотреть сообщение
y:=exp(1/4*ln(x+3))+exp(1/4*ln(x-1));
О, Боже - это-то зачем?!! Во-первых, это соответствует извлечению корней не второй, а четвертой степени (второй будет так:
y:=exp(1/2*ln(x+3))+exp(1/2*ln(x-1));), а во-вторых - оператор Sqrt - это нормальный паскалевский оператор извлечения квадратного корня, и переходить к логарифмам-экспонентам тут вовсе ни к чему! Всё, что надо - это записать
y:=sqrt(x+3)+sqrt(x-1);
Или там какое-то другое выражение? Что значит "под корнем эти два выражения"?
Еще вопрос - почему во второй формуле Вы берете х+с в скобки? Как на самом деле надо
так: 1/х + с
или так: 1/(х+с) ?
Уточните, пожалуйста.
А программа пишется так:
Код:
Var
 x,y:real;
Begin
 write('x= ');
 readln(x);
 y:= {здесь Вы вписываете одну из трёх формул}
 writeln('y= ',y:0:8);
 readln
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 03.02.2012, 15:49   #6 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

y:=exp(1/4*ln(x+3))+exp(1/4*ln(x-1)); - тут в первом exp(1/4*ln(x+3)) из под корня степень есть-4,а во втором из под корня 6.я еще не правильно написала.. тоесть со степенями эти корни.. не знаю как объяснить.не разбираюсь.

1/(х+с) - здесь мне так написал программсит знакомый один, я не знаю точно..
Гульназ.М. вне форума   Ответить с цитированием
Старый 03.02.2012, 15:54   #7 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

y:=exp(1/4*ln(x+3))+exp(1/4*ln(x-1)); - в первом exp(1/4*ln(x+3)) из под корня степень есть- это 4,а во втором из под корня 6.я еще не правильно написала.. тоесть со степенями эти корни.. еще так в лекции написано было в примерах..

1/(х+с)-это не знаю, не я писала

а вот на счет программы там какая то проверка условия должна быть, говорили что за проверка
Гульназ.М. вне форума   Ответить с цитированием
Старый 03.02.2012, 15:54   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

М-да, не очень понял... А у Вас есть текст исходного задания? Может быть, сфотографируете и выложите? Тогда, думаю, разберемся.
Vladimir_S вне форума   Ответить с цитированием
Старый 03.02.2012, 15:59   #9 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

ну вот я сделала программы, но не работают они, препод вовсе сказал что нужна прверка условий и не принял работы мои...(
program zadanie_1;
var
x,a,c: integer;
y: real;
begin
write('Vvedite X - ');
readln(x);
write('Vvedite A - ');
readln(a);
write('Vvedite C - ');
readln(c);
y:= sqrt(x-a)+(1/(x+c));
Writeln('Y = ',y:6:2);
Readln;
end.

program zadanie_2;
var
x,y: real;
begin
write('Vvedite X - '); {x<1}
readln(x);
y:= ln(arctan(ln(x/sqr(x))));
Writeln('Y = ',y:10:5);
Readln;
end.

program zadanie_3;
var
x: integer;
y: real;
begin
write('Vvedite X - ');
readln(x);
y:= exp(1/4*ln(x+3))+exp(1/4*ln(x-1));
Writeln('Y = ',y:6:2);
Readln;
end.
Гульназ.М. вне форума   Ответить с цитированием
Старый 03.02.2012, 16:02   #10 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

ну могу в принципе, сейчас
Гульназ.М. вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:17.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.