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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2012, 16:47   #1
Mashaaaaa
 
Регистрация: 20.02.2012
Сообщений: 5
По умолчанию задача на табулирования

Люди, доброго времени суток. Помогите пожалуйста с задачей.

Провести табулирование функции SIN(X)+TG(X) на отрезке [0, П/4] в 18 точках. Символ – #
Mashaaaaa вне форума Ответить с цитированием
Старый 24.05.2012, 17:21   #2
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

обыкновенный цыкл for.
Pein95 вне форума Ответить с цитированием
Старый 25.05.2012, 03:13   #3
kuy
Форумчанин
 
Аватар для kuy
 
Регистрация: 05.09.2011
Сообщений: 109
По умолчанию

Не понял что такое "Символ – #", а табуляция как-то так:
Код:
var step,y,x:real;
    i:integer;
begin
  step:=(0+pi/4)/18;  //шаг табуляции
  x:= 0;
  writeln('Cycle For-Do:');
  for i:=1 to 18 do
    begin
      y:=sin(x)+tan(x) ;  //формула
      write(x:1:2,'  ');
      writeln(y:2:3);
      x:=x+step;
    end;
  writeln('Cycle While-Do:');
  x:=0;
  while (x<0.785) do     //pi/4=0.78539816...
   begin
     y:=sin(x)+tan(x) ;  //формула
     write(x:1:2,'  ');
     writeln(y:2:3);
     x:=x+step;
   end;
  writeln('Cycle Repeat-Until:');
  x:=0;
  repeat
   begin
     y:=sin(x)+tan(x) ;  //формула
     write(x:1:2,'  ');
     writeln(y:2:3);
     x:=x+step;
   end;
  until (x>=0.785);
  readln;
end.
kuy вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Табулирования функции. pokerg Microsoft Office Excel 2 25.01.2012 17:53
Циклические вычислительные процессы. Задача табулирования. Галина-90 Паскаль, Turbo Pascal, PascalABC.NET 4 15.12.2010 21:03
Программа табулирования Oleg123 Паскаль, Turbo Pascal, PascalABC.NET 1 16.06.2009 09:40