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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.12.2017, 15:43   #1
Totoldamag
Новичок
Джуниор
 
Регистрация: 15.12.2017
Сообщений: 7
По умолчанию Циклические вычислительные процессы (вычисление значения функции) - Pascal ABC

Используя три различных цикла, трижды протабулировать функцию
12345.jpg
Totoldamag вне форума Ответить с цитированием
Старый 15.12.2017, 20:58   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Слушаюсь, сэр ! Остальные 6 заданий тоже прикажете исполнять немедленно? За неисполнение - расстрел без права переписки ?
Обычно ленивые работу кидают в Фриланс с озвученным гонораром. Ленивые и халявшики - просто идут лесом.
digitalis вне форума Ответить с цитированием
Старый 16.12.2017, 12:36   #3
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

Условие, операция, цикл, значение. Шаг цикла задай и всё.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 17.12.2017, 08:00   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
uses Math;

const k=1;//в тексте задания не было про переменную или константу???

function f(x:real):real;
var z:real;
begin
   z:=x*x*x+9*x*x+26*x+24;
   If z=0 then
      Result:=Power(2,x) else
      Result:=k/z;
end;

const dx=0.5;
      a=-5;
      b=2;
var x,y:real;
    i:integer;
begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      y:=f(x);
      Writeln(x:5:2,' ',y:5:8);
   Until x>=b;
   Writeln;
   x:=a-dx;
   While x<b do
   begin
      x:=x+dx;
      y:=f(x);
      Writeln(x:5:2,' ',y:5:8);
   end;
   Writeln;
   For i:=Round(a/dx) to Round(b/dx) do
   begin
      x:=i*dx;
      y:=f(x);
      Writeln(x:5:2,' ',y:5:8);
   end;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Циклические вычислительные процессы (математические ряды) - Pascal ABC Totoldamag Паскаль, Turbo Pascal, PascalABC.NET 1 17.12.2017 08:00
Циклические вычислительные процессы (Pascal) Druws Помощь студентам 1 17.11.2016 11:01
pascal ABC, циклические вычислительные процессы evgenia-A Помощь студентам 0 12.11.2016 19:16
[Pascal] Циклические вычислительные процессы 1Sol Помощь студентам 4 02.12.2011 21:04
С++ Циклические вычислительные процессы. bpystep Помощь студентам 19 19.09.2009 23:27