Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
1 / 1 / 0
Регистрация: 19.01.2021
Сообщений: 12
1

Формирование массива значений функции

20.01.2021, 14:19. Просмотров 2231. Ответов 1

Формирование массива значений функции



Написать программу с помощью Function (без random,randomize)(используя простейшие операторы).
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2021, 14:19
Ответы с готовыми решениями:

Формирование массива значений функции
i=1,2..n

Формирование массива значений функции
Функция: Yi=a*xi^2+b(xi+1) ,если xi<a Yi=a*xi^3-b(xi+1) ,если xi≥a Размерность: i=1,2,...,n...

Формирование массива значений функции (цикл с заданным числом повтор.)
Функция: Yi=a*xi^2+b(xi+1) ,если xi<a Yi=a*xi^3-b(xi+1) ,если xi≥a Размерность: i=1,2,...,n...

Разработать программу вычисления массива значений функции
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Сумму отрицательных...

1
2 / 1 / 1
Регистрация: 01.03.2020
Сообщений: 4
20.01.2021, 16:50 2
Лучший ответ Сообщение было отмечено Incognito0202 как решение

Решение

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Uses crt;
Const n=7;
Var i,a,b,d:integer; x:array [1..n] of integer;
 
Function fun1(x1:integer):integer;
 Var y1:real;
Begin
  if x1=0 then writeln('Ошибка деление на ноль') else begin
  
  y1:=sqr(x1)*x1+d/x1-a;
  writeln('y',i,' = ',y1);
  end;
end;
 
Function fun2(x2:integer):integer;
 Var y2:real; 
Begin
  
  y2:=a*x2+b;
  writeln('y',i,' = ',y2);
end;
 
Function fun3(x3:integer):integer;
 Var y3:real;
Begin
  y3:=sin(x3-a)*(ln(x3)/ln(10));
  writeln('y',i,' = ',y3);
end;
 
Begin
i:=0;
Write('a = ');
Readln(a);
write('b = ');
readln(b);
write('d = ');
readln(d); 
 
  Repeat
  i:=i+1; 
 write('x',i,' = ');
 readln(x[i]);
  if (a < x[i]) and (x[i] < Pi) then fun1(x[i]);
  if (x[i] <= a) then fun2(x[i]);
  if (x[i] >= Pi) then fun3(x[i]);  
  Until (i>=n)
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2021, 16:50

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

Формирование массива значений функции
Нужно сформировать массив в зависимости от х и значений функции у. Условия в закрепе...

формирование массива значений функции
Написать программу на языке Паскаль для формирования массива значений функции : Yi=aXi+bXi ...

Формирование массива значений функции h на assembler
Формирование массива значений для функции h ( файл рп.jpg) представлено ниже. Нужно написать...

Формирование массива из средних значений
Сформировать массив А1 из средних значений элементов строк матрицы А. Упорядочить массив А1 по...

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

Формирование значений элементов массива случайным образом и вывод элементов массива в ячейки AxMSFlexGrid
Почему программа мне выдает ошибку? Public Class Form1 Private Sub Form1_Load(ByVal sender...


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

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

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