Циклические алгоритмы. Алгоритмы обработки последовательностей чисел

@Lera00 · Регистрация: 21.01.2018

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Lab_3_1;
const x1=1;
      xn=3;
      dx=0.2;
      a=3.9;
      b=2.3;
var x,y,z:real;
begin
x:=x1;
while x<=xn do
 begin
  y:=(1+a*(x+b))/(3+cos(a*x));
  writeln('x=',x:4:1,' y=',y:6:3);
  x:=x+dx;
 end;
end.

Преподаватель говорит что:
1. Программа считает правильно (за исключением того, что по условию диапазон значений x от 1 до 3, а у Вас в таблице выводит x от 1 до 2,8).

2. Результаты вычислений оформить в виде таблицы, используя символы псевдографики. (коды символов приведены в таблице).

3. По условию: При выполнении задания использовать операторы цикла с постусловием, с предусловием и оператор цикла с параметром. Вы сделали с использование цикла с предусловием, осталось сделать еще два варианта программы.

@Puporev · 06.02.2020, 14:40

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
const x1=1;
      xn=3;
      dx=0.2;
      a=3.9;
      b=2.3;
var x,y,z:real;
    n,i:integer;
begin
x:=x1;
while x<xn+dx/2 do
 begin
  y:=(1+a*(x+b))/(3+cos(a*x));
  writeln('x=',x:4:1,' y=',y:6:3);
  x:=x+dx;
 end;
writeln('---------------------------');
x:=x1;
repeat
y:=(1+a*(x+b))/(3+cos(a*x));
writeln('x=',x:4:1,' y=',y:6:3);
x:=x+dx;
until x>xn+dx/2;
writeln('---------------------------');
n:=round((xn-x1)/dx);
for i:=0 to n do
 begin
  x:=x1+i*dx;
  y:=(1+a*(x+b))/(3+cos(a*x));
  writeln('x=',x:4:1,' y=',y:6:3);
 end;
end.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .