|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
11.01.2011, 15:45 | #1 (permalink) |
Новичок
Регистрация: 11.01.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Проектирование алгоритмов и программ с использованием цикла с предусловием
Значение функции f(x)=2cos5/4x заданы в точках x= x0(hx)xn . Определить среднее значение функции f(x), определенных в заданных точках и имеющих положительные значения. Форумчане, выручайте!!!!! И если кто решит проявить инициативу, то не откажусь от блок-схемы к программе. |
11.01.2011, 15:45 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Подскажу вам, что просмотр похожих тем является очень эффективным методом решения проблемы Операторы цикла Операторы цикла 2 Turbo Pascal. Программирование алгоритмов циклической структуры |
11.01.2011, 15:53 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так - ну, судя по меткам, речь идет о Паскале. Или нет? И почему это последнее время почти все, кто к нам обращается, не утруждают себя указанием ЯП?
Эта высокопарная дребедень насчет "цикла с предусловием" означает попросту оператор while...do? Или я не так понимаю? Фразу "Определить среднее значение функции f(x), определенных в заданных точках и имеющих положительные значения." решительно не понял. Она и грамматически-то не согласована! Будьте любезны внятно своими словами разъяснить принцип отбора. |
11.01.2011, 16:26 | #3 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
С помощью лома и какой-то там матери, у меня получилось вот такое решение
Код:
var p,h,x0,y:real; n,i,k:integer; begin write ('x0='); {Начальное значение} readln (x0); write ('n='); {Количество значений} readln (n); write ('h='); {Шаг изменения значения X} readln (h); i:=1; p:=0; while i<>n do begin y:=2*cos(5/(4*x0)); {Нахождение f(x)} x0:=x0+h; {Увеличение значения X} inc(i); if y>0 then begin {Выявление положительного значения функции} p:=p+y; {Нахождение суммы f(x) удовлетворяющих условию} inc(k); end; end; p:=p/k; write ('Среднее значение функции',p); readln end. Последний раз редактировалось shrek=); 11.01.2011 в 16:32 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascal, паскаль, предусловие, программа с предусловием |
Опции темы | |
Опции просмотра | |
|
|