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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2008, 15:52   #1
Goldberg
Пользователь
 
Регистрация: 07.11.2008
Сообщений: 14
По умолчанию Найти значение функций для всех целых значений из диапазона -8..3

Помогите написать програмку....
Условия такие:

Дана функция

y={2x,x<0;0,x=0;0,5x,x>0

Найти значение функций для всех целых значений из диапазона -8..3

Последний раз редактировалось Goldberg; 12.11.2008 в 16:40.
Goldberg вне форума Ответить с цитированием
Старый 12.11.2008, 16:50   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

if x<0 then y:=2*x
else if x>0 then y:=5*x
else y:=0;
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 12.11.2008, 16:53   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Добавлю что это нужно делать в цикле:
Код:
for x:=-8 to 3 do begin
То что написано выше;
Writeln(x,y);
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.11.2008, 17:25   #4
Goldberg
Пользователь
 
Регистрация: 07.11.2008
Сообщений: 14
По умолчанию

Спасибо...!!!!
Goldberg вне форума Ответить с цитированием
Старый 12.11.2008, 22:21   #5
Goldberg
Пользователь
 
Регистрация: 07.11.2008
Сообщений: 14
По умолчанию

Радость была не долгой.
1)Третие условие функции 0,5x,x>0 а не 5x,x>0 - ?как это реализовать..
2)Обязательно должен использоваться цикл с предусловием WHILE...DO
Goldberg вне форума Ответить с цитированием
Старый 13.11.2008, 00:05   #6
lexus_ilia
Студентик :)
Пользователь
 
Аватар для lexus_ilia
 
Регистрация: 29.09.2008
Сообщений: 84
По умолчанию

епт Ну типа так
Код:
Program xa;
Var
 x:integer;
 y:real;
begin
 x:=-8;
 While x<4 do
 begin
  if x<0 then 
   y:=2*x;
  if x=0 then
   y:=0;
  if x>0 then
   y:=0.5*x;
  x:=x+1;
  Writeln('F= ' ,y:4:2)
 end;
 readln
end.
lexus_ilia вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввод диапазона для макроса мышкой 4yDoBuWe Microsoft Office Excel 5 01.12.2008 00:46
Выбор диапазона для диаграммы по дате alexbob Microsoft Office Excel 1 27.10.2008 07:35
Как найти большее число из имеющихся значений в Паскале? Auditor Помощь студентам 7 05.05.2008 21:57
Помогите написать прогу!Среди заданных целых чисел k, l, m найти пары кратных.Написать по проще чемЭесть vdv08 Паскаль, Turbo Pascal, PascalABC.NET 4 04.04.2008 16:56
Где скачать исходник среднего текстового редактора (типа WordPad) с подробным описанием всех функций. Bill Gates Софт 2 07.01.2008 07:39