Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.09.2011, 13:54   #1
Ramil999
 
Регистрация: 25.09.2011
Сообщений: 5
По умолчанию написать программу из формул Delphi в консольном режиме

Народ помогите пожалуйста написать программу из формул Delphi в консольном режиме
Вот формулы: 1)sqp(1+x)
2)sqr cos (x) sqr(x)
3)cos(x)sin(x)
4)sqrt(abs(x-1))
5)sin(8)
6)ln(7)
7)5*10 там над 10 еше 7 просто незнаю как написать
8)2x дробь 34arccos x
P.S Нужно чтоб все формулы были в одной программе
Ramil999 вне форума Ответить с цитированием
Старый 25.09.2011, 14:35   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

вот Вам аналогия программы, которая в консольном режиме считает и выводит тригонометрические функции:
Код:
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;

var x,y,c,a,b:Real;
    h:Char;
begin
   x:=5.8;
   y:=-4.2;
   a:=cos(y)*cos(y)-Ln(x);
   b:=sqrt(x+4)+sin(y);
   c:=cos(a-b)+1/(exp(a)+b);
   WriteLn('a=',a);
   WriteLn('b=',b);
   WriteLn('c=',c);
   ReadLn(h);//ждёт нажатия какой-либо клавиши
end.
конкретно под свои функции переделаете сами своими ручками...
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 26.09.2011, 14:21   #3
Ramil999
 
Регистрация: 25.09.2011
Сообщений: 5
По умолчанию

Я попробовал! Но все ровно ошибка помогите плз
вот:
Код:
var a,b,c,d,e,f,g,h: integer;

begin
  a:=sqr(1+x);
  b:=cos(x)sqr(x);
  c:=sin(x)cos(x);
  d:=sqrt(abs(x-1));
  e:=sin(7);
  f:=ln(7);
  g:=5*(sqr(7));
  h:=(2x)/(34accos(x));
  Writenl('a=',a);
  Writenl('b=',b);
  Writenl('c=',c);
  Writenl('d=',d);
  Writenl('e=',e);
  Writenl('f=',f);
  Writenl('g=',g);
  Writenl('h=',h);
  Readln(x);
end.

Последний раз редактировалось Stilet; 26.09.2011 в 20:19.
Ramil999 вне форума Ответить с цитированием
Старый 26.09.2011, 15:33   #4
Sweta
Форумчанин
 
Регистрация: 22.11.2007
Сообщений: 664
По умолчанию

В математических формулах знак умножения обычно заменяют точкой или совсем пропускают. В программах он обязателен. Выражение 2x дробь 34arccos x записывается как 2*x/(34*arccos(x)). Проверьте все сами. Пишите какие ошибки получаете.
Неприятности приходят и уходят, а жизнь продолжается!
Sweta вне форума Ответить с цитированием
Старый 26.09.2011, 19:21   #5
Ramil999
 
Регистрация: 25.09.2011
Сообщений: 5
По умолчанию

Огромное спасибо за совет и за образец аналогичного примера но опять ОШИБКА!!!
ПОМОГИТе ПЛЗ подскажите где ошибка и вообше правильно ли я составил задачу?????????????
Ramil999 вне форума Ответить с цитированием
Старый 26.09.2011, 19:59   #6
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

может, надо модуль MATH подключить, чтоб он понимал математические функции?
Код:
uses crt,math;
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 26.09.2011, 20:21   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
но опять ОШИБКА!!!
Еще бы...
Сначала вычислять формулы по х
Цитата:
a:=sqr(1+x);
А потом запрашивать ввод этого икса:
Цитата:
Readln(x);
...Может стоит Readln в начало переставить?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 26.09.2011, 21:09   #8
Ramil999
 
Регистрация: 25.09.2011
Сообщений: 5
По умолчанию

ааа я в дельфи тупой как дуб плз напишите готовый код!!!1
Ramil999 вне форума Ответить с цитированием
Старый 26.09.2011, 21:17   #9
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

Код:
program formula;
uses crt,math;

var a,b,c,d,e,f,g,h: integer;

begin
  ReadLn(x); 
  a:=sqr(1+x);
  b:=cos(x)*sqr(x);
  c:=sin(x)*cos(x);
  d:=sqrt(abs(x-1));
  e:=sin(7);
  f:=ln(7);
  g:=5*(sqr(7));
  h:=(2x)/(34*accos(x));
  Writenl('a=',a);
  Writenl('b=',b);
  Writenl('c=',c);
  Writenl('d=',d);
  Writenl('e=',e);
  Writenl('f=',f);
  Writenl('g=',g);
  Writenl('h=',h);
  ReadLn(x);
end.
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 05.10.2011, 06:43   #10
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,876
По умолчанию

Хм, по-моему, тригонометрические функции в паскале оперируют аргументами в радианах, а не градусах, поэтому везде, где нужно вычислять от градусов, надо сперва перевести, например:
Код:
a := sin(DegtoRad(30)); // синус 30 градусов
Функция DegtoRad также объявлена в модуле Math.
И ещё , NetSpace, у вас ошибочка (хотя скорее недосмотр при копипасте ))) :
Код:
var a,b,c,d,e,f,g,h: double; // ну или real для чистого паскаля
И ещё, гражданина можно смело в рид-онли за спам )) я глянул сайт - обычный варезник

Последний раз редактировалось phomm; 05.10.2011 в 06:49.
phomm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу для перевода из 16-ричной системы счисления в 10-тичную, использовать процедурую(написать Delphi) BLADIMIR Помощь студентам 3 07.09.2011 16:35
Необходимо написать программу 'Анализатор формул' на C++ kasper85 Помощь студентам 3 28.03.2010 13:28
Задача на работу с массивом + char (Delphi в консольном режиме) [COOLER] Помощь студентам 9 02.01.2010 20:16
Подскажите, как в консольном приложении заставить программу ждать нажатия клавиши(си)) Александр Елис Помощь студентам 2 19.09.2009 19:38
написать программу (Delphi 7) Olesya2406 Помощь студентам 1 22.04.2009 12:38