Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

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

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

skype: newerow1989
По умолчанию

Код:

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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

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


03:07.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru