Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 21.01.2018
Сообщений: 19
1

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

06.02.2020, 08:27. Просмотров 678. Ответов 1
Метки нет (Все метки)


Помогите пожалуйста
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. По условию: При выполнении задания использовать операторы цикла с постусловием, с предусловием и оператор цикла с параметром. Вы сделали с использование цикла с предусловием, осталось сделать еще два варианта программы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.02.2020, 08:27
Ответы с готовыми решениями:

Циклические алгоритмы: найти сумму первых k чисел Пелля
Числа Пелля определяются так: первое число равно 1, второе равно 2, каждое следующее равно...

Важно. Составить программу-генератор простых чисел. Циклические алгоритмы
Составить программу-генератор простых чисел, в основу положить формулу (см. вложение)

Циклические алгоритмы
Сумма цифр трехзначного числа кратна 7, само число также делится на 7 без остатка. Найти все такие...

Циклические алгоритмы
Помогите срочно вычислить значение выражения х=а*а-sqrt(b+4)+b/a для любого известного количества ...

1
Модератор
62942 / 46956 / 32360
Регистрация: 18.05.2008
Сообщений: 113,773
06.02.2020, 14:40 2
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.02.2020, 14:40

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

циклические алгоритмы
помогите ,пожайлуста, с задачами!ни как не могу сделать :( 1.Сумма цифр двузначного числа равна...

Циклические алгоритмы
помогите найти ошибку var s:real; n,Z:integer; begin s:=0; Z:=1; for...

Циклические алгоритмы
Написать программу, которая вычисляет, сколько лет сможет полноценно обеспечивать электроэнергией...

Циклические алгоритмы
1.Определить, каким по счету идет в массиве К(12) первый элемент, равный 0. 2.Дана матрица...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.